[Resolvido]Excluir registros com campos vazios

Boa tarde pessoal

estou usando o exemplo do amigo João Paulo para salvar histórico, porem a minha aplicação permite campos vazios, o mesmo acaba gravando campos vazios

então a tabela possui alguns registros com campos vazios

gostaria uma rotina para varrer a tabela em busca de dos registros e exclui-los

tentei essa rotina abaixo sem sucesso

Dim db As dao.Database
Dim strSql As String
Set db = Aplication.CurrentDb
strSql = "DELETE TblLog.* FROM TblLog WHERE ((TblLog.ValorAntigo)=""and(TblLog.ValorAntigo)="")"
db.Execute (strSql)
Set db = Nothing

alguem pode me ajudar?

vlw

Currentdb.Execute "DELETE * FROM TblLog WHERE ValorAntigo Is Null"

João Paulo

desde já agradeço a enorme ajuda

em que parte do código posso inserir a linha?

outra ajuda: tenho um controle de guias com varios subforms? basta que eu insira no "case" acSubforms?

Private Sub Command8_Click()
Dim strChekaDiferente As Boolean
Dim strSQL As String
Dim ctl As Control
Dim strUser As String
'By JPaulo ® Maximo Access
'http://maximoaccess.forumeiros.com/
'2010-06-11
'Importante: Todos os botões de navegação devem conter a
'chamada de toda esta instrução.
'O form não deve ter o botão fechar ativo, deve colocar um botão para esse efeito e chamar a instrução.

On Error Resume Next
strUser = GetUserName_TSB
If Me.NewRecord Then 'verifica se é um novo registro, se for morre aqui
Exit Sub
Else
' se não for um novo registro, coloca a variável de chekar alterações como False
strChekaDiferente = False

For Each ctl In Me.Controls
' Percorre todos os tipos de controles
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox

If ctl.Value <> ctl.OldValue Or (IsNull(ctl.Value) Or ctl.Value = "") Then
'se algum valor foi alterado ou deletado, coloca a variável de chekar alterações como True
strChekaDiferente = True
'e registra na tabela do Log
DoCmd.SetWarnings False
strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual) IN 'C:\Users\Marcelo\Desktop\segor_bd\exemploes\Historico.mdb'" & _
"Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "')"
DoCmd.RunSQL strSQL

DoCmd.SetWarnings True
'termina e volta a colocar a variável de chekar alterações como False
strChekaDiferente = False
Else
Cancel = True
End If

End Select
Next ctl
End If
'Salva tudo o que foi feito
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual) IN 'C:\Users\Marcelo\Desktop\segor_bd\exemploes\Historico.mdb'" & _
"Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "')"
DoCmd.RunSQL strSQL
Currentdb.Execute "DELETE * FROM TblLog WHERE ValorAntigo Is Null"

João Paulo

inseri o código, porem não apagou nada

att

Teste assim;

Currentdb.Execute "DELETE * FROM TblLog WHERE ValorAntigo="""

JPaulo

Já havia realizado esse teste,

tentei novamente

não funcionou

Não seria pelo motivo da tabela "Historico" estar fora do bd RegistraAlterações?

Abraço

Claro que sim, rapaz não tinha visto que o insert é num IN externo.

Jpaulo

Então me ajuda ai? rs

sei o que fazer... agora como fazer tá difícil pra mim...

sou iniciante querendo fazer algo complexo

estou estudando teus exemplos e customizando meu projeto, esta ficando nota 10

abraço

Estou no tablet sem Access no momento, mas será o mesmo conceito,

Currentdb.Execute "DELETE * FROM TblLog IN '" & C:\Users\Marcelo\Desktop\segor_bd\exemploes\Historico.mdb & "' Where ValorAntigo Is Null"

JPaulo

tentei sem sucesso

me ajuda ai?

abraço

Currentdb.Execute "DELETE FROM TblLog IN 'C:\Users\Marcelo\Desktop\segor_bd\exemploes\Historico.mdb' Where TblLog.ValorAntigo Is Null"

JPaulo não consegui implementar pela linha acima,

então quebrando a cabeça resolvi da seguinte maneira, não deve ser o usual, fiz um remendo danado, mas funcionou:

1) criei uma consulta de exclusão

DELETE *
FROM tblLog:o   
WHERE (
tblLog.ValorAtual)=[tblLog].[ValorAntigo];

2) Vinculei a tabela historico no meu Front-end

