[Resolvido]Dados do Form e SubForm para uma tabela especificada

Boa noite á todos, e que Deus vos abençoe.
Novamente estou aqui, pedindo ajuda, quero que no evento ao clicar de um botão em um form, os dados do form e do subform sejam salvos em uma determinada tabela.... "T_LeituraCentral". Segue anexado o Bd,,, e estou no aguardo se puderem me ajudar agradeço.

Olá Norberto, tudo bem?
É o seguinte os dados do form e sub form quero salva-los em uma só tabela no caso na "T_LeituraCentral".

Não tem nada a ver!
Norberto, preciso inserir os dados do form e subform nessa tabela "T_LeituraCentral" porque preciso reunir todos os dados nessa tabela, vou efetuar consultas nessa tabela, calculos de geração, ja que estou fazendo um sistema para leituras de usina hidrelétrica, na verdade não há como efetuar as leituras em uma só tabela, pois são 25 leituras diárias e as tabelas não suportam, pelo menos não consegui, ai então eu reunindo os dados na tabela central, fica facil!

Os dados do form estou conseguindo salvar na tabela "T_LeituraCentral" mas os dados do subform não estou conseguindo!

Norberto veja o código que estou usando é do JUNGLI...



Private Sub Comando39_Click()
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

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

Set db1 = CurrentDb

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

With rs1

.AddNew
![Data] = Me.Data
![MAQUINA] = Me.MAQUINA
.Update

End With

Set rs3 = db1.OpenRecordset("SELECT * FROM T_LeituraSubFormulario WHERE Código=" & Me.código)
Set rs2 = db1.OpenRecordset("T_LeituraCentral", dbOpenTable)


While (Not rs3.EOF)
With rs2
.AddNew
![códigof] = DMax("códigof", "T_LeituraCentral")
![hora] = rs3![hora]
![A] = rs3![A]

.Update
rs3.MoveNext
End With
Wend

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

rs3.Close
Set rs3 = Nothing

Set db1 = Nothing


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

End If
End Sub

Estou conseguindo enviar dados do form, más do sub form não envia! Exemplo anexado!

Noberto!

Cada vez que eu executar a consulta para criar tabela, não vai ter que excluir a tabela? Se isso acontecer vou perder os dados salvos anteriormente, não é isso?

Norberto!

Eu relacionei as tabelas: "T_LeituraFormulario e T_LeituraSubFormulario", ai criei uma consulta com origem nas duas tabelas.
Ai criei o form com a origem da consulta, e o subform com origem da mesma consulta ai no evendo do botão clicar coloquei o código:

Private Sub Comando39_Click()
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("T_LeituraCentral", dbOpenTable)

With rs1

.AddNew
![Data] = Me.Data
![Maquina] = Me.Maquina
![Hora] = Me.Hora
![A] = Me.A
![B] = Me.B
![C] = Me.C

.Update

End With

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

End If


End Sub


Tópico encerrado e muito obrigado Norberto vc é um gênio, precisamos sempre de você!
Um abraço!

"Risos" valeu mestre!