Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » informes

Access - informes

Volver
Nuevo Tema
<<>>
 
Vista:

informes

Publicado por jose antonio (12 intervenciones) el 06/07/2004 14:05:11
Hola y gracias por su atencion. Miren tengo un problema, y es que no se como coger un ejercicio que me han mandado para hacer y he acudido a ustedes para ver si me pueden echar una ayuda, gracias. Miren les explico:
Tengo un formulario en vista diseño y le he puesto un boton y una lista en visto diseño tb. ES decir, que quiero meterle codigo en visual al boton del formulario , para que busque en toda la base de datos los informes que existan, y despues que los meta en la lista del formulario. Me pueden ayudar, por favor? gracias.

Saludos.
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
Imágen de perfil de Alejandro

informes

Publicado por Alejandro (4142 intervenciones) el 08/05/2023 22:18:23
¡Claro, José! Puedo ayudarte con eso. Para buscar todos los informes existentes en tu base de datos de Access y mostrarlos en una lista en tu formulario, puedes utilizar el siguiente código en el evento Click del botón:

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
Private Sub btnBuscarInformes_Click()
    Dim db As DAO.Database
    Dim rpt As DAO.Container
    Dim strSQL As String
 
    ' Limpiar la lista antes de realizar la búsqueda
    Me.lstInformes.RowSource = ""
 
    ' Crear la conexión a la base de datos
    Set db = CurrentDb()
 
    ' Consultar los informes en la base de datos
    strSQL = "SELECT Name FROM MSysObjects WHERE Type=5"
    Set rpt = db.OpenRecordset(strSQL)
 
    ' Verificar si se encontraron informes
    If rpt.RecordCount > 0 Then
        ' Recorrer los informes encontrados y agregarlos a la lista
        rpt.MoveFirst
        Do Until rpt.EOF
            Me.lstInformes.AddItem rpt!Name
            rpt.MoveNext
        Loop
    Else
        MsgBox "No se encontraron informes en la base de datos.", vbInformation
    End If
 
    ' Cerrar el recordset y la conexión a la base de datos
    rpt.Close
    db.Close
    Set rpt = Nothing
    Set db = Nothing
End Sub

Asegúrate de reemplazar "btnBuscarInformes" con el nombre correcto del botón y "lstInformes" con el nombre correcto de la lista en tu formulario.

Este código utiliza consultas al sistema para obtener los nombres de los informes almacenados en la base de datos. Luego, recorre los informes encontrados y los agrega a la lista en el formulario.

Espero que esto te ayude a lograr lo que necesitas.
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