hola a todos amigos espero que esten muy bien bueno aqui estoy de nuevo haciendo consultas jejeje
![Tongue :P](https://solocodigo.com/Smileys/solocodigo/tongue.gif)
, lo que pasa es que estoy tratando de hacer una busqueda por un campo determinado pero encuentro que el codigo es demasiado grande y ademas busca por un solo registro, mi pregunta es como puedo hacer una busqueda pero que busque en la base por un dato especifico y que me muestre ese dato. ej.
nombre depto ciudad fono.
carlos los paltos lillos 133
esa es la base con esos registros ya y por ejemplo esta carlos y quiero buscar por ejemplo por "los", y deberia o buscar cualquiera que empiece o termine o incluso entre medio de la palabra "los", alguien sabe como se hace. yo tengo un codigo pero no se si funciona les muestro.
option explicit
Dim a As Database 'base datos
Dim b As Recordset 'maestro atenciones
Dim c As Recordset 'direeciones
Dim d As Recordset 'tabla_tecnicos
Dim e As Recordset 'equipamiento_atendido
Private Sub Cmdbuscar_Click()
Do While b.EOF = False
If Text1.Text = b("folio_atencion") Then
Text2.Text = b("fecha_llamado") & ""
Text3.Text = b("hora_llamado") & ""
Text4.Text = b("usuario_atencion") & ""
Combo1.Text = b("direccion_depto") & ""
Text5.Text = b("n_oficina") & ""
Text6.Text = b("fono_anexo") & ""
Text7.Text = b("problema_descrito") & ""
Combo2.Text = b("tipo_problema") & ""
Combo3.Text = b("tecnico_asignado") & ""
Text8.Text = b("fecha_atencion") & ""
Text9.Text = b("hora_salida_atencion") & ""
Text10.Text = b("hora_inicio_atencion") & ""
Text11.Text = b("hora_termino_atencion") & ""
Text12.Text = b("hora_llegada_atencion") & ""
Text13.Text = Text1.Text
Text26.Text = b("problema_detectado") & ""
Text25.Text = b("solucion_atencion") & ""
Text22.Text = b("obs_atencion") & ""
Combo4.Text = b("estado_atencion") & ""
Text23.Text = b("derivado") & ""
Text24.Text = b("fecha_cierre_atencion") & ""
If b("mti") & "" = True Then
Check1.Value = True
Else
Check1.Value = False
End If
b.MoveNext
Else
b.MoveNext
End If
Loop
Do While e.EOF = False
If Text1.Text = e("folio_de_atencion") Then
Text13.Text = e("folio_de_atencion")
Text14.Text = e("numero_serie") & ""
Combo5.Text = e("tipo_equipo") & ""
Text16.Text = e("marca_equipo") & ""
Text17.Text = e("modelo_equipo") & ""
Text18.Text = e("nombre_tecnico") & ""
Text19.Text = e("problema_detectado") & ""
Text20.Text = e("tipo_falla") & ""
Text21.Text = e("estado_falla") & ""
e.MoveNext
Else
e.MoveNext
End If
Loop
If Text2.Text = "" Then
MsgBox "No se Encontro Folio", vbInformation, "Busque Nuevamente"
Call limpiar
Call cargar
b.MoveFirst
c.MoveFirst
d.MoveFirst
e.MoveFirst
Text1.SetFocus
Else
Text4.SetFocus
End If
End Sub
Private Sub Form_Load()'aqui esta la base donde me conecto
Set a = OpenDatabase("\\Obiwan\soporte\bd1.mdb")
Set b = a.OpenRecordset("maestro_atenciones")
Set c = a.OpenRecordset("CCOSTOS")
Set d = a.OpenRecordset("tabla_tecnicos")
Set e = a.OpenRecordset("equipamiento_atendido")
End Sub
esto es lo unico que se me ocurrio hacer pero es muy fome pk busca por un solo regitro y ademas completo y yo quiero que busque en cualquier registro y que busque lo que yo escribo no se si se entiende, bueno si alguno de ustedes me puede mostrar como hacerlo no que me lo hagan o me explique como hacerlo con algun ejemplo seria genial bueno si es que alguien puede hacer algo para echarme la manito con esto se lo agradeceria mucho cuidense que esten muy bien adios y muchas gracias