<<<SIGO PROBANDO Y NO ME RESULTA>>>
Elproblema es el siguiente !!
necesito que el usuario cuando llegue al maskedbox y no le ingrese nada arroje mensaje de que tiene que ingresar algo que no acepte la tecla enter, o la tecla Tab, o cambiar con el raton, sin escribir nada en el masked que la unica forma de salir de el sea escribiendo la fecha por ejemplo
se entiende ?? creo que si es igual al tema de lo text...
Estoy utilizando el mismo codigo de validacion de los text pero con algunos cambios que creo deben ser asi como pienso.. , para poder validar los maskedbox
Bueno lo pongo a disposicion para que me puedan ayudar a ver que esta malo...
Codigo del modulo.bas
Public Sub fe_ing_KeyPress(Keyascii As Integer, mask As MaskEdBox)
If Keyascii = 13 Then
SendKeys "{TAB}"
End If
Else
If fe_ing = "__/__/____" Then
MsgBox "Ingrese Fecha Usuario", vbCritical
fe_ing.SetFocus
Else
If IsDate(fe_ing) Then
Text4.SetFocus
Else
MsgBox "Fecha No Valida", vbCritical
fe_ing = "__/__/____"
fe_ing.SetFocus
End If
End If
End If
End Sub
'*****************************************************
' SOLO PARA PROVAR VALIDAR EL MASKEDBOX
Public Sub ProcesarLostFocusfecha(mask As MaskEdBox)
Static Procesando As Boolean
If Procesando Then Exit Sub
Procesando = True
fe_ing.mask = Trim(UCase(fe_ing.mask))
If fe_ing.mask = "" Then
MsgBox " Ingrese mascara pedida ", vbExclamation
fe_ing.SetFocus
DoEvents
End If
Procesando = False
End Sub
'******************************************************
fin modulo
Codigo de llamada al control en el form...
Private Sub fe_ing_GotFocus()
fe_ing.BackColor = &HFFFF00
End Sub
Private Sub fe_ing_KeyPress(Keyascii As Integer)
'ProcesarKeyPressTextSoloTexto Keyascii, Text1
ProcesarLostFocusfecha Keyascii, fe_ing
End Sub
Private Sub fe_ing_LostFocus()
fe_ing.BackColor = &H80000000
ProcesarLostFocusfecha fe_ing
End Sub
Fin del codifo del form
Pd. fe_ing = a la fecha de ingreso es un variable....
Saludos ajala me puedan ayudar.., lo importante es probar y probar hasta que resulte...
Saludos y felices fiestas., y tomen o beban con moderacion ahi que cuidarse..
Atte.
Cero Kull®
