[Resolvido]Código VBA não Deleta itens da Tabela.

Olá Forum!

Coloquei uma linha de código ao abrir o formulário para zerar a tabela e o numero automático e não está funcionando.

Alguém pode me ajudar?


Private Sub Form_Load()
DoCmd.Hourglass True

strSql = "DELETE * FROM tblLinhas WHERE isnull(IdLinha)"
DoCmd.SetWarnings False
DoCmd.RunSQL strSql
DoCmd.SetWarnings True
DoEvents

DoCmd.Echo True, "Compactando a tabela produtos"

DoCmd.Hourglass False

Beep
MsgBox "Operação realizada com êxito!", vbInformation, "Ajuste de arquivos"
End Sub

Meu versão do Access 2010.

Obrigado.

Olá, amigo a Instrução SQL está correta! Porém, observe que ela tem um Critério!

"DELETE * FROM tblLinhas WHERE isnull(IdLinha)" <== Irá excluir a LINHA inteira do Registro se o Campo IdLinha for NULO.

Se não for isso que pretende, explique o que pretendia com ela.

Olá Fabio!

Obrigado por me responder.

Vou tentar explicar o que eu quero:

Tenho um Formulário que ao carregar quero que zere a Tabela Linha, inclusive o Id de Número Automático, pois no mesmo formulário vou ter um Botão para filtrar novamente por data os dados e alimentar a mesma tabela.

Se quer que APAGUE TUDO da tabela, rode a instrução sem o Critério.

*** Atenção! Irá apagar tudo da tabela tbLinhas
"DELETE * FROM tblLinhas"

Fábio!

Funcionou, apagou tudo, mais eu também quero que o Campo Id (Número Automático) volte a contar do 0 quando eu incluir novamente os dados.
Tem como?

Olá, se o campo ID for Auto numeração (Nativo do Access) ele não volta!

Só volta se apos o delete, vc compactar e reparar o BD, caso contrário não reinicia!

Fábio!
Valeu e muito obrigado.

Grato pelo retorno, até a próxima se Deus quiser!