[Resolvido]Copiar o valor de um campo de um subformulário para outro e salvar na tabela

Boa tarde!
Tenho pouca experiência com Access e estou com um probleminha aqui que talvez seja fácil para a maioria..

O que quero é o seguinte, quando for criado um novo tratamento (subformulário frmsubtratamentos) e o usuário clicar no Codtratamento, o form
frmprocedimentos seja aberto (isso já acontece) e os campos Codtratamento dos subformularios já seja preenchido no primeira linha e após preenchido,
ao clicar, os dados sejam salvos no BD, isso não está acontecendo.
Segue o mdb anexo.

Boas well-e,

Tenta ver alguma coisa aqui se te ajuda http://maximoaccess.forumeiros.com/t17786-resolvidoexcluir-e-transferir-para-outra-tabela
penso que é +- o mesmo problema.

Obrigado pela dica amigo, ajudou bastante. Usei o seguinte código:

Dim db1 As Database, rs1 As DAO.Recordset

Set db1 = CurrentDb

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

With rs1

.AddNew
![Codtratamento] = Me.Codtratamento

.Update

End With

DoCmd.OpenForm "frmprocedimentos", , , "Codtratamento =" & Me.Codtratamento

porém cada vez que clico cria uma linha nova e quero que isso ocorra apenas na primeira vez, o que posso fazer agora?

Gostava te ajudar mais mas também estou aprendendo a trabalhar no Access  

Consegui resolver o problema de adição de linhas em excesso.

Dim db1 As Database, rs1 As DAO.Recordset, rs As Recordset

Set db1 = CurrentDb

Set rs = db1.OpenRecordset("select * FROM Procedimentos WHERE Codtratamento = " & Me.Codtratamento, dbOpenDynaset)

If rs.EOF Then

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

With rs1

.AddNew
![Codtratamento] = Me.Codtratamento

.Update

End With

DoCmd.OpenForm "frmprocedimentos", , , "Codtratamento =" & Me.Codtratamento

Else

DoCmd.OpenForm "frmprocedimentos", , , "Codtratamento =" & Me.Codtratamento
End If

Ainda bem que ficou resolvido amigo   

Leia isso, para encerrar o tópico.
http://maximoaccess.forumeiros.com/t860-resolucao-de-topicos

Tópico resolvido. Obrigado!