¡Hola amigos del Foro!
Me gustaría aprender a hacer búsquedas en una tabla que me permita encotrar lo que busco sin la necesidad de tipear toda la palabra, es decir, si busco "Aravena" que poniendo las tres primeras letras aparezcan alternativas de la palabra completa, es eso posible de hacer?, hasta el momento puedo buscar la(s) palabra(s) completas con este código:
Private Sub cmdBuscarApellidosUsuario_Click()
If txtBuscarApellidosUsuario = "" Then MsgBox "¡Debe ingresar los Apellidos a buscar!", 16, "Aviso al Usuario": Exit Sub
'Se hará el conteo de los registros.
Set Rs = Db.OpenRecordset("Select Count(*) As Conteo From Préstamos Where [Apellidos]= '" & txtBuscarApellidosUsuario.Text & "'")
Select Case Rs!Conteo 'Dependiendo del número de Registros
'se hará un procedimiento.
Case "0" 'En el caso de que no hayan registros, entonces...
MsgBox "No se encontró el Registro especificado", 48, "AVISO AL USUARIO": Exit Sub
Set Rs = Nothing 'Con Esta insrucción vaciamos la variable Rs.
' Exit Sub
Case "1" 'Si solo existe un registro se deshabilitaran los botones, para que navegar??.
frmInformeApellidosUsuario.fraNavegador.Visible = False 'Hacemos invisible el FRAME que contiene los botones
'ya que existe sólo un Registro.
frmInformeApellidosUsuario.lblInforme.Visible = True
frmInformeApellidosUsuario.Shape1.Visible = True
frmInformeApellidosUsuario.lblUno.Visible = True
Set Rs = Nothing 'Con Esta instrucción vaciamos la variable Rs.
'
Set Rs = Db.OpenRecordset("Select *From Préstamos Where [Apellidos] = '" & txtBuscarApellidosUsuario.Text & "'")
'
Case Else 'Quiere decir que hay mas de 1 registro entonces ahora si se va a operar loa anterior.
frmInformeApellidosUsuario.fraNavegador.Visible = True
frmInformeApellidosUsuario.cmdPrimero.Enabled = False
frmInformeApellidosUsuario.cmdAnterior.Enabled = False
frmInformeApellidosUsuario.lblCodigoUsuario.Visibl e = True
frmInformeApellidosUsuario.lblRegistroUsuario.Visi ble = True
frmInformeApellidosUsuario.lblCantidadRegistrosUsu ario.Visib le = True
frmInformeApellidosUsuario.lblCantidadRegistrosUsu ario.Capti on = Rs!Conteo
frmInformeApellidosUsuario.Shape1.Width = 2100
frmInformeApellidosUsuario.Shape1.Visible = True
Set Rs = Nothing ''Con Esta insrucción vaciamos la variable Rs.
Set Rs = Db.OpenRecordset("Select *From Préstamos Where [Apellidos] = '" & txtBuscarApellidosUsuario.Text & "'")
End Select
Rs.MoveFirst 'El cursor se moverá al primer registro.
With frmInformeApellidosUsuario
.lblApellidosUsuario.Caption = Rs.Fields(1)
.lblNombresUsuario.Caption = Rs.Fields(2)
.lblRun.Caption = Rs.Fields(3)
.lblDigito.Caption = Rs.Fields(4)
.lblCodigoUsuario.Caption = Rs.Fields(0)
End With
frmBuscarApellidosUsuario.Visible = False
txtBuscarApellidosUsuario.Text = ""
frmInformeApellidosUsuario.Visible = True
frmInformeApellidosUsuario.Show
frmInformeApellidosUsuario.Left = 250
frmInformeApellidosUsuario.Top = 110
frmPrincipal.Visible = False
End Sub
Cómo tendría que hacer para buscar en la forma que deseo?...y que explico al principio?... pueden decirme porfa como...
Saludos y hasta pronto
fasirio