AnnChange Event example for Visual Basic

Note: Also works with Access 95 and 97.

Note: This topic is for Document/Medical only.

This example tests the AnnChange event.

Private Sub Lead1_AnnChange(ByVal hObject As Long, ByVal uType As Long)
   Dim buffer As String
   buffer = " This is a change for the button tagged " + CStr(Lead1.AnnGetTag(hObject))
   MsgBox buffer, 0, "NOTE"
End Sub