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


3 participantes

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 17/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Walter Sex 10 Dez - 5:59

    Bom dia, amigos do Forum.

    Estou desenvolvendo o BD abaixo que servirá para fazer o Controle dos Pacientes Crônicos que usam medicamentos de uso contínuo. Gostaria de, ao clicar nos botões que estão dentro do CÍRCULO VERMELHO, que criam Novos Registros (de Condiçoes Crônicas e de Novos Medicamentos), os dados dos ultimo registro fossem copiados para o NOVO, com possibilidade de edição.
    Abaixo envio uma imagem para explicar melhor e o BD.

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Imagem10
    Anexos
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. AttachmentCrônicos_Cópia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (355 Kb) Baixado 40 vez(es)


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 17/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Walter Sáb 11 Dez - 19:09

    Após muita luta consegui fazer o que eu queria usando o Código:

    Me.NomeDoCampo.DefaultValue = "" & Me.NomeDoCampo & ""

    Consegui resolver no SubFml_CondiçoesCronicos, porém no SubFml_Medicamentos em uso, que tem um outro subformulário (ItenDaReceita) que é um Formulário Continuo, não consigo usar esse código nem por reza brava...

    Alguém por favor, pode me dar uma sugestão?


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 17/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Walter Ter 14 Dez - 14:07

    Mesmo com esse código não funcionou do jeito que eu queria...
    O Access guarda a ultima informação, mesmo de outro paciente, e repete no proximo registro...
    Deu Errado!


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Marcelo David Ter 14 Dez - 14:56

    Walter, boa tarde, tudo bem?
    Seria uma cópia dos dados do último registro, isso entende. Porém, só fiquei na dúvidas de quais dados devem serem copiados, por exemplo:
    o cliente também deve ser copiado? Ações realizadas com este paciente, etc?


    .................................................................................
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Marcel11
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 17/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Walter Ter 14 Dez - 15:16

    Olá, Marcelo.

    Gostaria de que repetisse as condições cronicas "marcadas" (No subformulario da esquerda) e os medicamentos que usa, (SubFml da Direita, acima). As ações realizadas, NÃO.)


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 17/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Walter Qua 15 Dez - 5:13

    Bom dia, Marcelo.
    No formulario continuo da direita (Medicamentos em uso), estou pensando em acrescentar uma "Caixa de Seleção" para marcar os medicamentos que quero "replicar" na proxima receita desse mesmo paciente... Mas não consigo encontrar os comando que deveria usar para quê , ao clicar no botao os registros marcados se repitam no proximo registro...

    Conseguiu achar alguma solução, ou não consegui explicar direito?


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Marcelo David Qua 15 Dez - 11:15

    Então o pretendido é que se repita os últimos dados do paciente selecionado e não os dados do último registro?
    Sendo assim, não poderá realizar isso ao clicar em novo e sim ao selecionar um paciente...
    É isso?


    .................................................................................
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Marcel11
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 17/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Walter Qua 15 Dez - 11:44

    Não, não! Acho que não ficou bem claro....
    Na ComboBox  você escolhe o paciente... Ele já tem alguns dados, que aparecem nos SubFml (Condições Cronicas e Medicamentos Em Uso).
    Quando Clico em NOVA AVALIAÇÂO o Paciente continua o mesmo, mas vou "reavaliá-lo novamente" e isso gera um Novo Registro na Tabela (Tbl_CondicoesCronicas). Vamos supor que ele era apenas Hipertenso. Agora, em nova avaliação, constatei que além de Hipertenso ele tem também Diabetes e é Fumante. Então ao Clicar no Botão NOVA AVALIAÇÂO eu quero que os campos "marcados" se repitam. No exemplo que dei vai repetir apenas Hipertensão, e vou acrescentar (marcar) Diabetes e Tabagismo. É um Novo Registro, pois é uma avaliação nova.

    A mesma lógica para o SubFml Medicamentos Em Uso.
    O paciente em questão está tomando 6 medicamentos, por exemplo. Agora será acrescentado um SETIMO medicamento. Ao Clicar no Btao Mudança na Prescrição, eu gostaria que criasse um Novo Registro na Tbl_ItensDaReceita, e que os SEIS MEDICAMENTOS que já estavam se repetissem, para que eu não precise digita-los todos novamente. Assim bastaria que eu acrescentasse o Novo.


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1059
    Registrado : 11/11/2009

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  scandinavo Qua 15 Dez - 14:59

    Desculpe a intromissão mas veja se é isto. Faça esta alteração para você testar
    no SubFml (Condições Cronicas ).
    no botão NOVA AVALIAÇÂO substitua todo o código por este.


    Para a parte de medicamento fica para uma segunda etapa.

    Obs para realizar os testes eu mudei a forma de classificação deste sub frm para classificar crescente a data de avaliação
    por isto coloquei no código para atualizar e ir para o ultimo registro.



    Código:
    'Scandinavo 15/12/21
    Dim bd As dao.Database
    Dim rstCC As dao.Recordset 'Tbl_CondicoesCronicas

    Set bd = CurrentDb()
    'abre a tabela para inserir os registros copiados
    Set rstCC = bd.OpenRecordset("Tbl_CondicoesCronicas")

       rstCC.AddNew
    'estes s?o campos que voce quer copiar
       rstCC!Id_Paciente = Me!Id_Paciente
       rstCC!DataCondCron = Me!DataCondCron
       rstCC!DataCondCron = Date 'data atual
       rstCC!Hipertensao = Me!Hipertensao
       rstCC!Diabetes = Me!Diabetes
       rstCC!Tabagismo = Me!Tabagismo
       rstCC!TranstMentalComum = Me!TranstMentalComum
       rstCC!TrantMentalT?pico = Me!TrantMentalT?pico
       rstCC!Asma_DPOC = Me!Asma_DPOC
       rstCC!Dislipidemia = Me!Dislipidemia
       rstCC!Acamado = Me!Acamado
       rstCC!Cardiopatia = Me!Cardiopatia
       rstCC!SequelaAVE = Me!SequelaAVE
       rstCC!ProblNeurologicos = Me!ProblNeurologicos
       rstCC!Etilismo = Me!Etilismo
       rstCC!Tireoide = Me!Tireoide
       rstCC!AvalNutricional = Me!AvalNutricional
       rstCC!Idoso_IVCF20 = Me!Idoso_IVCF20
       rstCC.Update

      MsgBox "Registros replicados!", vbInformation, "Replica??o!"
      Me.Form.Requery 'atualiza o subfrm
      DoCmd.GoToRecord , , acLast ' vai para o ultimo registro

    Set rstCC = Nothing
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Marcelo David Qua 15 Dez - 16:40

    Boa tarde senhores,
    scandinavo, toda ajuda é bem vinda! cheers

    Como eu já havia iniciado uns testes, concluí aqui.

    Teste também Walter.

    Baixe aqui.


    .................................................................................
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Marcel11
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1059
    Registrado : 11/11/2009

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  scandinavo Qui 16 Dez - 12:34

    Fiz o segundo código com a opção de selecionar quais medicamentos que sera copiado


    https://www.dropbox.com/s/nt8m9fjevoyqi5k/Cronicos.zip?dl=0

    Walter gosta desta mensagem

    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 17/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Walter Qui 16 Dez - 18:57

    Obrigado por suas sugestões, Scandinavo.

    Essa sua segunda opção ficou bastante interessante!
    Já estou pensando em acrescentar outros recursos no aplicativo e provavelmente aproveitarei sua ideia. Vou estudá-la melhor.

    Valeu, companheiro!

    Um abraço.


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 17/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Walter Qui 16 Dez - 19:00

    Valeu, Marcelo David.

    Sua solução caiu como uma luva para o que eu preciso.

    Mais uma vez você me ajudou. Pena que meus conhecimentos em VBA são tão rasos que não posso te retribuir.

    Muito obrigado, e um grande abraço.


    Walter


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Marcelo David Qui 16 Dez - 22:09

    Grato pelo retorno Walter! E você contribui sim!
    A sua atitude de retornar e cordialidade é lição para todos nós! Smile


    .................................................................................
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Marcel11
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 17/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Reabrindo....

    Mensagem  Walter Qui 23 Dez - 10:26

    Bom dia, Scandinavo.

    Enviei uma mensagem privada pra você, pois não sabia que após marcar como "Resolvido" aqui nas mensagens poderia continuar o assunto...

    Estou tentando implementar a sugestão que você deu para REPLICAR os medicamentos na proxima receita, mas algumas vezes eles NÃO são replicados, e não entendi porque e o que tenho que fazer. Pode dar uma olhada pra mim, por favor?


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1059
    Registrado : 11/11/2009

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  scandinavo Qui 23 Dez - 10:37

    Seria bom trabalhar em cima do sistema que você esta tentando aplicar o código.
    Você inseriu o campo para marcar quais medicamentos serão replicados?

    disponibiliza ele novamente.
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 17/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Walter Qui 23 Dez - 11:04

    Sim. Inseri o Campo (Caixa de Seleção) "Replicar" e na Tbl também o campo Sim/Não.

    Mas nas modificações que você me enviou acima, tentei modificar algumas receitas e algumas os medicamentos "marcados" são replicados, outros não. Não entendi porque.


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 17/04/2011

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Walter Qui 23 Dez - 16:51

    Esqueci de anexar o BD...

    Você criou um campo na Tbl_ItensDaReceita chamado: "Replicar". Ele "guarda" a informação (0 ou -1) da Caixa de texto de mesmo nome. Assim, se escolho alguns dos medicamentos para Replicar, ele continua marcado na Tabela... Será que não é isso que está dando erro? Se tivesse como colocar uma rotina ou código que limpe esses campos da tabela, após usa-los... Ou, talvez, deixar o Campo "Replicar" do formulario desacoplado da tabela, apenas para ser usado e apagado... O que voce acha?
    Anexos
    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. AttachmentScandinavo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (406 Kb) Baixado 27 vez(es)


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1059
    Registrado : 11/11/2009

    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  scandinavo Ter 28 Dez - 20:45

    "ele continua marcado na Tabela... Será que não é isso que está dando erro? "
    Acredito que não

    Fiz varios teste e não encontrei problemas.
    alguem que fez o download do arquivo deu algum erro?


    fiz uma alteração no codigo que faz a verificação se algum medicamento foi marcado antes de executar para duplicar



    https://www.dropbox.com/s/rm3qgxz2oguti9v/Scandinavo.zip?dl=0

    Conteúdo patrocinado


    [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los. Empty Re: [Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 21 Nov - 9:24