[Resolvido]Ocultar a tela do ACCESS e mostrar as ribbons

Boa tarde


Andei vendo no forum que tem alem de esconder a tela do access e mostrar apenas formulário pelo atalho selecionando em executar minimizado tem também o modulo abaixo mas o problema é que nenhum dos dois jeitos mostram as ribbons , alguem conhece alguma maneira de fazer isso ?

Grato

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If

Olá

Quando se esconde a janela do Access, também estará escondendo as ribbons, pois

elas fazem parte da janela do Access.

Portanto, deverá fazer teu próprio menu em um formulário.

[ ]'s

Saudações ao amigos!

Nobezinho, permita-me uma dica sobre essa duvida!


Eu utilizou um Modulo para deixar transparente toda a faixa da Ribbon...com uma função aqui fo Forum (AccessTransparente). Ocorre que volta e meia precisava utilizar os Filtros nativos do Access la da Ribbon... Então a solução que achei, sem preder o espaço da tela e a vantagem da transparencia foi criar um formulário a parte onde ao carregar eu Torno visível novamente a faixa de Ribbons.

Aqui está o Modulo https://www.maximoaccess.com/t705-resolvidoesconder-access

Para chamar esse Modulo, basta no evento ao carregar do PRIMEIRO formulario colocar:

Call AccessTransparente(0)
DoCmd.ShowToolbar "Ribbon", acToolbarNo

'Ribbons desativadas e Faixa de fundo invisivel.


Agora sempre que precisar aplicar filtros avançados, eu coloquei em um formulário o Inverso:


Call AccessTransparente(248)
DoCmd.ShowToolbar "Ribbon", acToolbarYes

'Torna a Ribbon visivel e ativada.

Ótimo Fabio

Quanto mais sei, sei que nada sei ! Alguém disse isso?

Tenho apenas uma aplicação sendo utilizada até então com ribbons.

Depois disso, nunca mais usei ribbons em minhas aplicações, por achar

de uma aparência infantil aquela faixa muito larga, já basta ver isso na tela do Access.

Mas é apenas minha opinião!

Então, não preciso esconder o Access e muito menos utilizar as ribbons.

Faço meu próprios menus num formulário que serve como pano de fundo de meus aplicativos.

[ ]'s

Legal , geralmente eu uso formulário com menu em vez de ribbons , só que esse agora resolvi colocar algumas coisas em ribbon em vez de menu, mas estou pensando em colocar algum filtro para que a ribbon carregue apenas para alguns usuários com nível de admin e para o resto carregue apenas o menu mesmo, se bem que nem sei se da pra fazer isso eu sou muito inexperiente em VBA e ribbons. mas vou trabalhar um pouco mais na aplicação e depois vejo isso.


Dede ja obrigado a todos.