3) Após a rotina de salvar o histórico chamei a consulta de exclusão.

DoCmd.SetWarnings False

DoCmd.OpenQuery ("Consulta1")

DoCmd.SetWarnings True

Até o momento o problema foi contornado, não sei se vai deixar o sistema lento quando em produção...

Abraços e agradeço mais uma vez

Fiz aqui alguns testes e da maneira como lhe passei funciona na boa;

Tem de ver o que é que está mal na sua instrução;

Reveja por favor os nomes no caminho, acho estranho por exemplo o "exemploes".

Currentdb.Execute "DELETE FROM TblLog IN 'C:\Users\Marcelo\Desktop\segor_bd\exemploes\Historico.mdb' Where TblLog.ValorAntigo Is Null"

JPaulo utilizei no teu exemplo "RegistraAlterações"... a pasta "exemploes" esta correta, o código esta registrando alterações porem registra tambem todos os campos vazios, tenho uma tabela com 25 campos, se preencho 1 os demais tambem registram vazios no historico

adicionei a linha conforme vc orientou mas não funcionou....


Currentdb.Execute "DELETE FROM TblLog IN 'C:\Users\Marcelo\Desktop\segor_bd\exemploes\Historico.mdb' Where TblLog.ValorAntigo Is Null"

por isso acabei por utilizar o plano B

abraço

Olha só;

Criei um banco somente com uma tabela e alguns registos Nulos, e coloquei esse banco na minha drive C:\

No meu ambiente de trabalho (Desktop) com outro banco, corri essa linha de código e voilá, todos os registros Nulos já eram;

Pode testar com mais esta instrução do Like;

CurrentDb.Execute "DELETE FROM tblTeste IN 'C:\BancoTeste.accdb' Where tblTeste.ValorAntigo Is Null Or tblTeste.ValorAntigo Like ' '"

blz.... vou fazer o teste e retorno

abraço e mais uma vez te agradeço

Aguardo...

JPaulo fiz o teste e não funcionou... utilizo o access 2010 pode ser a causa do problema?

Private Sub Command9_Click()
Dim strChekaDiferente As Boolean
Dim strSql As String
Dim ctl As Control
Dim strUser As String
'By JPaulo ® Maximo Access
'http://maximoaccess.forumeiros.com/
'2010-06-11
'Importante: Todos os botões de navegação devem conter a
'chamada de toda esta instrução.
'O form não deve ter o botão fechar ativo, deve colocar um botão para esse efeito e chamar a instrução.

On Error Resume Next
strUser = GetUserName_TSB
If Me.NewRecord Then 'verifica se é um novo registro, se for morre aqui
Exit Sub
Else
' se não for um novo registro, coloca a variável de chekar alterações como False
strChekaDiferente = False

For Each ctl In Me.Controls
' Percorre todos os tipos de controles
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox, acSubform, acTabCtl

If ctl.Value <> ctl.OldValue Or (IsNull(ctl.Value <> ctl.OldValue) Or ctl.Value = "" <> ctl.OldValue) Then
'se algum valor foi alterado ou deletado, coloca a variável de chekar alterações como True
strChekaDiferente = True
'e registra na tabela do Log
DoCmd.SetWarnings False
strSql = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual) IN 'C:\Users\Marcelo\Desktop\segor_bd\exemploes\Historico.mdb'" & _
"Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "')"

CurrentDb.Execute "DELETE FROM tblLog IN 'C:\Users\Marcelo\Desktop\segor_bd\exemploes\Historico.mdb' Where tblLog.ValorAntigo Is Null Or tblLog.ValorAntigo Like ' '"


DoCmd.RunSQL strSql
DoCmd.SetWarnings True
'termina e volta a colocar a variável de chekar alterações como False
strChekaDiferente = False
Else
Cancel = True
End If

End Select
Next ctl
End If
'Salva tudo o que foi feito
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, acMenuVer70

End Sub

Você utiliza o Access 2010 e tem o histório em .mdb ?????

JPaulo

sim utilizo o 2010 , os exemplos do fórum funcionam na sua maioria

abraço

Agora foi

DoCmd.SetWarnings False
strSQL1 = "DELETE * FROM tblLog IN 'C:\banco.mdb' WHERE (tblLog.ValorAtual)=[tblLog].[ValorAntigo]"
DoCmd.RunSQL strSQL1

Obrigado pelo retorno o forum agradece.