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]Função RepararCompactar por botão deixa de funcionar

    Ivan Carlo
    Ivan Carlo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 13/06/2015

    [Resolvido]Função RepararCompactar por botão deixa de funcionar Empty [Resolvido]Função RepararCompactar por botão deixa de funcionar

    Mensagem  Ivan Carlo 25/6/2020, 18:03

    Boa tarde Amigos e Mestres.
    Eu uso uma função sugerida aqui neste forum que só funciona com uma condição.

    A função é colocada em um botão para compactar e Reparar o BD quando uma tabela tem seus registros deletados.
    Isso é preciso para que a contagem dos numeros do registros à partir do "1" seja iniciada pois trata-se de uma numeração Automática.

    A função é:
    Código:
    Public Function RepararCompactar()
    On Error Resume Next
    CurrentDb.Execute "DELETE * FROM Produtos WHERE Misto=True And Fixo=False"

    Dim P As String
    P = Access.DBEngine.IniPath
    If P = "Software\Microsoft\Office\16.0\Access\Access Connectivity Engine" Then
        'MsgBox "Office 2016"
        SendKeys "%(Tm)", False
    ElseIf P = "Software\Microsoft\Office\15.0\Access\Access Connectivity Engine" Then
        'MsgBox "Office 2013"
        SendKeys "%(Tm)", False
    ElseIf P = "Software\Microsoft\Office\14.0\Access\Access Connectivity Engine" Then
        'MsgBox "Office 2010"
        SendKeys "%(Tc)", False
    ElseIf P = "Software\Microsoft\Office\12.0\Access\Access Connectivity Engine" Then
        'MsgBox "Office 2007"
        SendKeys "%(AgO)", False
    Else
        MsgBox "Adicione este caminho no código " & P
    End If
    End Function

    Ésta função funciona bem, mas se eu usar uma Macro Autoexec para esconder a Barra de opções do Office com a função:
    Código:
    Public Function fncDesabilitarRibbon()
       DoCmd.ShowToolbar "ribbon", acToolbarNo
    End Function

    A função RepararCompactar, pára de funcionar. Ela só age deletando os registros da tabela, mas não repara e compacta o BD.
    Alguém sabe uma solução?
    Obrigado desde já.
    Meu Office: Microsoft Office Profissional 2016 Plus
    Windows: Windows 10 64Bits


    Última edição por Ivan Carlo em 25/6/2020, 18:07, editado 1 vez(es) (Motivo da edição : Adição de informações sobre o meu Sistema)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Função RepararCompactar por botão deixa de funcionar Empty Re: [Resolvido]Função RepararCompactar por botão deixa de funcionar

    Mensagem  DamascenoJr. 26/6/2020, 01:50

    Public Function RepararCompactar()
    On Error Resume Next
    CurrentDb.Execute "DELETE * FROM Produtos WHERE Misto=True And Fixo=False"
    DoCmd.ShowToolbar "ribbon", acToolbarYes
    Dim P As String
    P = Access.DBEngine.IniPath
    If P = "Software\Microsoft\Office\16.0\Access\Access Connectivity Engine" Then
       'MsgBox "Office 2016"
       SendKeys "%(Tm)", False
    ElseIf P = "Software\Microsoft\Office\15.0\Access\Access Connectivity Engine" Then
       'MsgBox "Office 2013"
       SendKeys "%(Tm)", False
    ElseIf P = "Software\Microsoft\Office\14.0\Access\Access Connectivity Engine" Then
       'MsgBox "Office 2010"
       SendKeys "%(Tc)", False
    ElseIf P = "Software\Microsoft\Office\12.0\Access\Access Connectivity Engine" Then
       'MsgBox "Office 2007"
       SendKeys "%(AgO)", False
    Else
       MsgBox "Adicione este caminho no código " & P
    End If
    End Function


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Ivan Carlo
    Ivan Carlo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 13/06/2015

    [Resolvido]Função RepararCompactar por botão deixa de funcionar Empty Re: [Resolvido]Função RepararCompactar por botão deixa de funcionar

    Mensagem  Ivan Carlo 26/6/2020, 04:49

    Boa Noite Amigo Damasceno.
    Crying or Very sad Não deu certo.
    Continua não reparando.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Função RepararCompactar por botão deixa de funcionar Empty Re: [Resolvido]Função RepararCompactar por botão deixa de funcionar

    Mensagem  DamascenoJr. 26/6/2020, 05:06

    Aqui resolveu. Aguardemos mais retornos.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Função RepararCompactar por botão deixa de funcionar Empty Re: [Resolvido]Função RepararCompactar por botão deixa de funcionar

    Mensagem  DamascenoJr. 24/9/2020, 00:37

    Ivan Carlo, resolveu?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Ivan Carlo
    Ivan Carlo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 13/06/2015

    [Resolvido]Função RepararCompactar por botão deixa de funcionar Empty Re: [Resolvido]Função RepararCompactar por botão deixa de funcionar

    Mensagem  Ivan Carlo 30/9/2020, 20:57

    Ola Amigo Damasceno.
    Não resolvi como esperado, mas arrumei um "jeitinho Brasileiro" para contornar o impasse.
    Criei um formulário no back end com dois botões. O Primeiro deleta os registros citados e repara e compactao BD. Depois de clicado no primeiro, o botão fica invisível dando lugar à um segundo botão "Finalizar" que fecha o back end e reabre o frond End, em separado. Very Happy
    Antes disso, criei tb um botão no Front End que abre o Back end e fecha o Front End.
    Então....para não ficar em aberto, vou dar o tópico como resolvido.
    Obrigado. Laughing

    Conteúdo patrocinado


    [Resolvido]Função RepararCompactar por botão deixa de funcionar Empty Re: [Resolvido]Função RepararCompactar por botão deixa de funcionar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 02:59