(Resolvido) Atualizar dados em outra tabela!

[Gil Kléber]

Olá pessoal!

Tentei utilizar o seguinte código pra fazer o seguinte:

-Verificar se é o primeiro dia do mês, se for, abre a tabela FechamentoLivroCaixa_Saldos, localiza o registro equivalente a data de pesquisa -1 (se abro a data 01/04, ele olha o saldo da data 31/03 e ZERA).

Fica dando erro dizendo que não existe registro atual... o que eu posso estar fazendo errado?

If Day(Forms![rel_Fechamento]![dataFechamentoA]) = 1 Then

Dim db As Database, rs As Recordset

Dim dataPesquisa As Date

dataPesquisa = Forms![rel_Fechamento]![dataFechamentoA] - 1

Set db = CurrentDb()

Set rs = db.OpenRecordset("SELECT * FROM fechamentoLivroCaixa_Saldos WHERE dataFechamento =" & dataPesquisa & "")

rs.Edit

rs("saldoTotal") = 0

rs.Update

rs.Close

db.Close

End If

Abraços a todos!!!

[Iceguy]

ve se isso arruma aí

Set rs = db.OpenRecordset("SELECT * FROM fechamentoLivroCaixa_Saldos WHERE dataFechamento =# & Format(dataPesquisa, "mm/dd/yyyy" & #")

[Gil Kléber]

Perfeito! Mais uma vez o amigo me ajudando aqui!

Forte abraço!!!

[Humm]

so uma dica.. nessas horas é bom utilizar o velho debug.print pra retornar o valores envolvidos.. assim a gente ve como o vba ta interpretando as coisas.