MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 212
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em Ter 17 Set 2013, 04:40

    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....
    avatar
    Nivaldo
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 08/12/2009

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

    Mensagem  Nivaldo em Ter 17 Set 2013, 12:49

    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.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3612
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 17 Set 2013, 13:01

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 212
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em Ter 17 Set 2013, 13:50

    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...
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3612
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 17 Set 2013, 14:00

    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, [Você precisa estar registrado e conectado para ver este link.]
    '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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 212
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em Ter 17 Set 2013, 15:04

    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...


    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 212
    Registrado : 26/06/2013

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

    Mensagem  cjsilva2013 em Ter 17 Set 2013, 15:18

    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3612
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 17 Set 2013, 15:25

    O fórum agradece o retorno.

    Sucesso !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    FlavioLima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 14/02/2016

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

    Mensagem  FlavioLima em Seg 14 Mar 2016, 17:00

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

    Muito Grato!

    wlademir.pacheco
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 12/03/2017

    Como fazer para retornar ao Acces

    Mensagem  wlademir.pacheco em Qui 13 Abr 2017, 16:07


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

    Como resolver?

    Randerson Abdon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 12/09/2017

    Como ocultar o access e so navegar com formularios

    Mensagem  Randerson Abdon em Qua 13 Set 2017, 03:10

    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... Smile

    Espero ter ajudado...

      Data/hora atual: Qui 21 Set 2017, 09:49