[Resolvido]Ajuda com Código

Boa noite

preciso de ajuda para resolver esse problema com esse código do Avelino


Dim rs As DAO.Recordset
Dim tbl As DAO.Recordset

'Abre a tabela que receberá os dados
Set tbl = CurrentDb.OpenRecordset("TBL_MOV_FluxoCaixa_Caixa")

'Percorre os registros do subformulário um a um
Do While Not rs.EOF

'Copia os dados do subformulário para a tabela
tbl.AddNew

tbl!CampCX1 = rs!Camp1VEN
tbl!CampCX2 = rs!Camp2VEN
tbl!CampCX3 = rs!Camp3VEN
tbl!CampCX4 = rs!Camp4VEN
tbl!CampCX5 = rs!Camp5VEN
tbl!CampCX6 = rs!Camp6VEN
tbl!CampCX7 = rs!Camp7VEN
tbl!CampCX8 = rs!Camp8VEN
tbl!CampCX9 = rs!Camp9VEN
tbl!SomaTaxaCX = rs!SomaTaxaVEN
tbl!DiasEntradaCX = rs!DiasEntradaVEN
tbl.Update

'vai para o próximo registro do subformulário
rs.MoveNext
Loop
tbl.Close
rs.Close
Set tbl = Nothing
Set rs = Nothing

a ideia aqui é pega os valores de uma tabela e coloca em outra, esse código estou tentando adaptar no evento ao carregar de um subforms, para quando abrir esse subforms, ele pegar todos os dados que contem nele e coloca em uma outra tabela.

se alguém souber de um outro código para fazer isso agradeço.

Bom dia!
O código parece estar ok, porem sugiro que faça buscar os dados direto na tabela, como abaixo:

Código:

Sub TransfDados()
    Dim rs As DAO.Recordset
    Dim tbl As DAO.Recordset
   
    'Abre a tabela que receberá os dados
    Set tbl = CurrentDb.OpenRecordset("TBL_MOV_FluxoCaixa_Caixa")
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tabOrigem WHERE [Id]=" & Me.txtId & " AND [Campo2]='" & Me.txtCampo2 & "'") 'Os mesmo filtros feitos no subForm
        'Percorre os registros do subformulário um a um
        Do While Not rs.EOF
            'Copia os dados do subformulário para a tabela
            tbl.AddNew
           
            tbl!CampCX1 = rs!Camp1VEN
            tbl!CampCX2 = rs!Camp2VEN
            tbl!CampCX3 = rs!Camp3VEN
            tbl!CampCX4 = rs!Camp4VEN
            tbl!CampCX5 = rs!Camp5VEN
            tbl!CampCX6 = rs!Camp6VEN
            tbl!CampCX7 = rs!Camp7VEN
            tbl!CampCX8 = rs!Camp8VEN
            tbl!CampCX9 = rs!Camp9VEN
            tbl!SomaTaxaCX = rs!SomaTaxaVEN
            tbl!DiasEntradaCX = rs!DiasEntradaVEN
            tbl.Update
            'vai para o próximo registro do subformulário
            rs.MoveNext
        Loop
    tbl.Close
    rs.Close
    Set tbl = Nothing
    Set rs = Nothing
End Sub

Boa dia

fui estrutura meu código mais percebi que assim não iria me servi, pois iria precisa toda vez clica em um botão para fazer isso.

você saberia como posso fazer uma maneira de transferir todos os dados juntos de uma tabela para outra, mais que não utilização de formulário?

pq assim tenho 9 tabelas essas tabelas tem seus dados, todas recebe o mesmo tipo de dados, então queria junta as 9 tabelas em uma só, teria como?

Envie parte do seu db...

Boa tarde

Segue em anexo o sistema exemplo

tem um formulario (FRM_MOV_FluxoCaixa) que toda vez que abrir ele os dados das tabelas,
TBL_MOV_FluxoCaixa_AberturaCaixa_AC
TBL_MOV_FluxoCaixa_DespesasCaixa_DC
TBL_MOV_FluxoCaixa_EntradaCaixa_EC
TBL_MOV_FluxoCaixa_EntradaValorBancario_EVB
TBL_MOV_FluxoCaixa_PagamentoParcelaCliente_PPC
TBL_MOV_FluxoCaixa_RetiradaCaixa_RC
TBL_MOV_FluxoCaixa_RetiradaValorBancario_RVB
TBL_MOV_FluxoCaixa_Venda_VEN
TBL_MOV_FluxoCaixa_VendaParcial_VP

transferisse para tabela
TBL_MOV_FluxoCaixa_Caixa

Boa tarde,

Estou no ambiente corporativo e não tenho como baixar, favor enviar no e-mail: caio.fabio91@gmail.com

acabei de manda

Ok, analisando a estrutura das suas tabelas ainda não consegui entender o objetivo final.
Os campos das tabelas de origem são divergentes da tabela destino, tanto no nome do campo como na quantidade.

Em vez de transferência de dados, porque não faz relação de tabelas?
Qual é o propósito final dessa rotina de copiar dados de todas tabelas para uma tabela?

No mínimo para essa rotina ser feita a quantidade de campos devem ser iguais e os nomes também, caso contrário o código irá ficar muito grande.

Bom dia!
A idéia é coloca os dados em uma tabela só, para que possa analisar todos os dados juntos.

Eu tentei fazer com código pq foi o que tinha encontrado para resolver esse problema, meu conhecimento é pouco no acces. E como seria a relação de tabelas ?

Resolvido! Muito obrigado pela ajuda.