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

    [Resolvido]Filtrar formulário por data informada pelo usuário

    avatar
    LedahBR
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/09/2023

    [Resolvido]Filtrar formulário por data informada pelo usuário Empty [Resolvido]Filtrar formulário por data informada pelo usuário

    Mensagem  LedahBR 8/10/2024, 14:19

    Filtrar formulário por data informada pelo usuário

    Oie, estou com uma tremenda dificuldade com algo que já fiz, e agora, não consigo ver onde não está funcionando.

    No formulário DoacoesF, o usuário vai informar a data que ele quer ver os registros, e após atualizar deve exibir os resultados existentes.  
    A Query, mostra os resultados corretamente, mas na tela, esses registros não aparecem.

    E quando eu clico no botão novo, nesse form, abre o form DoacoesFDetalhe, ok, mas não mostra os campos em branco, para ser preenchido com a nova informação.

    Já tentei diversos caminhos, e não consigo, resolver esses problemas.

    Se puderem me ajudar, agradeço imensamente. bounce  rabbit  Shocked
    Anexos
    [Resolvido]Filtrar formulário por data informada pelo usuário AttachmentDoacoes.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (110 Kb) Baixado 5 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Filtrar formulário por data informada pelo usuário Empty Re: [Resolvido]Filtrar formulário por data informada pelo usuário

    Mensagem  Alexandre Fim 8/10/2024, 15:52

    Olá Leda,

    Ja baixei seu modelo e vou analisar.

    Att,

    Alexandre


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar formulário por data informada pelo usuário Setinf11
    Sistemas e Tecnologia Ltda

    LedahBR gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Filtrar formulário por data informada pelo usuário Empty Re: [Resolvido]Filtrar formulário por data informada pelo usuário

    Mensagem  Alexandre Fim 8/10/2024, 16:19

    Olá,

    Substitua a sub do formulário por essa:

    Código:


    Private Sub DtFiltroDoacao_AfterUpdate()
    Dim NovaData As Date

        If IsNull(Me.DtFiltroDoacao) Then
            MsgBox "Por favor, preencha uma data para filtrar as informações.", vbExclamation, "Mensagem"
            Me.DtFiltroDoacao.SetFocus
            Exit Sub
        Else
            '-- Alexandre Fim - alteração da máscara
            'NovaData = Format(Me.DtFiltroDoacao, "dd/mm/yyyy")
            NovaData = Format(Me.DtFiltroDoacao, "mm/dd/yyyy")
           
        End If

    '-- Alexandre Fim - 08/10/2024 - Formulário já está carregado com os dados, somente realizar o filtro

    '    Me.RecordSource = "SELECT tabDoacao.DoacaoID, tabDoacao.DtDoacao, tabDoacao.PacID, tabPacientes.Nome, tabPacientes.Ost, tabPacientes.Prefeitura, tabDoacao.Valor, tabDoacao.FPgtoID, tbFormaPAgto.FormaPagto, tabDoacao.Obs, tabPacientes.Acamado, tbCidade.Cidade, tabDoacao.ReciboNo" _
    '                    & " FROM tbCidade INNER JOIN (tabPacientes INNER JOIN (tbFormaPAgto INNER JOIN tabDoacao ON tbFormaPAgto.idFormaPagto = tabDoacao.[FPgtoID]) ON tabPacientes.PacID = tabDoacao.PacID) ON tbCidade.idCidade = tabPacientes.Cidade" _
    '                    & " WHERE (((tabDoacao.DtDoacao)=#" & Format(NovaData, "mm/dd/yyyy") & "#));"
       
        Me.Filter = "[DtDoacao] = #" & NovaData & "#"
        Me.FilterOn = True
        Me.Refresh

    End Sub


    É isso

    Att,

    Alexandre Fim



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar formulário por data informada pelo usuário Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    LedahBR
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/09/2023

    [Resolvido]Filtrar formulário por data informada pelo usuário Empty Filtrar formulário por data informada pelo usuário

    Mensagem  LedahBR 8/10/2024, 23:21

    aí sim, filtrando de maneira super eficiente.

    Mas, faltou vc me ajudar com o botão NOVO. Embarassed

    Quando clico nesse botão, não mostra os campos em branco, para serem preenchidos.

    Tentei várias formas, sem sucesso. Neutral



    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Filtrar formulário por data informada pelo usuário Empty Re: [Resolvido]Filtrar formulário por data informada pelo usuário

    Mensagem  Alexandre Fim 9/10/2024, 12:52

    Ok. Estou verificando.
    Logo mais te dou um reorno.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar formulário por data informada pelo usuário Setinf11
    Sistemas e Tecnologia Ltda

    LedahBR gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Filtrar formulário por data informada pelo usuário Empty Re: [Resolvido]Filtrar formulário por data informada pelo usuário

    Mensagem  Alexandre Fim 9/10/2024, 22:15

    Olá Leda,

    Fiz alguns ajustes nos formulários, ajustando algumas funcionalidades. Ficaram assim:

    [Resolvido]Filtrar formulário por data informada pelo usuário Doacao10

    [Resolvido]Filtrar formulário por data informada pelo usuário Doacao11


    Segue versão atualizada do sistema.

    Att,

    Alexandre Fim
    Anexos
    [Resolvido]Filtrar formulário por data informada pelo usuário AttachmentDoacoes_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (100 Kb) Baixado 10 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar formulário por data informada pelo usuário Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    LedahBR
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/09/2023

    [Resolvido]Filtrar formulário por data informada pelo usuário Empty Filtrar formulário por data informada pelo usuário

    Mensagem  LedahBR 10/10/2024, 18:24

    Perfeito.

    Muito, mas muito obrigada mesmo.
    sunny sunny sunny
    avatar
    LedahBR
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/09/2023

    [Resolvido]Filtrar formulário por data informada pelo usuário Empty Filtrar formulário por data informada pelo usuário, AGORA, Digitando código do paciente

    Mensagem  LedahBR 13/10/2024, 15:15

    Filtrar formulário por data informada pelo usuário, AGORA, Digitando código do paciente

    Quando após clicar no botão NOVO, eu digito o código do paciente, não preenche os campos de nome, etc.

    Esses campos só são preenchidos, se eu realmente escolho o paciente no dropdown, mas isso, não é eficaz.

    Procurei como resolver isso, mas, não encontrei, e de novo, venho pedir ajuda.

    O ideal, é que se digite o código do paciente, e os campos sejam preenchidos. Penso que seja no evento AfterUpdate, mas não é.

    Agradeço, e desejo um ótimo domingo a todos.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Filtrar formulário por data informada pelo usuário Empty Re: [Resolvido]Filtrar formulário por data informada pelo usuário

    Mensagem  Alexandre Fim 14/10/2024, 15:05

    Olá Leda,

    Substitua o procediemento anterior por este:

    Código:

    Public Sub CarregaCamposPac()
    Dim vIDPac As Integer

        '-- Se ID do paciente for ZERO, não prossegue adiante --------------
        If Me.PacIDCombo = 0 Then
            Exit Sub
        End If
        '-------------------------------------------------------------------

        '-- Faz a contagem na tabela para saber se existe o paciente. Se contar ZERO, não existe paciente
        vIDPac = Nz(DCount("*", "tabPacientes", "PacID = " & Right("0000" & Me.PacIDCombo, 4) & ""), 0)

       
        '-- Se for ZERO, mensagem para o usuario e limpa os campos
        If vIDPac = 0 Then
            MsgBox "ID do Paciente inválido.", vbExclamation, "Aviso"
            Me.PacID = 0
            Me.NomeTxt = Empty
            Me.OstTxt = Empty
            Me.CidadeTxt = Empty
            Me.PrefeituraTxt = Empty
            Me.AcamadoTxt = Empty
            Exit Sub
        Else
        '-- Se for maior que ZERO, carrega os dados do paciente
            With PacIDCombo
                Me.NomeTxt = DLookup("Nome", "tabPacientes", "PacID = " & PacIDCombo & "")
                Me.OstTxt = DLookup("Ost", "tabPacientes", "PacID = " & PacIDCombo & "")
                Me.CidadeTxt = DLookup("Cidade", "tbCidade", "IdCidade = " & DLookup("Cidade", "tabPacientes", "PacID = " & PacIDCombo & "") & "")
                Me.PrefeituraTxt = IIf(DLookup("Prefeitura", "tabPacientes", "PacID = " & PacIDCombo & "") = -1, "Não", "Sim")
                Me.AcamadoTxt = IIf(DLookup("Acamado", "tabPacientes", "PacID = " & PacIDCombo & "") = -1, "Não", "Sim")
            End With
        End If
       
    End Sub



    Nota: A função "DlookUp" mencionada no código é utilizada para obter o valor de um determinado campo de um conjunto de registros.

    Faça isso que vai funcionar.

    É isso.

    Att,

    Alexandre Fim








    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar formulário por data informada pelo usuário Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    LedahBR
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/09/2023

    [Resolvido]Filtrar formulário por data informada pelo usuário Empty Filtrar formulário por data informada pelo usuário, AGORA, Digitando código do paciente

    Mensagem  LedahBR 15/10/2024, 12:55

    Bom dia.

    Um dia eu vou conseguir resolver esses problemas.

    Acredito nesse caminho de aprendizado e evolução.

    Por enquanto, muito obrigada.

    Funcionou... Simplesmente Funcionou, eeeeee.

    alien


    Última edição por LedahBR em 15/10/2024, 12:56, editado 1 vez(es) (Motivo da edição : Resolvido.)

    Alexandre Fim gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Filtrar formulário por data informada pelo usuário Empty Re: [Resolvido]Filtrar formulário por data informada pelo usuário

    Mensagem  Alexandre Fim 15/10/2024, 13:33

    Bom dia Leda,

    Mas é claro que vai conseguir resolver esses problemas.
    Tenho certeza!!
    A cada dia que passa a gente sempre aprende alguma coisa.

    Sucesso !!
    O fórum agradece !!!

    Abs

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar formulário por data informada pelo usuário Setinf11
    Sistemas e Tecnologia Ltda

    LedahBR gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Filtrar formulário por data informada pelo usuário Empty Re: [Resolvido]Filtrar formulário por data informada pelo usuário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/12/2024, 16:58