[Resolvido]Inserir dados em tabela

Olá pessoal!

Estou criando uma tela para o registro de vendas de produtos formada por um form e um subform. Insiro o código do produto diretamente no subform. me veio, porém uma ideia, então, crie 3 campos no form: "cód", "descrição" e "preço". ao digitar o código do produto no campo "cód" os outros dois campos são preenchidos automaticamente com informações captadas da "tbl_Produto". Criei também um botão "ok". gostaria de um código que inserisse na "tbl_VendaDet" o código do produto ao clicar o botão "ok".

agradecido

Ola companheiro, boa tarde!
ao click do botão defina"

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

If MsgBox("Confirma Transferencia?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("tbl_VendaDet", dbOpenTable)

With rs1

.AddNew
![seucampo1] = Me.seucampo1
![seucampo2] = Me.seucampo2

.Update

End With

MsgBox "Transferencia confirmada.", vbOKOnly + vbInformation, "Concluído"

End If

qualquer duvida poste parte do banco ai veremos no que podemos ajudar!

Grato!

O forum agradece!

Perfeito!
Exatamente o que eu queria!

mui grato...