Access - automatizar opcion

 
Vista:
sin imagen de perfil

automatizar opcion

Publicado por Pablo (1 intervención) el 31/08/2016 21:38:43
buenas tardes, tengo un formulario en acces que al elegir una opcion si o no con un cuadro combinado me muestre un informe, pero al elegir "no" se me ocuten ciertos label.
quiero hacerlos al hacer click en el informe. pero no se como hacer referencio al cuardro combinado ni a los label del informe

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Comando30_Click()
On Error GoTo Err_Comando30_Click
 
    Dim stDocName As String
 
    stDocName = "Informe homologacion si"
    DoCmd.OpenReport stDocName, acPreview
 
 
Exit_Comando30_Click:
    Exit Sub
 
Err_Comando30_Click:
    MsgBox Err.Description
    Resume Exit_Comando30_Click
 
End Sub
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 Neckkito
Val: 529
Plata
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

automatizar opcion

Publicado por Neckkito (1157 intervenciones) el 01/09/2016 09:48:16
Hola!

La apertura de un informe en vista previa invalida cualquier acción en VBA operando directamente sobre el mismo.

Una solución sería verificar los datos desde el formulario y abrir el informe ya modificado.

Suponiendo que en tu informe (que ya le vale el nombrecito que le has puesto. Echa un vistazo a este artículo: http://bit.ly/2bLmwY6) las etiquetas se llaman lbl1 y lbl2 (Propiedades -> Pestaña Otras -> Nombre) y que tu combo se llama cboOpcion tu código debería quedar así:

1
2
3
4
5
6
7
8
9
Private Sub...
docmd.openreport "Informe homologacion si", acviewpreview
With Reports![Informe homologacion si]
If me.cboOpcion="No" then
.lbl1.visible=false
.lbl2.visible=false
End if
End with
End sub

Saludos.

Neckkito
http://bit.ly/neckkito
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