[Resolvido]Ocultar painel de navegação e mostrar só os formes no access

Boa noite pessoal, olha eu de volta e precisando a da vossa ajuda...

Estou finalizando um aplicativo e surgiu uma dificuldade e pelo que li em vários comentário feitos aqui e em outros sites é complicado de resolver... Mas vamos lá...

Estou usando o código abaixo para minimizar a barra de navegação e mostrar só o form principal e os demais. Só que esse código como ele minimiza e não oculta num todo as barras de navegação. Quando o usuário clicar no ícone da barra de Tarefas abre o painel de Navegação...

O programa é em access 2010 mais criei com base 2003...

Por favor me ajudem!

O que quero é que definitivamente ao clicar no ícone do programa na área de trabalho abra só o form principal e oculte o painel de navegação do Access...

Segue código:

'=== inicio do código ==========

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

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


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
End Function

'======= fim do código


Coloca no Evento Ao carregar ou Ao Abrir do form Principal (Abertura)
Call fAccessWindow("Minimize", False, False)

Esse funciona, mais só minimiza, aí não fica legal!

Desde já agradeço pela ajuda...

Abraços e boa noite a todos do fórum....

Bom dia Francisco,

Uso o 2007 e funciona dessa maneira:

clica no botão do office (canto superior esquerdo)
Clica em Opções do Access (embaixo)
Na lista do lado esquerdo da tela, clica em Banco de Dados Atual
Nas opções do lado direito, em Navegação, desmarque a caixa: Exibir Painel de Navegação

Se entendi bem, deve ser isso.


Nivaldo.

Bom dia a todos...

Com a tua permissão Nivaldo, coloque esse código no teu primeiro formulário a ser aberto em teu aplicativo:

Private Sub Form_Load()
' esconde a barra de menu
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub

Bom dia amigos, desde já agradecendo pela ajuda...

Nivaldo, já estava desmarcada a Opção: Exibir Painel de Controle no BD, mesmo assim não deu certo...

Silvio, funcionou com o código que você passou. Mais a tela por tráz do MENU Iniciar ou Login fica sinza, o que queria e já vi algo num aplicativo do Gilberto Rocha que abre o Menu mais literalmente sem o ACCESS por tráz. Abre só a tela de Login e os demais forms.

Aqui eu entendi o Painel e as Ribbons foram ocultadas. Mais gostaria de ter só a tela de Login...

Já tentei vários scripts... Mais não deram certo...

Não sei se vocês conhecem o CongregaFácil do amigo Gilberto Rocha. é feito em access e ele faz isso. Temos ele aqui na nossa Igreja...

Quando você entra nele abre só a tela de Login, aparece o ícone na barra de tarefas mais ao clicar não abre a estrutura do access! Seria isso que preciso para finalizar o aplicativo...

Desde já agradeço mais uma vez se puderem me ajudar...

Hummmm...entendo.

Você quer que o fique tudo transparente por detrás ???

Eu não conheço o programa, mas pelo que você me disse, acho que vai ter que usar um aplicativo desenvolvido pelo colega Avelino Sampaio, chamado MontaRibbons.

Mas existem outros recursos disponíveis aqui no repositório de exemplos, que podem fazer a mesma coisa.

Um deles, usa um módulo chamado AccessTransparent.

Crie um Módulo e salve ele com o nome: Api ventana transparente e cole esse código:

Option Compare Database
Option Explicit
'Autor de la función base: Indeterminado
'Declaraciones
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

'Constantes
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

Function AccessTransparente(Nivel As Integer)
'Adaptación: Byron Contreras, febrero 08, byronlcl@gmail.com
'Objetivo: Ajustar el nivel de transparencia de la ventana principal
' de access. El nivel de transparencia debe estar entre 0 a 250
'.............................................................................
Dim lngHwnd As Long
If Nivel < 0 Or Nivel > 250 Then Exit Function
lngHwnd = Application.hWndAccessApp
SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes lngHwnd, 0, Nivel, LWA_ALPHA
End Function


Depois no teu primeiro formulário a ser aberto, evento ao carregar, cole esse:

Call AccessTransparente(0)

Salve o mesmo, e reinicie o banco de dados, mantendo os códigos anteriores que lhe foram passados.

Teste e nos informe.

Amigos, quase chegando lá...

Fiz conform orientado ao abrir o form de Login some o painel e as ribbons.

Porém na entrada quando clico no ícone na área de trabalho aparece as ribbons e a tela cinza, só quando abre o form é que fica oculto...

Falta pouco.

Coloquei o comando,

' esconde a barra de menu
DoCmd.ShowToolbar "Ribbon", acToolbarNo

no Ao Carregar e Ao Abrir do primeiro form, mesmo assim abre a tela cinza e fecha quando form Login abre...

seria só ocultar antes de entrar o Login e Senha...

Pessoal aogra, foi!

Tinha uma mensagem no início e estava abrindo a tela cinza, eliminei agora ficou show de bola...

Mais uma vez minha divida cresce com o fórum...

Obrigado a todos e que Deus continue os abençoando de forma grande.

Abraços,

Resolvido

O fórum agradece o retorno.

Sucesso !

3 anos depois buscando no fórum esse módulo disponibilizado resolveu meu problema.

Muito Grato!

Pessoal,
Este código é o que procurava, excelente ajuda.
Entretanto, quando quero retornar ao Access para verificar algo... não é possível.

Como resolver?

cria um atalho da sua aplicação access na área de trabalho ou outro lugar qualquer, clique com o botão direito do mouse,
va em propriedades... na opção "destino" no final da linha depois do "c:\xxx.mdb", você coloca ( /runtime) ficando então,
"C:\xxx.mdb" /runtime .... PS: as aspas tem que permanecer exatamente como estão adicionando o /runtime apos ela... e na
opção "executar" você escolhe "minimizado"... aplicar e testar...

Espero ter ajudado...

Oi wlademir.pacheco

Para o access ficar visivel, alterar o "0" para "250"

Pode testar criando dois botões em um formulário:

Botão invisivel

Call AccessTransparente(0)

Botão visivel

Call AccessTransparente(250)

Senhores, muito obrigado pela contribuição.

Funcionou muito bem.