Ein Beispiel:

Private Sub tfFirmenname_validate(Cancel As Boolean)
    If tfFirmenname.DataChanged Then bsSpeichern_Click
End Sub<br>
Private Sub przSichern
  IF mspeichern2 = 1 Then 
    Exit Sub 
  else
    tffirmenname_validate(Deine Variable)
  End If
End Sub