Tenho um form de cadastro de doações onde utilizo o DAO para registrar os mesmo dados em uma 2º tabelas.
Preciso que o código de lançamento seja lançado na 2º tabela com a letra D ex(114D)
O problema é que meu codigo DAO não está conseguindo localizar o registro na hora de alterar.
Ele retorna: "Erro de sintaxe (Operador faltando) na expressão."
Alguém sabe me dizer se é possível fazer a comparação de dados no Rs.FindFirst com a variável CodDoaNew que criei?
coloquei o seguinte código:
Dim CodDoaNew as String
CodDoaNew = Me.CódigoDoacao & "D"
Dim db As DAO.Database, Rs As DAO.Recordset
Set db = CurrentDb()
Set Rs = db.OpenRecordset("Tbl_LancamentosCaixa", dbOpenDynaset)
Rs.FindFirst ("CodigoGeral = " & CodDoaNew)
Rs.Edit
Rs("TipoLancamento") = "CRÉDITO"
Rs("NomeLancamento") = "ENTRADA DE DOAÇÕES"
Rs("DataLancamento") = Me.DataLancamento
Rs("Responsavel") = Me.RecolhedorResponsavel
Rs("ValorC") = Me.TxtValorTotal
Rs("CodigoGeral") = CodDoaNew
Rs("ValorD") = (Null)
Preciso que o código de lançamento seja lançado na 2º tabela com a letra D ex(114D)
O problema é que meu codigo DAO não está conseguindo localizar o registro na hora de alterar.
Ele retorna: "Erro de sintaxe (Operador faltando) na expressão."
Alguém sabe me dizer se é possível fazer a comparação de dados no Rs.FindFirst com a variável CodDoaNew que criei?
coloquei o seguinte código:
Dim CodDoaNew as String
CodDoaNew = Me.CódigoDoacao & "D"
Dim db As DAO.Database, Rs As DAO.Recordset
Set db = CurrentDb()
Set Rs = db.OpenRecordset("Tbl_LancamentosCaixa", dbOpenDynaset)
Rs.FindFirst ("CodigoGeral = " & CodDoaNew)
Rs.Edit
Rs("TipoLancamento") = "CRÉDITO"
Rs("NomeLancamento") = "ENTRADA DE DOAÇÕES"
Rs("DataLancamento") = Me.DataLancamento
Rs("Responsavel") = Me.RecolhedorResponsavel
Rs("ValorC") = Me.TxtValorTotal
Rs("CodigoGeral") = CodDoaNew
Rs("ValorD") = (Null)