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

    [Resolvido]Imprimir Último registro do Relatório

    avatar
    AUGUSTO MORGADO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 16/12/2013

    [Resolvido]Imprimir Último registro do Relatório Empty [Resolvido]Imprimir Último registro do Relatório

    Mensagem  AUGUSTO MORGADO 9/11/2020, 17:47

    Boa Tarde a Todos!

    Estou com um problema em um relatório, pois preciso que ele mostre o ultimo registro que foi salvo no formulário.
    O esquema funciona da seguinte maneira, faço uma busca em um formulário com uma ListBox, pelo Nome ou cod_pessoa (que é a ID), quando encontra a pessoa na ListBox, Clico duas vezes no nome que desejo, Abre outro formulário com as informações da pessoa e em um Sub Formulário faço o registro de entrada dessa pessoa, salvo o registro e clico em um botão para gerar a ficha de entrada abrindo um relatório.
    Aí e que está a questão! O Relatório quando é gerado e aparece todos os registros de entrada dessa pessoa, e gostaria que ele exibisse apenas o ultimo registro de entrada desta pessoa. Este é o Código que está no botão Gerar Ficha.
    DoCmd.OpenReport "Rl_IdPessoaData", acViewReport, , "[cod_pessoa] = " & Me!cod_paciente
    Já testei alguns exemplos que encontrei no aqui, porém não obtive sucesso.

    Desde já agradeço a ajuda!
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 905
    Registrado : 09/11/2012

    [Resolvido]Imprimir Último registro do Relatório Empty Re: [Resolvido]Imprimir Último registro do Relatório

    Mensagem  =>Nois 9/11/2020, 17:51

    Eu uso este e funciona normal pra mim


    Dim txtPegaMatricula As Double
    txtPegaMatricula = Forms!Cadastro!MATRICULA
    DoCmd.OpenReport "rtl_Cadastro_Treinamentos", acViewReport, , "[Matricula_Partic] = " & txtPegaMatricula


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    AUGUSTO MORGADO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 16/12/2013

    [Resolvido]Imprimir Último registro do Relatório Empty Re: [Resolvido]Imprimir Último registro do Relatório

    Mensagem  AUGUSTO MORGADO 9/11/2020, 20:03

    Muito Grato por sua atenção!

    Infelizmente não funcionou.
    avatar
    AUGUSTO MORGADO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 16/12/2013

    [Resolvido]Imprimir Último registro do Relatório Empty Re: [Resolvido]Imprimir Último registro do Relatório

    Mensagem  AUGUSTO MORGADO 9/11/2020, 21:43

    Quem puder ajudar, segue o link com parte do Bd

    https://drive.google.com/file/d/1sb_HTA9hE-CT9AYzaK8nMPc-cuoReSdf/view?usp=sharing

    Desde já agradeço !
    avatar
    bacano
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 82
    Registrado : 08/12/2010

    [Resolvido]Imprimir Último registro do Relatório Empty Re: [Resolvido]Imprimir Último registro do Relatório

    Mensagem  bacano 10/11/2020, 03:50

    Bom dia AUGUSTO MORGADO

    Então se queres mostrar o registo de entrada do SubFormulario tens de usar [Cod Entrada] do SubFormulario, e não [cod_paciente] do Formulario.

    Código:
    Private Sub Comando134_Click()
        DoCmd.RunCommand acCmdSaveRecord
        DoCmd.OpenReport "Rl_IdPacienteData", acViewReport, , "[Cod Entrada] = " & Me![Cod Entrada]
    End Sub

    Novo codigo para o botão btnLimpar , do Formulario FrPesquisaArquivo

    Código:
    Private Sub btnLimpar_Click()
        Me.txt1 = Null: Me.txt2 = Null: Me.txt3 = Null: Me.txt4 = Null: Me.txt5 = Null: Me.txt6 = Null
        Me.ListaPaciente.RowSource = " SELECT * FROM Cs_ListBox"
        Me.txt2.SetFocus
    End Sub

    Junto o link Bd a funcionar

    Abraço
    Anexos
    [Resolvido]Imprimir Último registro do Relatório AttachmentDatabase1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (536 Kb) Baixado 4 vez(es)
    avatar
    AUGUSTO MORGADO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 16/12/2013

    [Resolvido]Imprimir Último registro do Relatório Empty Re: [Resolvido]Imprimir Último registro do Relatório

    Mensagem  AUGUSTO MORGADO 10/11/2020, 11:15

    Bom Dia!

    Perfeito era isso mesmo!

    Fico muito grato pela ajuda, e aprendo cada vez mais.

    Um grande abraço!

    bacano gosta desta mensagem


      Data/hora atual: 17/4/2021, 18:24