Private Sub Text1_Validate(Cancel As Boolean) If trim(Me.Text1.Text) = "1" Then MsgBox "Cualquier dato excepto el 1" Cancel = True End IfEnd Sub
Private Sub Form_Unload(Cancel As Integer) If ModoCaptura Then If MsgBox("¿Desea salir de la captura?", vbQuestion + vbYesNo) = vbNo Then Cancel = 1 End If End IfEnd Sub