Hola el tema esta cerrado el de los text.
Pero me gustaria que me ayudaran a resolver este que es el del control maskedbox..
Estoy utilizando el mismo codigo de validacion de los text pero con algunos cambios que creo deben ser asi como pienso..
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®
