¡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

Mira Yo me hice esta funcion ojala y te sirva ( La copie de mi programa, por lo que tienes escrito alla arriba seguro entiendes este code)


Comando Busqueda


Private Sub cmdBusqueda_Click()
Dim Criterio As String
Dim SiNo As Boolean
lsvPro.ListItems.Clear
If IsNumeric(txtPro.Text) = False Then
Criterio = "[" & sColumna(cmbPro.ListIndex) & "] like '*" & txtPro.Text & "*'"
Else
Criterio = "[" & sColumna(cmbPro.ListIndex) & "] = '" & txtPro.Text & "'"
End If
If txtPro.Text = "" Then
MsgBox "Escribe algo"
Exit Sub
Else
Select Case cmbPro.ListIndex
Case 0 To 4
SiNo = Encontrar3(TPro, Criterio, PBarPro)
Case 5 To 9
SiNo = Encontrar3(TArt, Criterio, PBarPro)
Case 10 To 14
SiNo = Encontrar3(TPre, Criterio, PBarPro)
Case 15 To 17
SiNo = Encontrar3(TInv, Criterio, PBarPro)
End Select
End If
If SiNo = True Then


Else
MsgBox "No se Encontraron Coincidencias"
End If
End Sub


Y la Funcion





Function Encontrar3(Tabla As Recordset, Criterio As String, barra As ProgressBar) As Boolean
If Tabla.BOF = True And Tabla.EOF = True Then
Encontrar3 = False
Else
DoEvents
Encontrar3 = False
Tabla.MoveLast
Tabla.MoveFirst
barra.Max = Tabla.RecordCount
barra.Min = 0
barra.Value = 0
Do While Not Tabla.EOF
Tabla.Find Criterio
If Abs(Tabla.AbsolutePosition) <= barra.Max Then
barra.Value = Abs(Tabla.AbsolutePosition)
Else
barra.Value = Tabla.RecordCount
End If
If Tabla.EOF = True Then
Exit Do
End If
'CargaList (Este Proceso hace que carguelo que encontro donde quieras pero lo tienes que programar tu)
Encontrar3 = True
Tabla.MoveNext
Loop
End If
End Function


Ojala y te sirv por dudas no dudes??? Postea!!!!!!!!!!!!!1

Ademas el Code Tesirve para poder Cargar toda la tabla y buscar dentro, la Barra es para que vayas viendo el progreso de la busqueda ok?

Hola... Claro q se puede, de la siguiente manera

Código:

Set Rs = Db.OpenRecordset("Select * From Préstamos Where ApellidosLike '" & txtBuscarApellidosUsuario.Text & "*'")

Al instrucion seria asi:


Select * From Préstamos Where ApellidosLike'Ma*', devuelve todos los apellidos q comiencen por Ma. Al menos de esa forma yo lo hago en ADO..


Espero q te sirva


Bye...