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

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.    

Olá Leda,

Ja baixei seu modelo e vou analisar.

Att,

Alexandre

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

aí sim, filtrando de maneira super eficiente.

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

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

Tentei várias formas, sem sucesso.

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

Att,

Alexandre Fim

Olá Leda,

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






Segue versão atualizada do sistema.

Att,

Alexandre Fim

Perfeito.

Muito, mas muito obrigada mesmo.

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.

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

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.

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