Visual Basic - autocompletar en un texbox

Life is soft - evento anual de software empresarial
   
Vista:

autocompletar en un texbox

Publicado por harold_m (24 intervenciones) el 09/04/2010 22:44:21
requiero qu eme colaboren con una duda que tengo, realize un formulario on muchas casillas para llenar, el cual alimenta una base de datos en access 2000, necesito que el texbox en el que este escribiendo se autocomplete con la consulta de una columna de nombres que tengo en una tabla de access, y si no esta en esa columna salga un mesaje indicando que dicho nombre no se halla registrado.

les agradeceria mucho si pueden enviarme un ejemplo completo con esta duda tan grande.

muchas gracias.

me pueden enviar el ejemplo a harold_m@hotmail.com

muchas gracias, en lo que puedan colaborarme.

es para visual basic 6.0
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:autocompletar en un texbox

Publicado por Pedro Luis (128 intervenciones) el 12/04/2010 10:05:01
Querias un ejemplo completo y este lo es, se trata de completar el nombre, el apellido1 y el apellido2 con el mismo código.
Los campos de Texto tienen subindices de forma que Nombre,Apellido1 y Apellido2 son Texto(2),Texto(3) y Texto(4).
Hay una tabla abierta Nombres cuyo indice se activa al entrar en el campo correspondiente

Private Sub Texto_GotFocus(Index As Integer)
Mivar = "" 'variable dimensionada como string
Select Case Index
Case 2
Nombres.Index = "Nombre"
Case 3
Nombres.Index = "Apellido1"
Case 4
Nombres.Index = "Apellido2"
End Select
End Sub


Private Sub Texto_KeyPress(Index As Integer, KeyAscii As Integer)
If Index > 1 And Index < 5 Then
If KeyAscii = 8 Or KeyAscii = 27 Then 'Por si borra algún caracter
If Len(Mivar) > 0 Then
Mivar = Mid(Mivar, 1, Len(Mivar) - 1)
End If
Else
Mivar = Mivar + Chr(KeyAscii) 'Se añade el caracter pulsado
End If
KeyAscii = 0
Nombres.Seek ">=", Mivar 'Se busca lo pulsado hasta ahora

If Nombres.NoMatch = False Then 'Si se encuentra
Select Case Index
Case 2
If Mid(Nombres!Nombre, 1, Len(Mivar)) = UCase(Mivar) Then
Texto(Index) = Nombres!Nombre
Else
Texto(Index) = Mivar
End If
Case 3
If Mid(Nombres!Apellido1, 1, Len(Mivar)) = UCase(Mivar) Then
Texto(Index) = Nombres!Apellido1
Else
Texto(Index) = Mivar
End If
Case 4
If Mid(Nombres!apellido2, 1, Len(Mivar)) = UCase(Mivar) Then
Texto(Index) = Nombres!apellido2
Else
Texto(Index) = Mivar
End If
End Select
Else
Texto(Index) = Mivar
End If
Texto(Index).SelLength = Len(Mivar)
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar