[Resolvido]Relacionar tabelas.

Bom dia amigos, queria ver se é possivel, os dados do campo subtotal da tabela "tbldetalhes_sisPDV" também aparecerem no campo Subtotal da tabela "tblsisPDV".
Alguém da uma olhadinha pra mim.
Abçs.
https://dl.dropboxusercontent.com/u/90217826/RelacionarTab.accdb

Bom dia Kaynan...

Passei pelo mesmo tipo de problema que você, então passei a utilizar o código abaixo, cedido pelo Assis.

Basta apenas substituir os campos que estão em vermelho pelos teus.

' aqui faço a inserção na tabela OServiço o valor total da ordem
     Dim DB As Database, rs As Recordset
     Set DB = CurrentDb()
     Set rs = DB.OpenRecordset("OSERVICO", dbOpenDynaset)
     rs.FindFirst "IDOservico = " & Me!IDOservico
     rs.Edit
     rs("TGOS") = Me.TG1.Value
     rs.Update
     rs.Close
     Set rs = Nothing
     Set DB = Nothing
   ' fim da inserção


Isso tem que ser feito no evento ao salvar, em teu formulário ou em algum outro evento.

Bom dia Silvio,td bem, me diga no TGOS e TG1 oque vai mesmo.

Bom dia....na correira aqui para entregar um sistema para o cliente, mas vamos lá.

o campo TGOS é um campo que está na minha tabela que eu quero que receba o valor do campo TG1 ( campo calculado e desacoplado ) que está em
meu formulário.

Ola Silvio com meu formulario não deu certo,mesmo o campo no form cendo desaclopado não aceita transferir para o campo da outra tabela.

Kaynan, me passa um exemplo teu em AC2007 com as entidades envolvidas para eu dar uma olhada aqui.
Abraços

Veja ai Silvio se tem jeito.
No form"frmpontodevenda"quero que o valor da txt Texto56 grave no campo subTotal da tabela "tblsisPDV",no momento esta gravando só na tabela,"Tbldetalhe_sisPDV".



https://dl.dropboxusercontent.com/u/90217826/TESTTT.rar

Boas..

Em um evento apropriado ao teu sistema, cole o que se segue

Dim DB As Database, rs As Recordset
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("tblsisPDV", dbOpenDynaset)
rs.FindFirst "codvenda = " & Me!CodVenda
rs.Edit
rs("subtotal") = Me.text56.Value
rs.Update
rs.Close
Set rs = Nothing
Set DB = Nothing

O amigo véio,perfeito,perfeito.
Muito obrigado por mais essa lida vc é o cara.
Valeu mesmo.

Valeu.....bom trabalho a ti e sucesso.
Grato pelo retorno.
Abraços.