Wherecondition desde tabla
Intento abrir un informe utilizando el wherecondition del método openreport sin éxito.
Tengo la siguiente instrucción dentro de un bucle que me lee los valores de una tabla y me los guarda correctamente en la variable oficina.
El report debe abrirse únicamente para los valores que contiene la variable oficina, es decir, cuando el campo cargodb de la consulta vinculada al report vale lo que oficina:
Reportfilter = [cargodb] = oficina
DoCmd.OpenReport "COMUNICA Cost Transport PRO", acViewPreview, , Reportfilter
No hay forma de conseguir que la sentencia Reportfilter tenga la sintaxis correcta. O me da un error o no me interpreta la condición.
Agradecería una ayuda dado que las únicas referencias a este comando las encuentro haciendo referencia al valor de un campo de un formulario pero nunca al valor de un campo de una tabla.
Tengo la siguiente instrucción dentro de un bucle que me lee los valores de una tabla y me los guarda correctamente en la variable oficina.
El report debe abrirse únicamente para los valores que contiene la variable oficina, es decir, cuando el campo cargodb de la consulta vinculada al report vale lo que oficina:
Reportfilter = [cargodb] = oficina
DoCmd.OpenReport "COMUNICA Cost Transport PRO", acViewPreview, , Reportfilter
No hay forma de conseguir que la sentencia Reportfilter tenga la sintaxis correcta. O me da un error o no me interpreta la condición.
Agradecería una ayuda dado que las únicas referencias a este comando las encuentro haciendo referencia al valor de un campo de un formulario pero nunca al valor de un campo de una tabla.
1 respuesta
Respuesta de xavi -ae soft-
1
Hola! Mira, los leo así:
consulta = "emails"
rs.Open consulta, con, 1
Do Until rs.EOF
oficina = rs.Fields("oficina").Value
Gracias!
consulta = "emails"
rs.Open consulta, con, 1
Do Until rs.EOF
oficina = rs.Fields("oficina").Value
Gracias!
Me he dejado de indicar esto pero vaya, supongo que para ti tampoco te aporta mucho, ¿no?
Dim rs As Recordset
Dim con As Connection
Set rs = CreateObject("ADODB.RecordSet")
Set con = Application.CurrentProject.Connection
Gracias!
Dim rs As Recordset
Dim con As Connection
Set rs = CreateObject("ADODB.RecordSet")
Set con = Application.CurrentProject.Connection
Gracias!
Pues no, no aporta nada, aunque lo anterior tampoco se yo si me permitirá darte una respuesta correcta...
Por probar:
Reportfilter = "[cargodb]= rs!Oficina
Suponiendo que Oficina sea un texto:
Reportfilter = "[cargodb]='" & rs!Oficina & "'"
Si no te funciona, pon todo el código del evento, lo que esperas conseguir y, por si acaso, la SQL de la consulta llamada emails.
Xavi
Por probar:
Reportfilter = "[cargodb]= rs!Oficina
Suponiendo que Oficina sea un texto:
Reportfilter = "[cargodb]='" & rs!Oficina & "'"
Si no te funciona, pon todo el código del evento, lo que esperas conseguir y, por si acaso, la SQL de la consulta llamada emails.
Xavi
