[Resolvido]Erro ao Excluir todos os registros na ListBox

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.

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:




É isso!

[]'s

FIM

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.

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.

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

Boa Noite!

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

Muito obrigado!

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:


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,

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.