BUSQUEDA EN UN TEXT CON KEYPRESS
Publicado por Eduardo YC (41 intervenciones) el 05/04/2006 16:30:15
HOLA,
CUANDO UTILIZABA VB6 TENIA EL SIGUIENTE CODIGO PARA BUSCAR UN DATO (campo "USUARIO") DENTRO DE UNA TABLA, PERO ESTO OCURRIA EN EL EVENTO KEYPRESS DEL TEXTBOX (TXTUSUARIO), SI LO ENCONTRABA OBTENIA EL CORRESPONDIENTE DATO DEL TIPO (campo "TIPO") ... AHORA COMO LO HAGO?
INCLUSIVE TENGO PROBLEMAS PARA EVALUAR LA TECLA PRESIONADA=13
QUE GRANDES CAMBIOS HA HECHO ESTE .NET
If KeyAscii = 13 Then
criterio = "USUARIO='" & Trim(txtusuario.Text) & "'"
RsUsuario.Find criterio, , , 1
If RsUsuario.EOF Then
MsgBox "No se encuentra el USUARIO "
txtusuario.SetFocus
Exit Sub
Else
tipouser = RsUsuario.Fields("TIPO")
End If
End If
GRACIAS
EDU
CUANDO UTILIZABA VB6 TENIA EL SIGUIENTE CODIGO PARA BUSCAR UN DATO (campo "USUARIO") DENTRO DE UNA TABLA, PERO ESTO OCURRIA EN EL EVENTO KEYPRESS DEL TEXTBOX (TXTUSUARIO), SI LO ENCONTRABA OBTENIA EL CORRESPONDIENTE DATO DEL TIPO (campo "TIPO") ... AHORA COMO LO HAGO?
INCLUSIVE TENGO PROBLEMAS PARA EVALUAR LA TECLA PRESIONADA=13
QUE GRANDES CAMBIOS HA HECHO ESTE .NET
If KeyAscii = 13 Then
criterio = "USUARIO='" & Trim(txtusuario.Text) & "'"
RsUsuario.Find criterio, , , 1
If RsUsuario.EOF Then
MsgBox "No se encuentra el USUARIO "
txtusuario.SetFocus
Exit Sub
Else
tipouser = RsUsuario.Fields("TIPO")
End If
End If
GRACIAS
EDU
Valora esta pregunta
0