Change button caption on each click

[Song]

How to change button caption from "Check All" to "Check None" when
clicked, and change back when click again (toggle)? Because of space
limitation, I don't want to create 2 separate buttons.

When click Check All, I update the field to -1
When click Check None, I update the field to 0

Thanks

 

[Jeanette Cunningham]

Something like this in the button's click event.

With Me.cmdBtnName
If .Caption = "Check All" Then
.Caption = "Check None"
ElseIf .Caption = "Check None" Then
.Caption = "Check All"
End If
End With

Note: replace cmdBtnName with the name for your button.

Jeanette Cunningham MS Access MVP -- Melbourne Victoria Australia

 

[Song]

Something like this in the button's click event.

With Me.cmdBtnName
    If .Caption = "Check All" Then
        .Caption = "Check None"
    ElseIf .Caption = "Check None" Then
        .Caption = "Check All"
    End If
End With

Note: replace cmdBtnName with the name for your button.

Jeanette Cunningham MS Access MVP -- Melbourne Victoria Australia








- Show quoted text -

Thank you, Jeanette. Under what event should I put the code? After
each click, I use docmd.runsql to replace all.

 

[Jon Lewis]

Or (assuming the field is Boolean):

Private Sub cmdBtnName_Click()
field = Not field
cmdBtnName.Caption = Switch(field, "Check None", Not field, "Check All")
End Sub

Jon

 

[Jeanette Cunningham]

As I mentioned in the last post, put the code in the on click event for the
button that runs that query.

Jeanette Cunningham MS Access MVP -- Melbourne Victoria Australia

Something like this in the button's click event.

With Me.cmdBtnName
If .Caption = "Check All" Then
.Caption = "Check None"
ElseIf .Caption = "Check None" Then
.Caption = "Check All"
End If
End With

Note: replace cmdBtnName with the name for your button.

Jeanette Cunningham MS Access MVP -- Melbourne Victoria Australia








- Show quoted text -

Thank you, Jeanette. Under what event should I put the code? After
each click, I use docmd.runsql to replace all.