Access - abris distintos formularios en funcion de un campo de una consulta

   
Vista:

abris distintos formularios en funcion de un campo de una consulta

Publicado por jose maria jm.bonnin@mdaldicasa.com (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:


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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder