Undo Togglebutton click 2

[wvandenberg]

Hi all,

I have a toggle button and have implemented the following code in the BeforeUpdate event:

Private Sub tglDate_BeforeUpdate(Cancel As Integer)
    If Not ApplyCriteria Then
        Me.tglDate.Undo
        Cancel = True
    End If
End Sub

The problem is that the togglebutton stays depressed even with the .Undo line of code. Can anyone see any problems with my code? Any suggestions to get the toggle to be set back to False?

Thanks in advance,
Wendy

 

[dhookom]

Try set the value back to 0. I would probably use the AfterUpdate event

Private Sub tglDate_AfterUpdate(Cancel As Integer)
    If Not ApplyCriteria Then
        Me.tglDate = 0
    End If
End Sub

Duane
Hook'D on Access
MS Access MVP

 

[wvandenberg]

Thanks Duane, worked great.

Wendy