Access - Modify VBA Code for a Toggle Button

[gheyman]

I have some code for a Toggle button I want to slightly modify

HEre is the Code

Private Sub ToggleBid_Click()

DoCmd.RunSQL ("UPDATE tblNavigation SET tblNavigation.Toggle_condition = True WHERE (((tblNavigation.Bid_tracker)='YES'));")

End Sub

I need code that basically says If ToggleBid = True Then ....... I don't want to tie it to the Click of the actual Toggle. I have three other Toggles that basically do exactly the same with the exceptions of the field tblNavigation.Bid_tracker

tblNavigation.Task_tracker
tblNavigation.BOE_tracker
tblNavigation.Cost_tracker

I am trying to convert this so with a Click of a button it runs through all four instead of one at a time, but the condition would still be if the associated toggles (ToggleBid, ToggleTask, ToggleBOE & ToggleCost) = True

Thanks

 

[Norie]

Can't you just put the code in the Click event of the button?

Private Sub CommandButton1_Click

    If ToggleBid.Value = True Then
        DoCmd.RunSQL ("UPDATE tblNavigation SET tblNavigation.Toggle_condition = True WHERE (((tblNavigation.Bid_tracker)='YES'));")
    End If


    If Toggle.Task_tracker.Value = True Then
        ' do something
    End If

    ' and so on for the rest of the toggle buttons

End If

 

[gheyman]

Thank you for your kindness, Norie.