Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Busco Formulario de Búsqueda global

Access - Busco Formulario de Búsqueda global

Volver
Nuevo Tema
<<>>
 
Vista:

Busco Formulario de Búsqueda global

Publicado por Jose (11 intervenciones) el 27/03/2013 01:08:57
Hola,

Antes de nada pido pordón por si no es el sitio más adecuado para mi petición.

Resulta que perdí un formulario de ejemplo que bajé de esta página:

http://accessjuancots.blogspot.com.es/2009/07/busqueda-global.html

Era un formulario que hacía una búsqueda por todos los campos al mismo tiempo, yo lo tenía adaptado pero resulta que se me estropeó el disco duro del portatil y perdí todo lo que tenía de access.

Ahora el enlace no funciona y no logro encontrar el ejemplo para descargarlo. Necesito un formulario que haga ese tipo de búsqueda, así que por favor si alguien tuviera dicho ejemplo y me lo puede enviar a mi mail le estaría muy agradecido.

[email protected]

Saludos y gracias a todos.
Jose.
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
sin imagen de perfil
Val: 28
Ha disminuido su posición en 3 puestos en Access (en relación al último mes)
Gráfica de Access

Busco Formulario de Búsqueda global

Publicado por Jefferson (382 intervenciones) el 31/03/2013 03:32:10
Hola Jose

Desconozco como la haria Juan Cost pero yo lo haria asi :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub JJJTBuscar(Texto As String)
On Local Error GoTo VerError
 
    Dim Tbl As DAO.TableDef
        Dim Rcs As DAO.Recordset
            Dim strNombreTabla As String
                Dim strNombreCampo As String
                    Dim strValor As String
                Dim i As Long
            Dim lngNr As Integer
        lngNr = 0
    For Each Tbl In CurrentDb.TableDefs
                strNombreTabla = Tbl.Name
                    If Not Tbl.Name Like "Usys*" Then
                        If Not Tbl.Name Like "MSys*" Then
                            Set Rcs = CurrentDb.OpenRecordset(strNombreTabla)
                            If Not Rcs.BOF Then
                        Do Until Rcs.EOF
                    For i = 0 To Rcs.Fields.Count - 1
                strNombreCampo = Rcs.Fields(i).Name
    strValor = Nz(Rcs(strNombreCampo).Value, "")
 
                    '***************************************************************

                    '&                                                            &*

                    '&                                                            &*

                    '&                                                            &*

                    '&                                                            &*

                    '&               Jefferson Jimenez (JJJT)                     &*

                    '&                 Cabimas - Venezuela                        &*

                    '&                    Enero - 2010                            &*

                    '&                                                            &*

                    '&                                                            &*

                    '&                                                            &*

                    '&                                                            &*

                    '&                                                            &*

                    '***************************************************************

 
        If strValor Like "*" & Texto & "*" Then
            lngNr = lngNr + 1
                MsgBox lngNr & ") Encontrado en el campo : " & strNombreCampo & vbCrLf & _
                    " ' " & strValor & " ' " & vbCrLf & _
                        "En la tabla : " & strNombreTabla
                        End If
                    Next i
                Rcs.MoveNext
            Loop
        End If
           Else
             If lngNr = 0 Then
                    MsgBox "no encontrado"
              Exit Sub
           End If
         End If
      End If
  Next Tbl
 
     Set Rcs = Nothing
 
Exit Sub
VerError:
MsgBox "Error #  " & Err.Number & vbCrLf & Err.Description, vbInformation
End Sub


Saludos
Desde Venezuela
Jefferson
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

Busco Formulario de Búsqueda global

Publicado por Jose (11 intervenciones) el 31/03/2013 18:43:19
Hola Jefferson, te doy las gracias por el ejemplo, también te felicito por tu web.
También gracias a Quique.

Saludos.
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