Javier gracias por tu ayuda pero me rindo ya no sè estoy
'haciendo mal ....
'me imagino que tienes un form com dos text's
'de esa manera lo estoy probando, ademas teniendo
'el modulo de procesar el losFocus
'asi es que me rindo ya no se que hacer
'de este modo lo estoy provando
'ERROR ENCONTRADO ES EL MISMO DICE QUE LE INGRESE ALGO
'AL TEXT'S,PERO AVECES MOSTRANDO * DOS EL MENSAJE
'ESTOY RENDIDO NO SE QUE HACER
'ES LA ULTIMA VEZ QUE TE MOLESTO....
'***** Este es el codigo del Form**********
Private Sub Command1_GotFocus()
cancelar = True
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cancelar = True
End Sub
'--> En este nivel estoy declarando la variable (que seria a nivel de Formulario)
Private Sub Form_Load()
Dim cancelar As Boolean ' --> Que pasa si la declaro como_
' private me arroja error asì que la dejo como "Dim"
End Sub
Private Sub Text1_KeyPress(Keyascii As Integer)
ProcesarKeyPressTextSoloTexto Keyascii, Text1
End Sub
Private Sub Text1_LostFocus()
If Not cancelar Then ProcesarLostFocusText Text1
ProcesarLostFocusText Text1
End Sub
Private Sub Text2_KeyPress(Keyascii As Integer)
ProcesarKeyPressTextSoloTexto Keyascii, Text2
End Sub
Private Sub Text2_LostFocus()
ProcesarLostFocusText Text2
End Sub
Private Sub Command1_Click()
MsgBox "hola se termino el programa", vbCritical
End Sub
'*********Fin del Codigo Del FORM*********
'****** Este es el Codigo del modulo ********
Public Sub ProcesarKeyPressTextSoloTexto(Keyascii As Integer, txt As TextBox)
If Asc(UCase(Chr(Keyascii))) < Asc("A") Or Asc(UCase(Chr(Keyascii))) > Asc("Z") Then
If Keyascii <> 8 And Keyascii <> 13 And Keyascii <> 209 And Keyascii <> 241 And Keyascii <> 34 And Keyascii <> 225 And Keyascii <> 233 And Keyascii <> 237 And Keyascii <> 32 And Keyascii <> 243 And Keyascii <> 250 Then
Keyascii = 0
Beep
End If
If Keyascii = 13 Then
SendKeys "{TAB}"
End If
Else
Keyascii = Asc(UCase(Chr(Keyascii)))
End If
End Sub
Public Sub ProcesarLostFocusText(txt As TextBox)
Static Procesando As Boolean
If Procesando Then Exit Sub
Procesando = True
txt.Text = Trim(UCase(txt.Text))
If txt.Text = "" Then
MsgBox " Ingrese datos pedidos ", vbExclamation
txt.SetFocus
DoEvents
End If
Procesando = False
End Sub
'******* Fin delCodigo Modulo *********
' Saludos Atte Cero Kull®