[Resolvido]Atualizar formulario ou tabela de outro bd

E também nome de campos com espaços tem que estar entre colchetes... Por isto exortamos sempre aos usuários que não coloquem espaços e acentos em nomes de campos:

""" & Rs![Data do Cadastro] & """

E outra kaynan!!!

Voce está inserindo em uma tabela (Bd1) para outra tabela (bd2)

Os campos tem que ter os nomes respectivos da tabela...

Db.Execute "Insert Into Cliente (campos da tabela no BD2 - que vai receber os dados) values (Campos do recordset baseado na tabela do BD1 - que vai ceder os dados)"


Compreendeu?

Cumprimentos.

O nome da tabela tambem Kaynan!!!

É somente mais atenção



Inserto Into Clientes  (no plural)

Outra mais.. no bd que recebera os dados não tem o campo Obs e o campo que receberá o Telefone é Fone..

Aqui eu ja consegui... veja se com essas dicas voce ja consegue.. em não conseguindo, avise-me.

Cumprimentos.

Private Sub Comando69_Click()
Dim Rs As DAO.Recordset
Dim Db As DAO.Database
Dim Ws As DAO.Workspace

Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase(CurrentProject.Path & "\Comercio2.01.mdb", False, False, "MS Access;PWD=senha")
Set Rs = CurrentDb.OpenRecordset("Clientes") 'tabBd1'

Do While Not Rs.EOF
Db.Execute "Insert Into Clientes (Nome, Endereco, Fone, Celular, Cidade, Estado, CPF, RG, Observacao) values (""" & Rs!Nome & """, """ & Rs!Endereço & """,""" & Rs!Telefone & """, """ & Rs!Celular & """,""" & Rs!Cidade & """,""" & Rs!Estado & """,""" & Rs!CPF & """,""" & Rs!RG & """,""" & Rs!Obs, """)"
Rs.MoveNext
Loop
MsgBox "Registo Inserido", vbInformation, "INSERIDO"

End Sub


Agora ta dando erro de conversão de tipos de dados,que coisa!

Agora é simples.. observe as duas tabelas em todos os campos respectivamente..

Por exemplo:

O campo nome na tabela no Db1 tem que ser do mesmo tipo de dados do campo Nome no Bd2

Se nome no Bd1 = Texto
    nome no bd2 = Texto

Se forem diferentes dará este erro.

Verifique os campos de ambas as tabelas se tem os tipos de dados iguais...

Porem da forma como consegui:

Criei no BD2 na tabela o campo Obs.

E na instrução:

Dim Rs As DAO.Recordset
Dim Db As DAO.Database
Dim Ws As DAO.Workspace

Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase(CurrentProject.Path & "\Comercio2.01.mdb", False, False, "MS Access;PWD=senha")
Set Rs = CurrentDb.OpenRecordset("Clientes") 'tabBd1'

Do While Not Rs.EOF
Db.Execute "Insert Into Clientes (Nome, Endereco, RG, Fone, Celular, Cidade, Obs, Estado, Data, CPF) values (""" & Rs!Nome & """, """ & Rs!Endereço & """,""" & Rs!RG & """,""" & Rs!Telefone & """, """ & Rs!Celular & """,""" & Rs!Cidade & """,""" & Rs!Obs & """,""" & Rs!Estado & """,""" & Rs![Data do cadastro] & """,""" & Rs!CPF & """)"
Rs.MoveNext
Loop
MsgBox "Registo Inserido", vbInformation, "INSERIDO"

cumprimentos.

Piloto não respondi antes porque fiquei sem a net.
Mas consegui fazer funcionar,depois que deu certo, fui bebe mais uma a sua saúde.
Agora vou fazer com o cadastro de produtos que deve ser do mesmo jeito.
Acredito que agora entendi como lida o recordset.
Muita saude e paz e fica com DEus.

Opa!!!
Então Viva!!!

O Fórum agradece o retorno.