[RESOLVIDO] Buscar dado de uma tabela e copiar para outra tabela

Pessoal, estou mais uma vez aqui pra pedir a ajudinha de vocês.

Como fazer para um formulário chamar um dado da [tabela A] e gravar na [tabela B]?

Para entender meu problema:

Na tabela [Horario] tenho gravado as turmas, horarios das aulas de cada turma e o valor mensal a ser pago por cada aluno.

Na tabela [Financeiro] tenho gravado o nome do aluno, a data de vencimento, data de pagamento e quero colocar o (valor) que está gravado na tabela [Horario] através de um formulário.

Alguém, por favor, me ajude!
Desde já agradeço.

Ola, veja se esse topico lhe ajuda!!!

https://www.maximoaccess.com/t27482-resolvidosalvar-em-tabelas-diferentes

Obrigada pela ajuda, Fabio!

Consegui gravar o dado, só que agora ele está gravando duplicado, onde um dado grava com o valor e o outro sem o valor.
Quero gravar somente um com o valor.

Abaixo segue o código do meu form que adaptei do link que vc me passou:

Private Sub Salvar_Click()
If IsNull(Me.Aluno) Then
MsgBox "Não existe registro a ser salvo.", vbCritical, "Aviso"
End If

Dim DB As Database
Dim rs As DAO.Recordset

Set DB = CurrentDb()
'Abre o recordSet da tabela CadAlunoTurma para add os dados.
Set rs = DB.OpenRecordset("CadAlunoTurma")
   rs.AddNew 'Add novo registro
   rs("Aluno") = Me.Aluno 'No Campo Nome da tabela2 coloca os dados que tem no campo me.nome do Formulario... e assim segue
   rs("Turma") = Me.Turma
   rs("Valor") = Me.Custo
      rs.Update
'Encerra as conexoes e limpa da memoria
rs.Close
Set rs = Nothing
DB.Close
Set DB = Nothing

DoCmd.Close acForm, "CadAlunoturma"
DoCmd.OpenForm "CadAlunoturma"

End Sub

Olá, Fábio!

Consegui resolver após sua ajuda, mais pesquisas aqui no fórum e várias alterações no meu código!

Muito obrigada pela força!

Só pra saber como fiz funcionar:

Private Sub Salvar_Click()
If IsNull(Me.Aluno) Then
MsgBox "Não existe registro a ser salvo.", vbCritical, "Aviso"
End If

If Not IsNull(DLookup("[Aluno]", "CAdAlunoTurma", "[Aluno] ='" & Me!Aluno & "'")) Then
Cancel = True
Form.Undo ' ou Me.Aluno.Undo
MsgBox "Aluno já cadastrado na turma."

End If

Dim DB As Database
Dim rs As DAO.Recordset

strCriteria = "[Código] Like '" & Me.Aluno & "'"

Set DB = CurrentDb()
'Abre o recordSet da tabela CadAlunoTurma para add os dados.
Set rs = DB.OpenRecordset("CadAlunoTurma")
   rs.AddNew 'Add novo registro
   rs("Aluno") = Me.Aluno 'No Campo Nome da tabela2 coloca os dados que tem no campo me.nome do Formulario... e assim segue
   rs("Turma") = Me.Turma
   rs("Valor") = Me.Custo
      rs.Update
'Encerra as conexoes e limpa da memoria
rs.Close
Set rs = Nothing
DB.Close
Set DB = Nothing

DoCmd.Close acForm, "CadAlunoTurma"
DoCmd.OpenForm "CadAlunoTurma"

Exit Sub

End Sub

Que bom que conseguiu!!! Ate a proxima se Deus quiser!

Nao esquece de marcar como Resolvido...