Kasseapparat i Access 2003/2007

Jeg kan godt hjælpe dig, men har du et specifikt spørgsmål?

Hej SPG

så er jeg på banen igen.

Jeg har lavet udseendet på kasseapp. og nu skal jeg bruge at forbinde tasterne 1 til 0 og de skal kunne vises i en tekstboks,
sådan at når jeg modtager penge fra en kunde, skal de tastes ind i feltet " modtaget beløb" som herefter skal fortælle mig hvad jeg skal give tilbage.

Talene 1-0 er lavet som kommandoknap og skal nu forbindes imed feltet.

Her er koden paa en hurtig numpad, hvor jeg har kaldt knapperne command0 - 9 og der er en . knap, det vil selvfoelgelig vaere , i DK og der er en DEL knap. Koden som den ser ud i vba editoren:

Option Compare Database
Option Explicit

Private Sub Command0_Click()
On Error Resume Next
Me.TextNumField = Me.TextNumField & 0
End Sub

Private Sub Command1_Click()
On Error Resume Next
Me.TextNumField = Me.TextNumField & 1
End Sub

Private Sub Command2_Click()
On Error Resume Next
Me.TextNumField = Me.TextNumField & 2
End Sub

Private Sub Command3_Click()
On Error Resume Next
Me.TextNumField = Me.TextNumField & 3
End Sub

Private Sub Command4_Click()
On Error Resume Next
Me.TextNumField = Me.TextNumField & 4
End Sub

Private Sub Command5_Click()
On Error Resume Next
Me.TextNumField = Me.TextNumField & 5
End Sub

Private Sub Command6_Click()
On Error Resume Next
Me.TextNumField = Me.TextNumField & 6
End Sub

Private Sub Command7_Click()
On Error Resume Next
Me.TextNumField = Me.TextNumField & 7
End Sub

Private Sub Command8_Click()
On Error Resume Next
Me.TextNumField = Me.TextNumField & 8
End Sub

Private Sub Command9_Click()
On Error Resume Next
Me.TextNumField = Me.TextNumField & 9
End Sub

Private Sub CommandDEL_Click()
On Error Resume Next
Me.TextNumField = Left(Me.TextNumField, Len(Me.TextNumField) - 1)
End Sub

Private Sub CommandDot_Click()
On Error Resume Next
Me.TextNumField = Me.TextNumField & "."
End Sub

Dette er meget simpelt og der er ikke nogen validering, specialtegn eller beregninger. Normalt vil du maaske lave en minus knap og saa har du dine kategori knapper, som indsaetter beloebet i TextNumField hvor du vil have det eller bruge det til noget andet!~)

Hej SPG

Det var hurtigt, jeg ser på det i weekenden.

Hej SPG
Det kom ikke til kører, har du en ide til hvad jeg kan have gjort forkert eller har du en mulighed for at vise mig hvad jeg skal gøre.