MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


+3
FlavioLima
Silvio
cjsilva2013
7 participantes

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

    avatar
    cjsilva2013
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  cjsilva2013 17/9/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
    Convidado
    Convidado


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

    Mensagem  Convidado 17/9/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.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 17/9/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    cjsilva2013
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  cjsilva2013 17/9/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...
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 17/9/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, 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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    cjsilva2013
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  cjsilva2013 17/9/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...

    avatar
    cjsilva2013
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  cjsilva2013 17/9/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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 17/9/2013, 15:25

    O fórum agradece o retorno.

    Sucesso !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    FlavioLima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FlavioLima 14/3/2016, 17:00

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

    Muito Grato!
    avatar
    wlademir.pacheco
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ocultar painel de navegação e mostrar só os formes no access Empty Como fazer para retornar ao Acces

    Mensagem  wlademir.pacheco 13/4/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?
    avatar
    Randerson Abdon
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ocultar painel de navegação e mostrar só os formes no access Empty Como ocultar o access e so navegar com formularios

    Mensagem  Randerson Abdon 13/9/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...
    avatar
    Throny
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 15/05/2014

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

    Mensagem  Throny 12/10/2018, 06:55

    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)
    avatar
    Allan Silva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 07/03/2019

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

    Mensagem  Allan Silva 12/3/2019, 13:00

    Senhores, muito obrigado pela contribuição.

    Funcionou muito bem.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 01:37