listado access desde vb 6

[Jennifer_munn]

Hola:
Tengo que sacar un listado desde access al pulsar un botón de mi programita teniendo como criterio el numero de empleado que esta en una etiqueta del programita, alguien sabe como puedo pasar el numero de empleado a access?
GRACIAS!!

[Insomnia]

Hola

Yo lo hago de la siguiente manera:

Código:

    InformeX.DoCmd.OpenReport "TotUlSem", acViewPreview, , "Sem='" & Seleccion & "'"

Donde TotUlSem es el nombre del informe de access, Sem es el campo en el que pongo la condición y seleccion es una variable que contiene los datos de la condición.

--Saludos--

[Jennifer_munn]

No sé si lo he pillado bien... pero ya voy a probarlo. muchas gracias insomnia.

Ahora para todos he encontrado esto que me parece bastante interesante:
http://www.codecomments.com/archive3...-2-399450.html
gracias a este código ahora sé visualizar el informe y pasarlo a word. El problema que tengo ahora es que al abrir la base de datos me pide la contraseña del DSN, cómo puedo quitar eso? es necesario establecer el DSN?? para que sirve un DSN???

[Insomnia]

Hola

Bueno eso solo es la linea de código para abrir el informe, antes tienes que declarar el tipo access y añadir la referencia. Te paso el código completo por si te ayuda a enfocarlo mejor:

Código:

Dim informeX as access.application
Set InformeX = New Access.Application
InformeX.OpenCurrentDatabase (App.Path & "\ControlBoyas.mdb")
    
PreSem.Show 1
    
Seleccion = Left(Seleccion, 4) & Right(Seleccion, 2)
    
InformeX.DoCmd.OpenReport "TotUlSem", acViewPreview, , "Sem='" & Seleccion & "'"
InformeX.Visible = True
InformeX.DoCmd.SelectObject acReport, "TotUlSem"
InformeX.DoCmd.Maximize
InformeX.DoCmd.RunCommand acCmdZoom100

Intentalo y me comentas.

P.D.: Selección es la cadena que quiero buscar, p.e.: Semana 11 y el nombre del campo que contiene ese dato en el informe se llama Sem y es de tipo texto (por eso va entre ' )

--Saludos--