Control Button

[Wes Derhak]

Hello

I need some help with a form. What I am trying to do is, to place a button
on a form in MS Access so that when you click on it, in another field it
will display a number one. If you click on the same button again it will
change the one to a two and so on.

Wes

 

[missinglinq via AccessMonster.com]

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

--
There's ALWAYS more than one way to skin a cat!

Answers/posts based on Access 2000

Message posted via AccessMonster.com

 

[Ed Metcalfe]

Hello

I need some help with a form. What I am trying to do is, to place a button
on a form in MS Access so that when you click on it, in another field it
will display a number one. If you click on the same button again it will
change the one to a two and so on.

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.

 

[Guest]

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

 

[Graham R Seach]

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