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]Abrir e fechar painel de navegação via VBA

    Compartilhe
    avatar
    flasbc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    Registrado : 14/04/2012

    Abrir e fechar painel de navegação via VBA

    Mensagem  flasbc em Ter 17 Abr 2012, 17:35

    Olá galera boa tarde!

    Gostaria de saber se tem como abrir ou fechar o painel de navegação do access 2007 pelo vba, sem precisar usar as opções do access?

    Desde ja agradeço
    Wink
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir e fechar painel de navegação via VBA

    Mensagem  Silvio em Ter 17 Abr 2012, 18:12

    Boa tarde..

    use esse código.

    Private Sub Form_Load()

    'SelectObject usado para dar o foco ao Painel de Navegação
    DoCmd.SelectObject acForm, "Nome de um formulário", True
    'Ocultando janela com o foco
    DoCmd.RunCommand acCmdWindowHide

    End Sub


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

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir e fechar painel de navegação via VBA

    Mensagem  Silvio em Ter 17 Abr 2012, 18:14

    Ou este com modulo

    Public Sub SetStartupOptions(propname As String, propdb As Variant, prop As Variant)
    On Error Resume Next

    Dim dbs As Object
    Dim prp As Object
    Set dbs = CurrentDb

    dbs.Properties(propname) = prop
    If Err.Number = 3270 Then
    Set prp = dbs.CreateProperty(propname, propdb, prop)
    dbs.Properties.Append prp
    End If

    Set dbs = Nothing
    Set prp = Nothing

    End Sub


    Para ocultar:

    Call SetStartupOptions("StartupShowDBWindow", dbBoolean, False)


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    Registrado : 14/04/2012

    Re: [Resolvido]Abrir e fechar painel de navegação via VBA

    Mensagem  flasbc em Ter 17 Abr 2012, 23:11

    Ola boa noite

    A barra que eu falei é a que fica na lateral é o painel de navegação, aqui não deu certo, pq não da execução o código.

    Laughing
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3408
    Registrado : 04/04/2010

    Re: [Resolvido]Abrir e fechar painel de navegação via VBA

    Mensagem  Avelino Sampaio em Qua 18 Abr 2012, 01:09

    Veja se ajuda com algumas imagens.

    [Você precisa estar registrado e conectado para ver este link.]

    Bom estudo!
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Abrir e fechar painel de navegação via VBA

    Mensagem  Silvio em Qua 18 Abr 2012, 01:18

    Boa noite Avelino....

    se não vai de um jeito...vai do outro...

    abraços.


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    Registrado : 14/04/2012

    Re: [Resolvido]Abrir e fechar painel de navegação via VBA

    Mensagem  flasbc em Qua 18 Abr 2012, 17:27

    Blz a parte do menu do access eu vi, agora da pra montar o código completo pq eu sou meio leigo em VBA?

    Valeu pela resposta
    avatar
    flasbc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    Registrado : 14/04/2012

    Funcionou

    Mensagem  flasbc em Dom 13 Maio 2012, 04:46

    Avelino valeu mesmo ajudou muito seu tópico, eu fiz o seguinte com seu código:

    Para habilitar o painel de navegação:

    Public Function fnchabilitar()
    If InputBox("DIGITE A SENHA DO ADMINISTRADOR", "Senha de acesso") <> "123" Then
    MsgBox "Senha incorreta. Tente novamente", vbCritical, "Erro"
    Else
    MsgBox "SEJA BEM VINDO"
    DoCmd.ShowToolbar "ribbon", acToolbarYes
    DoCmd.OpenForm "TELA PRINCIPAL", , , , acFormAdd
    DoCmd.SelectObject acForm, , True
    End If

    End Function


    Para desabilitar:[u]

    Public Function fncDesabilitar()
    DoCmd.ShowToolbar "ribbon", acToolbarNo
    DoCmd.SelectObject acForm, , True
    DoCmd.RunCommand acCmdWindowHide

    End Function


    Após criar os códigos criei uma macro Autokeys onde com a tecla F1 ela pede a senha que é 123 acertando ela habilita errando não habilita nada, e a tecla F2 desabilita tudo, lembrando que com a mesma macro eu desabilito a tecla F11, assim não tem como habilitar o painel se não souber a senha.

    Veja o exemplo.
    Anexos
    AUTOKEYS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (13 Kb) Baixado 150 vez(es)
    avatar
    flasbc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    Registrado : 14/04/2012

    Re: [Resolvido]Abrir e fechar painel de navegação via VBA

    Mensagem  flasbc em Dom 13 Maio 2012, 13:27

    valeu a todos

    abjinfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 02/07/2015

    Re: [Resolvido]Abrir e fechar painel de navegação via VBA

    Mensagem  abjinfo em Dom 05 Jul 2015, 18:53

    Smile Silvio, valeu.... muito obrigado pela dica.

      Data/hora atual: Ter 21 Nov 2017, 12:08