MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

4 participantes

    [Resolvido]Como enviar dados de uma tabela para outra

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Como enviar dados de uma tabela para outra Empty [Resolvido]Como enviar dados de uma tabela para outra

    Mensagem  Assis 15/2/2011, 12:01

    Bom dia

    Tenho duas tabelas iguais:

    Tabela "Lançamentos". Com os campos "ID" "DataLanc" "TipoMovimento" "ValorMov" ....
    Tabela "LançamentosDatados" Com os mesmos campos da Tabela "Lançamentos".

    O Campo "ID" é de numeração automatica.

    Tenho um Formulario de introdução de dados com a seguinte condição.
    Se a DataLanc for igual ou inferior à Data do Dia o registo é gravado na Tabela "Lançamentos".

    Caso a DataLanc for posterior à data do dia o registo é gravado na Tabela "LançamentosDatados".

    Como passar os registos gravados na Tabela "LançamentosDatados" para a Tabela "Lançamentos" quando as datas da Tabela "LançamentosDatados" forem iguais à Data do Dia.




    .................................................................................
    *** Só sei que nada sei ***
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Como enviar dados de uma tabela para outra Empty Re: [Resolvido]Como enviar dados de uma tabela para outra

    Mensagem  criquio 15/2/2011, 12:04

    Olá, Assis. Veja se esse código postado pelo membro José Silva lhe ajuda: http://maximoaccess.forumeiros.com/t1725-codigo-de-formulario-para-inserir-dados-em-duas-ou-mais-tabelas-ao-mesmo-tempo


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Como enviar dados de uma tabela para outra Empty Re: [Resolvido]Como enviar dados de uma tabela para outra

    Mensagem  Assis 15/2/2011, 12:31

    Olá Criquio

    O meu problema não é gravar os dados em duas ou mais tabelas.
    Isso eu já consigo fazer.

    Eu queria era depois de já estarem gravados na Tabela "LançamentosDatados", passa-los para a outra "TabelaLançamentos"
    quando as datas da Tabela "LançamentosDatados" forem iguais à Data do Dia.


    .................................................................................
    *** Só sei que nada sei ***
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 709
    Registrado : 07/05/2010

    [Resolvido]Como enviar dados de uma tabela para outra Empty Re: [Resolvido]Como enviar dados de uma tabela para outra

    Mensagem  Jungli 15/2/2011, 13:21

    Tente assim

    Dim db As DAO.Database
    Dim tb As DAO.Recordset
    Set db = CurrentDb()
    Set tb = db.OpenRecordset("LançamentosDatados", dbOpenDynaset)
    If Me.DataLanc.Value = Date Then
    tb.AddNew
    tb![DataLanc] = Me.DataLanc
    tb![TipoMovimento] = Me.TipoMovimento
    tb![ValorMov] = Me.ValorMov
    tb.Update
    MsgBox "Dados enviados com sucesso!", vbInformation
    tb.Close
    Else
    DoCmd.CancelEvent
    MsgBox "Dados não enviados!", vbCritical
    End If
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Como enviar dados de uma tabela para outra Empty Re: [Resolvido]Como enviar dados de uma tabela para outra

    Mensagem  Assis 15/2/2011, 13:57

    JUNGLI

    O código que enviou é para colocar em qual acontecimento ?

    Quando abrir o Formulário de introdução de dados ?

    Não tem nenhuma referência à Tabela "Lançamentos" ?

    Obrigada


    .................................................................................
    *** Só sei que nada sei ***
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 709
    Registrado : 07/05/2010

    [Resolvido]Como enviar dados de uma tabela para outra Empty Re: [Resolvido]Como enviar dados de uma tabela para outra

    Mensagem  Jungli 15/2/2011, 14:09

    tente colocar o código ao final do cadastro

    com o botão de comando por exemplo

    Dim db, db1 As DAO.Database
    Dim tb, tb1 As DAO.Recordset
    Set db = CurrentDb()
    Set tb = db.OpenRecordset("LançamentosDatados", dbOpenDynaset)
    Set tb1 = db.OpenRecordset("Lançamentos", dbOpenDynaset)
    If Me.DataLanc.Value > Date Then
    tb.AddNew
    tb![DataLanc] = Me.DataLanc
    tb![TipoMovimento] = Me.TipoMovimento
    tb![ValorMov] = Me.ValorMov
    tb.Update
    MsgBox "Dados enviados com sucesso!", vbInformation
    tb.Close
    ElseIf Me.DataLanc.Value = Date Then
    tb1.AddNew
    tb1![DataLanc] = Me.DataLanc
    tb1![TipoMovimento] = Me.TipoMovimento
    tb1![ValorMov] = Me.ValorMov
    tb1.Update
    MsgBox "Dados enviados com sucesso!", vbInformation
    tb1.Close
    ElseIf Me.DataLanc.Value < Date Then
    MsgBox "Data inferior à data atual!", vbInformation
    End If
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Como enviar dados de uma tabela para outra Empty Re: [Resolvido]Como enviar dados de uma tabela para outra

    Mensagem  JPaulo 15/2/2011, 14:25

    Uma questão.

    O formulario é desvinculado ou vinculado à alguma tabela ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Como enviar dados de uma tabela para outra Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como enviar dados de uma tabela para outra Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como enviar dados de uma tabela para outra Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Como enviar dados de uma tabela para outra Empty Re: [Resolvido]Como enviar dados de uma tabela para outra

    Mensagem  Assis 15/2/2011, 16:11

    Boa tarde JPaulo

    Desvinculado


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Como enviar dados de uma tabela para outra Empty Re: [Resolvido]Como enviar dados de uma tabela para outra

    Mensagem  JPaulo 15/2/2011, 17:23


    Private Sub Form_Load()
    Dim rst, rst1 As Recordset

    Set rst = CurrentDb.OpenRecordset("select * from LançamentosDatados")
    Set rst1 = CurrentDb.OpenRecordset("select * from Lançamentos")

    If rst.RecordCount = 0 Then Exit Sub
    rst.MoveLast
    rst.MoveFirst

    Do While Not rst.EOF
    'se a DataLanc for igual a Hoje, adiciona na tabela Lançamentos e apaga da tabela LançamentosDatados
    If rst.Fields("DataLanc").Value = Date Then
    rst1.AddNew
    rst1.Fields("DataLanc").Value = rst.Fields("DataLanc").Value
    rst1.Fields("TipoMovimento").Value = rst.Fields("TipoMovimento").Value
    rst1.Fields("ValorMov").Value = rst.Fields("ValorMov").Value
    'adiciona na tabela Lançamentos
    rst1.Update
    'apaga na tabela LançamentosDatados
    rst.Delete
    Else
    'se não encontra não faz nada
    End If
    rst.MoveNext
    Loop
    Set rst = Nothing
    Me.Recalc
    MsgBox "Movimentação Terminada", vbQuestion, "Aviso"
    End Sub





    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Como enviar dados de uma tabela para outra Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como enviar dados de uma tabela para outra Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como enviar dados de uma tabela para outra Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Como enviar dados de uma tabela para outra Empty Re: [Resolvido]Como enviar dados de uma tabela para outra

    Mensagem  Assis 15/2/2011, 19:30

    Boa noite JPaulo

    Funfa perfeito.

    Só uma pergunta mais para dar o tópico por terminado.

    Com esta linha de comando:
    If rst.Fields("DataLanc").Value = Date Then

    A função só movia os registos com a Data igual, então eu alterei para:
    If rst.Fields("DataLanc").Value <= Date Then

    Para mover todos os registos da Tabela "LançamentosDatados"

    Imagine ter registos para dia 16, 17, e 20, do mês corrente, e o Form de registar dados só fosse aberto no dia 20, os registos do dia 16 e dia 17 não eram movidos.
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Como enviar dados de uma tabela para outra Empty Re: [Resolvido]Como enviar dados de uma tabela para outra

    Mensagem  JPaulo 15/2/2011, 20:07

    Afirmativo;

    O código está aí e os criterios ficam ao seu criterio.

    Abraço


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Como enviar dados de uma tabela para outra Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como enviar dados de uma tabela para outra Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como enviar dados de uma tabela para outra Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4754
    Registrado : 06/11/2009

    [Resolvido]Como enviar dados de uma tabela para outra Empty Re: [Resolvido]Como enviar dados de uma tabela para outra

    Mensagem  Assis 15/2/2011, 21:04

    JPaulo

    Abraço e

    Obrigado

    Tópico terminado






    .................................................................................
    *** Só sei que nada sei ***
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Como enviar dados de uma tabela para outra Empty Re: [Resolvido]Como enviar dados de uma tabela para outra

    Mensagem  criquio 15/2/2011, 21:13

    Acresentando o [Resolvido] Laughing


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: 27/1/2023, 05:52