Thank you!
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."
"Chai" <Ch...@discussions.microsoft.com> wrote in message
news:0ADD8FDD-5F97-452C...@microsoft.com...
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
--
Doug Steele, Microsoft Access MVP
http://www.AccessMVP.com/DJSteele
(no e-mails, please!)
"Chai" <Ch...@discussions.microsoft.com> wrote in message
news:0ADD8FDD-5F97-452C...@microsoft.com...