[Resolvido]Erro 3219 ao exportar para outra tabela

Boa tarde para todos.

Não sei por que cargas d´água meu código não funfa. Segue ele.

Private Sub bt_salvar_Click()
If IsNull(Me.CodigoPeca) Or IsNull(Me.Descricao) Or IsNull(Me.PrecoCusto) Or IsNull(Me.MargemLucro) Then
MsgBox "O Cadastro está incompleto e será excluído!"
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Else

DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRefresh

Dim db1 As Database, rs1 As DAO.Recordset
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("tblpgtofornece", 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
![DataCadastro] = Me.DataCadastro
![Nome] = Me.Nome
![PedidoN] = Me.PedidoN
![Desconto] = Me.Desconto
![PrecoCusto] = Me.PrecoCusto
![Valoraserpago] = Me.Valoraserpago
.Update
End With
MsgBox " Cadastro... salvo com sucesso !", vbOKOnly, "Concluído..."
End If
End Sub

Ele salva o registro, mas não ocorre a exportação, me retorna o erro 3219 ( tempo de execução); Já olhei, olhei de novo...e não sei onde esta o dito erro.

Alguma luz ?

Agradeço a todos antecipadamente.

Grande Silvio, nos dê mais detalhes:
O que você está exportando? Um registro? Qual? Toda a tabela? Está exportando para onde?
E para onde o erro depura?

Salve Grande Marcelo, espero que tudo esteja bem contigo...

bom vamos lá....

O que eu exporto:
![DataCadastro] = Me.DataCadastro
![Nome] = Me.Nome
![PedidoN] = Me.PedidoN
![Desconto] = Me.Desconto
![PrecoCusto] = Me.PrecoCusto
![Valoraserpago] = Me.Valoraserpago

Para onde vai:
tblpgtofornece

Onde ocorre o erro:
Set rs1 = db1.OpenRecordset("tblpgtofornece", dbOpenTable)

Obs.: antes de dividir, funfava, perfeitamente. Será que é nessa divisão que ocorreu o erro ?

Desde já, grato por tua ajuda e tempo dispensado a mim !

Silvio

Não consigo identificar erro algum...

Disponibilize para nós as partes envolvidas, assim tentamos reproduzir
o erro aqui.

La vai.....

User admim  senha 1234, menu principal...cadastro de peças, cadastre qualquer coisa, coloque o preço, a nf, o fornecedor...e tenta salvar

Descobri...

Retire o que está em vermelho na seguinte linha: Set rs1 = db1.OpenRecordset("tblpgtofornece", dbOpenTable)
Deixe assim: Set rs1 = db1.OpenRecordset("tblpgtofornece")

dbOpenTable não funciona em tabelas vinculadas.

Grande Marcelo.....uma coisa simples e eu complicando aqui.

Agradeço a ti por ter me ajudado, já testei e funfou legal mesmo.

Abraços.

Ps. vou tirar o exemplo anexado daqui, pois ainda estou a desenvolver o mesmo. Se quiser dar uma olhada nele e se tiver alguma coisa para melhorar ele...é só falar.


Silvio

Ok, qualquer coisa eu dou um pitaco! Obrigado pelo retorno!
Como sempre, caprichando no layout! Parabéns, muito leve a interface!