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

2 participantes

    Duplicar Lançamentos

    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    Duplicar Lançamentos Empty Duplicar Lançamentos

    Mensagem  Vanderlei 26/4/2022, 15:03

    Olá
    Tenho um form de Lançamentos (créditos / descontos) onde são realizados mensalmente. Acontece que percebi que todo mês são inseridos praticamente os mesmas coisas
    Pergunta: Teria como duplicar lançamento do mês anterior acrescentando somente a data do mês corrente. Apesar dos lançamentos serem repetidos, preciso manter o histórico mês a mês

    No aguardo
    Anexos
    Duplicar Lançamentos Attachmentlancamento2.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (47 Kb) Baixado 9 vez(es)
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 787
    Registrado : 11/12/2017

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Ismael Silva 26/4/2022, 16:38

    Boa tarde,

    Veja esse tópico, pode lhe dar uma "luz" talvez.


    https://www.maximoaccess.com/t40741-gerar-numeracao-automatica-via-recordset
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Vanderlei 27/4/2022, 00:31

    Olá Ismael

    Infelizmente não resolve, acessei o link e baixei exemplo, neste caso só consegue selecionar o mês e duplicar 1 item

    No meu caso existe um lançamento com vários itens atrelado a uma determinada data do mês Ex: 10/04/2022

    Gostaria que, por exemplo, através de um botão (duplicar) Duplicaria todos os itens deste lançamento, gerado um novo lançamento com nova data Ex: 10/05/2022 ou data atual

    ver link da msg anterior
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Vanderlei 28/4/2022, 08:03

    Olá

    Deixa eu ser mais sucinto.
    Em resumo é o seguinte: tenho uma consulta com todos os lançamentos realizados no mês. Precisaria clonar todos para o mês seguinte e ao clonar já inserir no campo TXTDATALANC a nova data desejada. mas precisaria que fosse através deum botão (CLONAR) no formulario
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 787
    Registrado : 11/12/2017

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Ismael Silva 28/4/2022, 08:33

    Bom dia Vanderlei,

    Na verdade pelo o que entendi a sua dúvida é igual ao meu projeto, onde quero duplicar dados do mês anterior para o mês seguinte só alterando alguns dados como a data e novo mês, então o exemplo anexo acho que vai te atender.

    O exemplo tive ajuda do @JPaulo, para conseguir fazer e agora apenas adaptei para atender o que eu queria, e consequentemente tentar lhe ajudar também.

    No exemplo tem o mês em que você já tem os dados, e vamos supor que você queira duplicar para o Mês subsequente, então só escolhe a nova data que você quer.
    Anexos
    Duplicar Lançamentos AttachmentDatabase4_OLD (2).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 12 vez(es)
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Vanderlei 29/4/2022, 11:26

    Bom dia Ismael

    É isso mesmo que estou precisando, mas no seu projeto o campo de pesquisa e o mes. No meu caso eu preciso selecionar uma data, tipo 10/04/2022, ai ao clicar no botão GERAR, esta ocorrendo erro, eu acredito que seja por isso. mas nãos sei como resolver.
    Depois de substituir os campos ficou assim: mas na hora de GERAR da erro de parametros

    Set RS = CurrentDb.OpenRecordset("Select NomeExame,CodSusExame,Credito,Desconto,DataExame,Observacao,Data_Orc From CadPacClone WHERE DataRef='" & Me.DataRef.Value & "'")
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 787
    Registrado : 11/12/2017

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Ismael Silva 29/4/2022, 12:18


    Tente assim,

    Aqui testei e funcionou perfeito.

    Set RS = CurrentDb.OpenRecordset("Select NomeExame,CodSusExame,Credito,Desconto,DataExame,Observacao,Data_Orc From CadPacClone WHERE DataRef=#" & Format(Me.DataRef, "mm/dd/yyyy") & "#")


    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Vanderlei 30/4/2022, 00:06

    Boa noite

    Ismael,

    Você poderia me ajudar também com o código do insert ?

    CurrentDb.Execute "INSERT INTO CadPacClone(CodGeral,NomeExame,CodSusExame,Credito,Desconto,DataExame,Observacao) VALUES (?????)"

    Campo, tipo
    CodGeral, Autonum
    NomeExame, texto
    codsusexame, texto
    credito, moeda
    desconto, moeda
    dataexame, data
    observacao, texto

    preciso estudar mais este quesito.
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 787
    Registrado : 11/12/2017

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Ismael Silva 30/4/2022, 16:27

    Você pode tentar algo como isso, lembrando que os values, devem se o nome dos campos do formulário, onde todos os nomes dos campos que forem números deve estar somente com as aspas duplas, e campos do tipo texto, entre aspas simples e duplas.


    CurrentDb.Execute "INSERT INTO CadPacClone(CodGeral,NomeExame,CodSusExame,Credito,Desconto,DataExame,Observacao) VALUES (" & CodGeral & ",'" & _
    NomeExame & "','" & _
    codsusexame & "','" & credito & "','" & desconto & "','" & dataexame & "','" & dataexame & "','" & observacao & "')"
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Vanderlei 1/5/2022, 06:24

    Olá Ismael

    Infelizmente continua dando erro, pensei, talvez eu não esteja passando as informações corretas.
    Para você não ficar tentando tirar as duvidas no escuro, resolvi postar aqui as partes envolvidas.
    Anexos
    Duplicar Lançamentos Attachmentlancamento .zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (72 Kb) Baixado 5 vez(es)
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 787
    Registrado : 11/12/2017

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Ismael Silva 1/5/2022, 16:03

    Boa tarde,

    Pelo que vi CadPacClone, não é uma tabela e sim uma consulta, muito por isso está dando erro, você precisa ver em qual tabela quer salvar o INSERT que estará a fazer.
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Vanderlei 3/5/2022, 07:07

    Ola,
    bom dia

    Você tinha razão quanto à tabela errada.

    Me ajuda a encontrar o erro de agora.

    Só que agora tenho a impressão que ele clona o primeiro item da data selecionada, mas deveria clonar todos os itens correspondente a data
    Anexos
    Duplicar Lançamentos Attachmentlancamento_2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (284 Kb) Baixado 5 vez(es)
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 787
    Registrado : 11/12/2017

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Ismael Silva 3/5/2022, 09:39

    Bom dia,

    Dá uma olhada

    Set RS = CurrentDb.OpenRecordset("Select NomeExame,CodSusExame,Credito,Desconto,DataExame,Observacao From CadPacClone WHERE dataexame=#" & Format(Me.dataexame, "mm/dd/yyyy") & "#")

    'Aqui você está abrindo o com o recordset a consulta

    e está insertando na tabela TABELAEXAMEGERAL

    'Aqui você precisa referenciar a tabela e não a consulta, penso eu

     I = Val(Nz(DMax("[CodGeral]", "CadPacClone"), 0)
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Vanderlei 3/5/2022, 20:27

    Boa Noite Ismael

    Também não deu Ismael, fiz a mudança e não alterou em nada.

    Acho que vou desistir, pois estou testando neste exemplo, se conseguisse rodar, pretendia tentar implantar no meu projeto, que tem uma necessidade semelhante, mas se não consegui rodar aqui, também não vou conseguir implementar no projeto original

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 787
    Registrado : 11/12/2017

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Ismael Silva 3/5/2022, 20:37

    Vamos continuar tentando. A tabela que vai carregar o recordset e vai insertar posterior é a mesma?
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    Duplicar Lançamentos Empty Re: Duplicar Lançamentos

    Mensagem  Vanderlei 4/5/2022, 11:06

    Oi Ismael

    ja tente tirar o CadPacClonee inserir a TabelaExameGeral entre outra e não deu certo

      Data/hora atual: 18/5/2022, 20:01