[Resolvido]Atualizar tabela

Boa tarde,

Preciso atualizar uma tabela a partir de um form via vba.

Obrigado

Explique melhor por gentileza. Que tipo de atualização?

No repositório de exemplos:

http://dl.dropbox.com/u/771097/UpdateTabela2igualaTabela1.txt

Por exemplo:

Quero pegar os campos do formulário e atualizar uma tabela que não esteja vinculada ao formulario,

ex:
tb1 ==> cliente1 ==> endereco ==> telefone
A tb1 esta vinculada ao formulário


tb2 ==> cliente1 ==> endereco ==> telefone
a tb2 não esta vinculada ao formulário.


o que preciso é que ao chamar o comando ele pegue os dados do formulário que esta vinculado a tb1 e atualize a tb2 com esses dados que estão no formulário.

Não sei se expliquei bem, deu para entender?

Obrigado.

Veja aqui nos 102 códigos;

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

O codigo:

Update Campo de uma Tabela baseado noutra Tabela, via VBA

E se fosse para atualizar uma unica tabela baseado nos dados do formulário, ou seja, ou seja atualizar outra tabela com os dados que estão no formulário.

O amigo quer inserir ou alterar dados existentes ?

Para inserir com o AddNew

Private Sub SeuBotao_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SuaTabela")
rs.AddNew
rs("Campo1") = Me.Campo1NoForm.Value
rs("Campo2") = Me.Campo2NoForm.Value
rs("Campo3") = Me.Campo3NoForm.Value
rs("Campo4") = Me.Campo4NoForm.Value
rs.Update
rs.Close
db.Close
End Sub

Quero atualizar

Então utilize o .Edit com a string SQL Where seu campo da tabela for igual ao do seu formulario;

Private Sub SeuBotao_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from SuaTabela Where SeuCampo= " & Me.SeuCampoNoFormulario & "")
rs.Edit
rs("Campo1") = Me.Campo1NoForm.Value
rs("Campo2") = Me.Campo2NoForm.Value
rs("Campo3") = Me.Campo3NoForm.Value
rs("Campo4") = Me.Campo4NoForm.Value
rs.Update
rs.Close
db.Close
End Sub


'Sem aspas simples se for numerico
'Where SeuCampo= " & Me.SeuCampoNoFormulario & "")

'Com aspas simples se for texto
'Where SeuCampo= '" & Me.SeuCampoNoFormulario & "'")

Como faço para que a atualização seja baseada em 2 critérios?

Obrigado

Basta utilizar o operador AND

Set rs = db.OpenRecordset("Select * from SuaTabela Where SeuCampo2= " & Me.SeuCampo1NoFormulario & " AND SeuCampo2= " & Me.SeuCampo2NoFormulario & "")

Ok, agora deu certo, muito Obrigado.

Obrigado pelo retorno o forum agradece.

Pessoal, estou com o seguinte problema. Criei um formulário não vinculada a nenhuma tabela com alguns campos. Dentro desse mesmo formulário criei uma caixa de combinação onde tem valores de uma tabela específica. Quando seleciono algum ítem dessa caixa ele me mostra nesse formulário não vinculado os valores no qual preciso. O meu problema está quando eu seleciono e altero algum item dentro dessa caixa que não seja o primeiro e solicito a alteração, o programa me mostra uma mensagem de erro em tempo de execução 3022. Mais quando eu seleciono o primeiro item da caixa de combinação, altero e solicito a alteração, ele não me mostra nenhum erro e altera normalmente. Será que alguém pode me ajudar? Obrigado.