indsætte i textbox

' hvis du har lavet dine knapper som array så brug den her.:

'Private Sub cmdNumber_Click(Index As Integer)
'  Text1.SelText = Index
'  Text1.SetFocus
'End Sub

' ellers så gør du sådan.:

Private Sub Command7_Click() ' knap 7
  Text1.SelText = 7
  Text1.SetFocus
End Sub

Private Sub Command8_Click() ' knap 8
  Text1.SelText = 8
  Text1.SetFocus
End Sub

sjh
Dur ikke ! får en fejlmeddelelse ?

ja du skal nok ændre navnet på Text1 til det din tekstbox hedder

Ja selvfølgelig er dette gjort.

Men jeg kan simpelthen ikke få den til at virke som hvis man brugte tasteturet

øhh nu er det vel Visual Basic 5/6 vi snakker om ik??

nej det er kodegenerayoren i Access2000, og det er vel VB version ?

Nej det er ikke det samme som Visual Basic 5/6 Det er noget makro.. det ved jeg så ikke hvordan du bruger i Access..

Her et et bud - formular i Access - kun med to knapper.
Ved klik på en knap indsættes "tallet" i forlængelse i tekst0.
Hvis der klikkes i tekstboksen i den ønskede position og herefter på en talknap - indsættes værdien i positionen.

VBA-kode:
=========

Option Compare Database
Dim ix, del1, del2, del3
Private Sub Form_Open(Cancel As Integer)
    Tekst0.Value = ""
    ix = -1
End Sub
Private Sub Kommandoknap2_Click()
    suppDisplay "1"
End Sub
Private Sub Kommandoknap3_Click()
    suppDisplay "2"
End Sub
Private Sub Tekst0_Click()
    ix = Tekst0.SelStart
End Sub
Private Sub suppDisplay(tegn)
    If IsNull(Tekst0) = True Then
        Tekst0 = ""
    End If
   
    If ix <> -1 Then
        If ix = 0 Then
            Tekst0 = tegn + Tekst0
        Else
            del1 = Left(Tekst0, ix)
            del2 = tegn
            del3 = Mid(Tekst0, ix + 1)
            Tekst0 = del1 + del2 + del3
        End If
    Else
        Tekst0 = Tekst0 + tegn
    End If
    ix = -1
End Sub

Lavede noget selv der ligner det fra supertekst