Au niveau du Form, déclaration globale
- Code : Tout sélectionner
Declare Sub keybd_event Lib "user32.dll" (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer,Byval dwExtraInfo As Integer)
Au niveau du champ
- Code : Tout sélectionner
Sub Exiting(Source As Field)
' appel des API déclarées dans
' global
keybd_event &h78,0,0,0
keybd_event &h78,0,2,0
Exit Sub
End Sub
Cocher "Run Exiting/OnChange events after value change"