[Resolvido]Erro ao salvar

Meu formulario eh desvinculado e para salvar utilizo o codigo abaixo, so que de repente comecou a dar o seguinte erro, "Erro em tempo de execucao"3219" Operacao Invalida". Ate o momento somente apresenta na linha em destaque. O estranho que já havia feito testes.


Dim db1 As Database, rs1 As DAO.Recordset
Dim db2 As Database, rs2 As DAO.Recordset

Set db1 = CurrentDb
Set db2 = CurrentDb


Set rs1 = db1.OpenRecordset("tblCertidao", dbOpenTable)
Set rs2 = db2.OpenRecordset("tblContGuia", dbOpenTable)

With rs1
' os campos abaixo do formulário tem que ser iguais aos que estão na tabela para realizar a exportação
.AddNew
' campos que estão na tabela = campos do fomulario
rs1![NumCert] = Me.NumCert
rs1![Area] = Me.Area
rs1![Benfeitoria] = Me.Benfeitoria
rs1![Financiado] = Me.Financiado
rs1![Construcao] = Me.Construcao
rs1![VlrFinanc] = Me.VlrFinanc
rs1![Banco] = Me.Banco
rs1![Agencia] = Me.Agencia
rs1![DtaRec] = Me.DtaRec
rs1![Guia] = Me.Guia
rs1![InscImob] = Me.InscImob
rs1![NC] = Me.NC
rs1![Deb] = Me.Deb
rs1![VlrDeb] = Me.VlrDeb
rs1![NDv] = Me.NDv
rs1![NDT] = Me.NDT
rs1![PEN] = Me.PEN
rs1![NCD] = Me.NCD
rs1![Consta] = Me.Consta
rs1![ListaDeb] = Me.ListaDeb
rs1![NSocios] = Me.NSocios
rs1![Contribuinte1] = Me.Contribuinte1
rs1![CPFCNPJ1] = Me.CPFCNPJ1
rs1![Endereco1] = Me.Endereco1

.Update
.Close

Set rs1 = Nothing

End With

With rs2

.AddNew

'campos que estão no subformulário, caso voce tenha subformulário é só mudar os nomes dos campos.
rs2![snumcert] = Forms![frmguia]![frmContGuia]!snumcert
rs2![Contribuinte] = Forms![frmguia]![frmContGuia]!Contribuinte
rs2![CPFCNPJ] = Forms![frmguia]![frmContGuia]!CPFCNPJ

.Update
.Close
Set rs2 = Nothing

End With

Vc está trabalhando com dois bancos de dados?

Se não.

Então tente assim;

Código:



Dim db As DAO.Database

Set db = currentDb

Dim  rs1 as DAO.Recordset
Dim rs2 as DAO.Recordset

Set rs1 = db.OpenRecordset("tblCertidao", dbOpenTable)
Set rs2 = db.OpenRecordset("tblContGuia", dbOpenTable)

Obrigado Cleverson, quando postei estava no intervalo do trabalho e esqueci de mencionar que eh um unico bd dividido (BE e FE) o que acho que (na minha ignorancia) nao interfere mas, ainda continua o mesmo erro.

OK.

Vou dar uma olhada.

Parece que o problema eh mesmo com a divisao do bd pois, fiz testes com banco unificado e funfou tudo perfeitamente. Apesar do backup copiar o bd todo, eu particularmente prefiro (maior seguranca) dividir pois assim posso colocar o "be" longe de um "engano".

bom dia Tauron

Primeiro alterei as váriáveis  bancos dados atual e os recordsets, dê uma olha no código do formulário guia.

Depois acusou um erro de que não encontra/existe o campo 'rs1![DtaCert] = Me.DtaCert, então desativei a leitura do mesmo pelo evento Salvar.

Em seguida, esta acusando um erro do tipo foco em controle desabilitado ainda no evento Salvar.

Verifique essa rotina, que acredito vc ser a pessoa mais indicada.

Precisando manda suas dúvidas.

Abraços,


Arquivo alterado abaixo.

Salve Cleverson, fiz as correcoes e funfou legal dai, percebi que estava salvando linha em branco na tblContGuia então modifiquei, veja como ficou agora:


Não vou fechar o topico antes de vc analisar as alterações. Ok

Mais uma vez muitisssimo obrigado.

Tauron,



Desativei também essa linha 'Me.btnSalvar.Enabled = False da rotina Desabilita.

Bem, vi que vc alimenta a tabela de forma parcial em quatro situações, por isso, acredito que os erros ocorram devidos aos campos estarem com valores nulos, pois nem todos são preenchidos de uma vez só.

Recomendo vc criar quatro recordset somente com os campos de cada etapa do seu form guia, usando também select para escolher o recordset de acordo com a etapa escolhida.

Vou tentar fazer por aqui, mas não prometo ser de imediato, por conta do pouco tempo disponível.

Abraços.

Abaixo arquivo alterado.

Cleverson, a alimentacao das tabelas eh feita de uma unica e ate hoje nao ocorrem erros relacionados a isto. O formulario simplesmente esta em abas.

Quanto ao botao salvar ele fica desabilitado mesmo mas, obrigado pelos pareceres.