Private Sub YourCommandButton_Click()
YourTextBox = YourTextBox + 1
End Sub

Signature
There's ALWAYS more than one way to skin a cat!
Answers/posts based on Access 2000
> Hello
>
[quoted text clipped - 4 lines]
>
> Wes
You'll need to change the button and textbox names as appropriate:
Private Sub cmdIncrement_Click()
If Not IsNull(Me.txtSomeField.Value) Then
Me.txtSomeField.Value = Me.txtSomeField.Value + 1
Else
Me.txtSomeField.Value = 1
End If
End Sub
Ed Metcalfe.
Hi Wes,
The following will work whether the textbox is bound or unbound. Change
"cmdAdd" to the name of your button, and change "txtTextBox" to the name of
your textbox.
Private Sub cmdAdd_Click()
Me!txtTextBox = (Me!txtTextBox, 0) + 1
End Sub
Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia
> Hello
>
[quoted text clipped - 4 lines]
>
> Wes
Graham R Seach - 07 May 2007 10:54 GMT
Oops, sorry, I pressed the keys but the two most important characters went
missing:
Private Sub cmdAdd_Click()
Me!txtTextBox = Nz(Me!txtTextBox, 0) + 1
End Sub
Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia
> Hi Wes,
>
[quoted text clipped - 21 lines]
>>
>> Wes