COMMAND BUTTON CAPTION

[Chai]

I need a code that when I click on a button the command button says
"Something", and when clicked again says "Something else", and so on and so
forth, for example.

Thank you!

 

[Al Campagna]

Chai,
Try this sample code. Use your own object names...
Note that two caption changes should also relate to two separate
code actions.

Private Sub cmdYourButtonName_Click()
If cmdYourButtonName.Caption = "Something" Then
cmdYourButtonName.Caption = "Something Else"
' *** You just clicked the Something button so...
' *** insert the Something code here...
Else
cmdYourButtonName.Caption = "Something"
' *** you just clicked the Something Else button so...
' *** insert the Something Else code here...
End If
End Sub
--
hth
Al Campagna
Microsoft Access MVP 2007-2009
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."

 

[Douglas J. Steele]

Private Sub MyButton_Click()

Select Case Me!MyButton.Caption
Case "Caption1"
Me!MyButton.Caption = "Caption2"
Case "Caption2"
Me!MyButton.Caption = "Caption3"
Case "Caption3"
Me!MyButton.Caption = "Caption1"
Case Else
Me!MyButton.Caption = "ERROR"
End Select

End Sub