Access - Navgar solo con formularios

 
Vista:
Imágen de perfil de arrobangel
Val: 121
Bronce
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Navgar solo con formularios

Publicado por arrobangel (61 intervenciones) el 29/03/2018 05:10:09
Hola a tod@s

Estoy haciendo una base de datos en access y quiero que la base al ser abierta por el usuario no muestre el panel de microsoft access para que de esta forma el usuario no pueda modificar algo por herror.

Navegando por la web encontré este codico:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
 Const SW_HIDE = 0
 Const SW_NORMAL = 1
 Const SW_MINIMIZED = 2
 Const SW_MAXIMIZED = 3
 
Private Declare Function ShowWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
Private Sub Form_Open(Cancel As Integer)
   Call ShowWindow(hWndAccessApp, SW_HIDE)
   DoCmd.OpenForm "CAMBIAR TEXTO", windowmode:=acDialog
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Dim lngRetCode As Long
   lngRetCode = ShowWindow(hWndAccessApp, SW_MAXIMIZED)
End Sub

Pero al implementarlo en mi base me responde con el siguiente herror:

Imagen1

por favor necesito ayuda para resolver este problema, les dejo otra captura de pantalla que podría facilitar el entendimiento de mi problema


Imagen2

de ante mano 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
Imágen de perfil de arrobangel
Val: 121
Bronce
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Navgar solo con formularios

Publicado por arrobangel (61 intervenciones) el 03/04/2018 23:46:00
Hola amigo Jorge.

perdón por la tardanza pero me encontraba sin pc durante estos días.

He revisado el link que me has proporcionado y utilizado el codigo: DoCmd.ShowToolbar "Ribbon", acToolbarNo
y me ha funcionado de maravilla.

muchas gracias por tu ayuda
y de nuevo una disculpa.
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