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]Erro ao Excluir todos os registros na ListBox

    avatar
    AUGUSTO MORGADO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 16/12/2013

    [Resolvido]Erro ao Excluir todos os registros na ListBox Empty [Resolvido]Erro ao Excluir todos os registros na ListBox

    Mensagem  AUGUSTO MORGADO 20/3/2022, 16:42

    Boa tarde !

    Anteriormente solicitei ajuda aqui no forum com relação a ListBox, recebi um grande ajuda do Alexandre_Fim, porém um comando do botão excluir está dando erro, já tentei outras expressões, porém sem sucesso.

    Se alguém tiver alguma dica de como posso resolver esse problema, desde já agradeço!

    Estou deixando aqui uma cópia do Bd com a situação relatada.
    Anexos
    [Resolvido]Erro ao Excluir todos os registros na ListBox AttachmentBdListBox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (308 Kb) Baixado 4 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Erro ao Excluir todos os registros na ListBox Empty Re: [Resolvido]Erro ao Excluir todos os registros na ListBox

    Mensagem  Alexandre Fim 20/3/2022, 21:05

    Olá Augusto,

    No exemplo que te mandei anteriormente, em algum formulário, existe uma sub chamada "MontaString", que lê todas as linhas da listbox e monta a string para exclusão de dados. Segue:

    [Resolvido]Erro ao Excluir todos os registros na ListBox Montas10


    É isso!

    []'s

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erro ao Excluir todos os registros na ListBox Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    AUGUSTO MORGADO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 16/12/2013

    [Resolvido]Erro ao Excluir todos os registros na ListBox Empty Re: [Resolvido]Erro ao Excluir todos os registros na ListBox

    Mensagem  AUGUSTO MORGADO 20/3/2022, 22:47

    Boa Noite Alexandre!

    Isso mesmo Alexandre, estava faltando essa sub Chamada, inclui a sub chamada, agora está aparecendo que não tem nenhum arquivo selecionado.

    Se tiver alguma dica para me ajudar! Desde já te agradeço.

    Erro-Excluir-Arquiv
    Anexos
    [Resolvido]Erro ao Excluir todos os registros na ListBox AttachmentBdListBox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (295 Kb) Baixado 5 vez(es)
    avatar
    AUGUSTO MORGADO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 16/12/2013

    [Resolvido]Erro ao Excluir todos os registros na ListBox Empty Re: [Resolvido]Erro ao Excluir todos os registros na ListBox

    Mensagem  AUGUSTO MORGADO 29/3/2022, 02:20

    Boa Noite !
    Ainda estou buscando solução a respeito desse erro, procurei por vários modelos para vê se encontrava alguma solução para esse problema, mas sem sucesso.

    Fico grato por quem puder me ajudar.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Erro ao Excluir todos os registros na ListBox Empty Re: [Resolvido]Erro ao Excluir todos os registros na ListBox

    Mensagem  Alexandre Fim 29/3/2022, 02:40

    Boa noite Augusto,
    Vou baixar o exemplo que vc mandou e vou analisar o erro.
    Valeu
    Abs


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erro ao Excluir todos os registros na ListBox Setinf11
    Sistemas e Tecnologia Ltda

    AUGUSTO MORGADO gosta desta mensagem

    avatar
    AUGUSTO MORGADO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 16/12/2013

    [Resolvido]Erro ao Excluir todos os registros na ListBox Empty Re: [Resolvido]Erro ao Excluir todos os registros na ListBox

    Mensagem  AUGUSTO MORGADO 30/3/2022, 02:12

    Boa Noite!

    Ta ok meu amigo! Fico grato por sua atenção.

    Muito obrigado!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Erro ao Excluir todos os registros na ListBox Empty Re: [Resolvido]Erro ao Excluir todos os registros na ListBox

    Mensagem  Alexandre Fim 30/3/2022, 06:28

    Olá Augusto,

    Ao analisar o codigo, encontrei alguns erros.

    Toda vez que copiar qualquer código para o teu sistema, certifique-se que não vai gerar erros, através da compilação do código.
    Para compilar, vá no código VBA, no menu "Depurar">"Compilar [NomeDoSeuBD]"

    O sistema não está excluindo, porque a variável que concatena todos os códigos para exclusão está vazia.
    Esta variável é carregada na execução da sub "MontaString", porém, quando ela retorna no evento "cmdExcluir_Click", ela volta vazia, pq o VBA limpa as variáveis quando muda de um evento para outro e quando estas não são declaradas como públicas do formulário.

    Tive que declarar as variáveis abaixo:
    [Resolvido]Erro ao Excluir todos os registros na ListBox Erro_110

    Após corrigir os erros, mesmo assim o está gerando erro ao excluir, pois vc está utilizando uma Consulta Seleção na instrução SQL:
    CurrentDb.Execute ("DELETE FROM Cs_ExcluiArquivo WHERE COD_REG IN (" & sCod & ")")

    Nota: voce também pode utilizar uma Consulta Exclusão para excluir registros.

    Porém, deve utilizar o nome da tabela do(s) respectivo(s) registro(s) para exclusão.
    CurrentDb.Execute ("DELETE FROM TbArquiRegistro WHERE COD_REG IN (" & sCod & ")")

    OBS: Leia os comentários para entender o que cada código executa.
    OBS2: Procure sempre adequar os nomes dos controles conforme sua característica. (Ex: txtNomeCliente, cboAno, lstFornecedores e etc)

    Controle "Combinação4"?
    Controle "Comando14"?
    Controle "txt1"?

    Procure utilizar as boas práticas de programação, pois desta forma a manutenção do sistema fica mais fácil e legível.

    Segue versão ajustada.

    Att,


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erro ao Excluir todos os registros na ListBox Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    AUGUSTO MORGADO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 16/12/2013

    [Resolvido]Erro ao Excluir todos os registros na ListBox Empty Re: [Resolvido]Erro ao Excluir todos os registros na ListBox

    Mensagem  AUGUSTO MORGADO 1/4/2022, 14:11

    Bom Dia Alexandre!

    Muito obrigado! Vou seguir suas dicas, cada dia busco um pouco mais sobre o assunto, e quando surge os problemas, e procuramos resolver, ou procurando ajuda, aprendemos mais.

    Valeu Alexandre! até Breve.

      Data/hora atual: 24/9/2022, 21:04