Início
![[Resolvido]Ocultar todas as barras de menus do access ao exibir um formulario Empty](https://2img.net/i/empty.gif)
lucianonunes.jw 12/4/2012, 18:21Pessoal,
Utilizando o código abaixo que foi cedido por um nobre colega em nosso fórum, consigo ocultar todas as barras de menus do access. Porém, através deste formulário eu abro outros formulários através de botões. Mas quando o código abaixo é ativado, ele não permite que estes outros formulários sejam abertos. Se eu desativo o código abaixo eu consigo abrir os outros formulários.
Como posso resolver este problema: abrir outros formulários mantendo as barras de menus ocultas?
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Private Declare Function apiShowWindow Lib "User32" _
Alias "ShowWindow" (ByVal Hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Function FSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
Utilizando o código abaixo que foi cedido por um nobre colega em nosso fórum, consigo ocultar todas as barras de menus do access. Porém, através deste formulário eu abro outros formulários através de botões. Mas quando o código abaixo é ativado, ele não permite que estes outros formulários sejam abertos. Se eu desativo o código abaixo eu consigo abrir os outros formulários.
Como posso resolver este problema: abrir outros formulários mantendo as barras de menus ocultas?
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Private Declare Function apiShowWindow Lib "User32" _
Alias "ShowWindow" (ByVal Hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Function FSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
Última edição por lucianonunes.jw em 12/4/2012, 18:35, editado 1 vez(es)
