Problem With Toggle Button and scrolling thru records

[Mrstacy]

Access 2003 Windows XP

The following code works ok to update the field and change the caption
on the button, but when I page though the records. The caption does
not necessarily equal what it should. What event do I need to use to
synch this correctly? Thanks in advance.

Private Sub ToPatient_Click()
On Error GoTo btnToPatient_Err

If MedicationToPatient.Value = True Then
MedicationToPatient.Value = False
Me.ToPatient.Caption = "No"
Else
MedicationToPatient.Value = True
Me.ToPatient.Caption = "Yes"
End If



btnToPatient_Exit:
Exit Sub

btnToPatient_Err:
MsgBox Err.Description
Resume btnToPatient_Exit

End Sub

 

[Mrstacy]

Use the current event of the form to set or test the value of the toggle
button.

Damon












- Show quoted text -

Works great. Thank you!