abris distintos formularios en funcion de un campo de una consulta
Publicado por jose maria (1 intervención) el 14/09/2016 09:14:55
Buenos días , no se mucho de acces ni de programaciion, estoy intentando crar una macro que me imprima unas etiquetas:
ejecuto una consulta sobre una base de datos,y en función del valor de uno de los campos"cod_agencia", necesito imprimir una etiqueta u otra tantas veces como el valor de otro campo"paquetes"
La consulta se llama consulta, los campos "cod_agencia" y "paquetes"
si el cod_agencia =02 o 10 debe imprimir el informe "agencia"
si el cod_agencia<> 02 y <>10 debe imprimir el formulario "agencia".
He creado esta, pero no funciona correctamente, me imprime la etiqueta, pero la que no corresponde, la imprime igualmente pero en blanco:
Muchas Gracias de antemano.
ejecuto una consulta sobre una base de datos,y en función del valor de uno de los campos"cod_agencia", necesito imprimir una etiqueta u otra tantas veces como el valor de otro campo"paquetes"
La consulta se llama consulta, los campos "cod_agencia" y "paquetes"
si el cod_agencia =02 o 10 debe imprimir el informe "agencia"
si el cod_agencia<> 02 y <>10 debe imprimir el formulario "agencia".
He creado esta, pero no funciona correctamente, me imprime la etiqueta, pero la que no corresponde, la imprime igualmente pero en blanco:
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
'------------------------------------------------------------
' Macro11
'
'------------------------------------------------------------
Function Macro11()
On Error GoTo Macro11_Err
'F5
DoCmd.OpenQuery "Consulta", acViewNormal, acReadOnly
DoCmd.OpenReport "informe", acViewNormal, "", "[Consulta]![COD_AGENCIA]<>'02' And [Consulta]![COD_AGENCIA]<>'10'", acNormal
DoCmd.OpenReport "agencia", acViewNormal, "", "[Consulta]![COD_AGENCIA]='02' Or [Consulta]![COD_AGENCIA]='10'", acNormal
DoCmd.Close acMacro, "Macro1"
Macro11_Exit:Exit Function
Macro11_Err:MsgBox Error$
Resume Macro11_Exit
End Function
Muchas Gracias de antemano.
Valora esta pregunta
0