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


2 participantes

    [Resolvido]Desfazer ou desabilitar código

    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Desfazer ou  desabilitar código Empty Desfazer ou desabilitar código

    Mensagem  flasbc 15/4/2012, 14:02

    Olá galera!

    Criei um código para desabilitar as ribbons que esta sendo executado por uma macro de nome AutoExec no access 2007 e gostaria de saber como posso criar um botão com evento para desfazer ou anular este código ou parar esta macro e as ribbons voltarem a aparecer automaticamente?

    Eis o código:

    Public Function fncDesabilitarRibbon()
    DoCmd.ShowToolbar "ribbon", acToolbarNo
    End Function

    Desde ja agradeço a todos
    Very Happy


    Última edição por flasbc em 15/4/2012, 14:03, editado 1 vez(es) (Motivo da edição : Falta de conteúdo)
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Desfazer ou  desabilitar código Empty Re: [Resolvido]Desfazer ou desabilitar código

    Mensagem  criquio 15/4/2012, 14:13

    Uma opção pode ser ter uma tabela de nome tblConfig com um campo de nome ExibirRibbon. Nesse campo, você coloca Sim ou Não e na função, algo assim:

    Código:
    Public Function fncDesabilitarRibbon()
        If DLookup("ExibirRibbon", "tblConfig", "Código=1") = "Não" Then
            DoCmd.ShowToolbar "ribbon", acToolbarNo
        Else
            DoCmd.ShowToolbar "ribbon", acToolbarYes
        End If
    End Function
    Quando quiser alterar isso, basta utilizar algo como:

    Código:
    CurrentDb.Execute "UPDATE tblConfig Set ExibirRibbon='" & Me.txtExibirRibbon & "' WHERE Código=1"
    Call fncDesabilitarRibbon
    Estamos considerando que você tenha um formulário de configuração com o campo txtExibirRibbon. Adapte à sua realidade.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidad
    Convidado


    [Resolvido]Desfazer ou  desabilitar código Empty Re: [Resolvido]Desfazer ou desabilitar código

    Mensagem  Convidad 15/4/2012, 14:20


    Pensei nisso, será que funcionaria?

    Incrementando a função, adicionando uma opção:

     
    Public Function fncDesabilitarRibbon(Numerico As Boolean)
    If Numerico = True Then
    DoCmd.ShowToolbar "ribbon", acToolbarNo
    Else
    ...
    End If
    End Function

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Desfazer ou  desabilitar código Empty Re: [Resolvido]Desfazer ou desabilitar código

    Mensagem  criquio 15/4/2012, 14:50

    Uma forma mais simples para não precisar do formulário de configuração, pode ser tambem editar a tblConfig ao alterar:

    Código:
    Public Function fncDesabilitarRibbon()
        If DLookup("ExibirRibbon", "tblConfig", "Código=1") = "Sim" Then
            DoCmd.ShowToolbar "ribbon", acToolbarNo
            CurrentDb.Execute "UPDATE tblConfig Set ExibirRibbon='Não' WHERE Código=1"
        Else
            DoCmd.ShowToolbar "ribbon", acToolbarYes
            CurrentDb.Execute "UPDATE tblConfig Set ExibirRibbon='Sim' WHERE Código=1"
        End If
    End Function
    Dessa forma, quando estiver exibindo as ribbons, a tabela terá um Sim. quando chamar a função, oculta a ribbon e passa o campo da tabela para Não e vice versa. Com isso, precisará epenas de um botão ou um atalho de teclado para chamar a função e alterar a exibição.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Desfazer ou  desabilitar código Empty Re: [Resolvido]Desfazer ou desabilitar código

    Mensagem  flasbc 15/4/2012, 15:12

    Funcionou certinho quem sabe, sabe eu consegui ainda fazer o seguinte código direto:

    Public Function fncHabilitarRibbon()
    DoCmd.ShowToolbar "ribbon", acToolbarYes
    End Function

    Também deu certo
    Em access até que me saio bem mais na parte módulos é uma negação.

    Só uma última dúvida tem como ocultar a barra de navegação pelo vb sem precisar usar o menu do access?

    Very Happy
    avatar
    Convidad
    Convidado


    [Resolvido]Desfazer ou  desabilitar código Empty Re: [Resolvido]Desfazer ou desabilitar código

    Mensagem  Convidad 12/5/2012, 18:32


    Form.NavigationButtons = False
    flasbc
    flasbc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Desfazer ou  desabilitar código Empty Re: [Resolvido]Desfazer ou desabilitar código

    Mensagem  flasbc 13/5/2012, 13:25

    Deu certo aqui com o exemplo do Criquio
    cheers
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Desfazer ou  desabilitar código Empty Re: [Resolvido]Desfazer ou desabilitar código

    Mensagem  criquio 13/5/2012, 17:14

    Grato pelo retorno. O fórum agradece.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Desfazer ou  desabilitar código Empty Re: [Resolvido]Desfazer ou desabilitar código

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 23:36