Access - Cerrar informe con Access oculto

 
Vista:
sin imagen de perfil
Val: 4
Ha disminuido su posición en 17 puestos en Access (en relación al último mes)
Gráfica de Access

Cerrar informe con Access oculto

Publicado por PEDRO JAVIER (2 intervenciones) el 13/08/2020 15:03:08
Hola, mi problema es que tengo oculto access, trabajo con formularios e informes, cuando voy a ver el informe, tengo una opción que cuando es el administrador puedo verlo, pero cuando no es el administrador que me diga que no tienes acceso. Cuando entro no siendo administrador no me abre el informe, pero se me queda bloqueado el formulario. Este es el código que tengo puesto:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Report_Close()
 
  fSetAccessWindow (0)
 
End Sub
 
Private Sub Report_Open(Cancel As Integer)
 
     If contra = 2 Then
        MsgBox "No tienes acceso a los informes", vbInformation
        Call Report_Close
 
     End If
     If contra = 1 Then
 
        fSetAccessWindow (3)
     End If
 
End Sub

Haber si alguien me puede ayudar.

Gracias
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

Cerrar informe con Access oculto

Publicado por Anonimo (1965 intervenciones) el 13/08/2020 18:18:25
Es mas sencillo no abrir el informe....

1
2
3
4
5
6
7
Private Sub Report_Open(Cancel As Integer)
 
If contra = 2 Then MsgBox "No tienes acceso a los informes", vbInformation : cancel = true : exit sub
 
If contra = 1 Then fSetAccessWindow (3)
 
End Sub
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