Private Sub Text1_Validate(Cancel As Boolean)
If trim(Me.Text1.Text) = "1" Then
MsgBox "Cualquier dato excepto el 1"
Cancel = True
End If
End 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 If
End Sub