Como hacer para validar un textbox?

[facufangio]

Hola gente....necesito saber como validar un textbox.... me voy a explicar mejor que es lo que quiero hacer.... en un textbox1 al darle ENTER para avanzar al sig textbox, y este (textbox1) se encontrara el campo vacío, me aparezca un msgbox diciendo: "Este campo no puede quedar vacío".He intentado y recorrido la página y no lo encuentro o lo he encontrado y no me sale....desde ya muchas gracias y espero que me halla explicado bien,

[lokoman]

Hola!
Antes que nada, verifica la propiedad 'TabIndex' de cada text, la cual debe estar en secuencia, para que al mandar el "TAB" no esté saltando entre los text como loco.

Código vb:

Private Sub txtText1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"
End Sub
 
Private Sub txtText1_LostFocus()
    If Trim(txtText1.Text) = Empty Then
        MsgBox "No puede estar en blanco!", vbInformation
        txtText1.SetFocus
    End If
End Sub
 

Nos cuentas!

[facufangio]

lokoman....!!!! muchisisisimas gracias funciona de maravilla......lo que es ser capo....
La verdad que estoy muy agradecido con el foro por que siempre hay alguien que te da una mano espero pronto poder dar la mía ya que aun me encuentro en papel de novato....!!!!

gracias

[JonathanB]

Para evitar el beep al presionar Enter puedes setear el KeyAscii con el valor cero (0) antes de enviar el tab.

Código vb:

Private Sub txtText1_KeyPress(KeyAscii As Integer)
     If KeyAscii = 13 Then
          KeyAscii = 0
          SendKeys "{TAB}"
     End If
End Sub
 

Saludos,

[facufangio]

MUCHAS GRACIAS JONATHAN B POR EL APORTE......Pero quiero comentarle a los 2 que me ha surguido un error al poner 2 textbox uno seguido del otro y darle enter o tab cuando ambos estan vacios....se me queda trabado con el msgbox....acá coloco el codigo que use....necesito si me pueden dar una mano....desde ya Gracias

Código vb:

Private Sub Text1_KeyPress(KeyAscii As Integer)
        If KeyAscii = 13 Then SendKeys "{TAB}"
    End Sub
     
    Private Sub Text1_LostFocus()
        If Trim(Text1.Text) = Empty Then
            MsgBox "No puede estar en blanco!", vbInformation
            Text1.SetFocus
        End If
    End Sub
    Private Sub Text2_KeyPress(KeyAscii As Integer)
        If KeyAscii = 13 Then SendKeys "{TAB}"
    End Sub
     
    Private Sub Text2_LostFocus()
        If Trim(Text2.Text) = Empty Then
            MsgBox "No puede estar en blanco!", vbInformation
            Text2.SetFocus
        End If
    End Sub
 

y este es otro codigo que tambien use

Código vb:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
Else
KeyAscii = verificar_tecla(KeyAscii)
End If
End Sub
Private Sub Text1_LostFocus()
If Trim(Text1.Text) = Empty Then
MsgBox "No puede estar en blanco!", vbInformation, "Control Stock"
Text1.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
Else
KeyAscii = verificar_tecla(KeyAscii)
End If
End Sub
Private Sub Text2_LostFocus()
If Trim(Text2.Text) = Empty Then
MsgBox "No puede estar en blanco!", vbInformation, "Control Stock"
Text2.SetFocus
End If
End Sub
 

[JonathanB]

Saludos, lo que sucede es que después de ejecutar el msgbox, se esta pasando foco al siguiente control (ciclo infinito).

Para solventar tu problema del ciclo infinito, te recomiendo devolverle el foco al control antes de mostrar el msgbox.

Código vb:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"
End Sub
 
Private Sub Text1_LostFocus()
    If Trim(Text1.Text) = Empty Then
        Text1.SetFocus
        MsgBox "No puede estar en blanco!", vbInformation
    End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"
End Sub
 
Private Sub Text2_LostFocus()
    If Trim(Text2.Text) = Empty Then
        Text2.SetFocus
        MsgBox "No puede estar en blanco!", vbInformation
    End If
End Sub
 

Espero que te haya sido de utilidad

[facufangio]

jajajaja.....lo que es ser novato.....depues de ver tu respuesta me di cuenta del error....resultaba ser una tontera....muchas gracias ahora si funciono....!!!