MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ajuda com Código

    Compartilhe
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 289
    Registrado : 01/12/2016

    [Resolvido]Ajuda com Código

    Mensagem  Misson Lira em 27/11/2018, 00:44

    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.
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 05/12/2016

    Re: [Resolvido]Ajuda com Código

    Mensagem  caiosouza em 27/11/2018, 11:32

    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


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 289
    Registrado : 01/12/2016

    Re: [Resolvido]Ajuda com Código

    Mensagem  Misson Lira em 27/11/2018, 12:08

    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?

    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 05/12/2016

    Re: [Resolvido]Ajuda com Código

    Mensagem  caiosouza em 27/11/2018, 15:47

    Envie parte do seu db...


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 289
    Registrado : 01/12/2016

    Re: [Resolvido]Ajuda com Código

    Mensagem  Misson Lira em 27/11/2018, 16:56

    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
    Anexos
    TRANSFERIR tABELA.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (104 Kb) Baixado 11 vez(es)
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 05/12/2016

    Re: [Resolvido]Ajuda com Código

    Mensagem  caiosouza em 27/11/2018, 17:04

    Boa tarde,

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


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 289
    Registrado : 01/12/2016

    Re: [Resolvido]Ajuda com Código

    Mensagem  Misson Lira em 27/11/2018, 17:10

    acabei de manda
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 374
    Registrado : 05/12/2016

    Re: [Resolvido]Ajuda com Código

    Mensagem  caiosouza em 27/11/2018, 22:54

    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.


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 289
    Registrado : 01/12/2016

    Re: [Resolvido]Ajuda com Código

    Mensagem  Misson Lira em 28/11/2018, 11:36

    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 ?
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 289
    Registrado : 01/12/2016

    Re: [Resolvido]Ajuda com Código

    Mensagem  Misson Lira em 1/1/2019, 03:28

    Resolvido! Muito obrigado pela ajuda.

      Data/hora atual: 26/3/2019, 15:00