[Resolvido]Erro na consulta

Boas galera da selva. Estou tentando implementar um formulário que serve tanto para inclusão quanto para edição. A tabela não possui Chave em virtude de registrar uma mesma data várias vezes [dtSaida] . Para consulta, utilizo dois campos da tabela: [dtSaida] e [funcionario] no formulário os campos são [txtData] e [cboConsulta], nessa ordem de preenchimento, pois ao informar o [txtData] ele deveria me retornar no [cboConsulta] somente os nomes onde dtSaida = txtData e ao escolher um registro, deveria preencher os campos do formulário. O fato é que apos informar os campos acima, não está retornando o registro correto.

Boa tarde
Experimentei com a data 16-11-2021 e escolhi ambos os funcionários e funcionou com ambos, preencheu os seus dados no formulário

Obrigado Alexandre mas, se reparar, o Pedro possui dois registros e independentemente da minha escolha (16 ou 30) retornará os dados referentes ao dia 30/11/2021.

Na Página3: Campo [data] e página 29: [dtSaida] e [dtRetorno]

Coloque o critério de Data também (atenção às palavras reservadas)

Código:

filtro = "Funcionario = '" & Me!cboConsulta.Column(1) & "' and Data=#" & txtData & "#"

Obrigado.

Moderadores, peço perdão mas surgiu um fato novo sobre este tópico.

No meu sistema, não consigo o retorno de alguns registro. Ao informar a data, automaticamente somente serão visualizados na combox, os registros com aquela data mas, não consigo visualizar os dados do registro selecionado e o mais estranho é que esse fato não ocorre com todos os registro da mesma data, ou seja, dependendo da seleção acontece normalmente.

Estranho é que em um formulário com subformulário, consigo pesquisar todos os registros.

Boa tarde
Devia ter tirado o "Resolvido", mas já o tirei
Esse problema será da formatação (dd-mm-yyyy ou mm-dd-yyyy)?

Ficou muito confusa minha explanação. Como o filtro ocorre primeiramente por data, ao selecionar por exemplo a data 05/11/2021, na caixa de seleção, me retorna somente que teve registro neste dia mas, não consigo visualizar todos os registro do dia 05/11/2021 e aliás de ontem para hoje, não me lembro se alterei alguma confifguração nas opções do access que ao abrir o formulário e consultar um registro, está inserindo uma linha em branco na tabela.

Olá Tauron,

Fiz ajuste na tua rotina:

Código:



Private Sub cboConsulta_AfterUpdate()
Dim filtro As String
   
    '-- Alexandre Fim-------------------
    'filtro = "Funcionario = """ & Me!cboConsulta.Column(1) & """"
    filtro = "DtSaida = #" & Format(Me.cboConsulta.Column(0), "mm/dd/yyyy") & "# AND Matricula = '" & cboConsulta.Column(2) & "'"
    DoCmd.ApplyFilter , filtro
   
    '---------------------------------------
    'Outra forma de aplicar a filtragem
    '---------------------------------------
    'Me.Filter = filtro
    'Me.FilterOn = True
    'Me.Requery
    '---------------------------------------
    HabilitarComandos
    Me!cmdEditar.SetFocus
    Me!cboConsulta = Null
    Me!txtData = Null
   
End Sub



Também faltou atualizar o cboConsulta após informar outra data:

Código:



Private Sub txtData_AfterUpdate()

    Me.cboConsulta.Requery

End Sub



É isso.
[]'s
FIM

Boa tarde Alexandre

Nossa nos primeiros testes está perfeito. Quanto ao "requery" do campo txtData, com certeza o deletei quando excluir outros códigos de restrições existentes no formulário e agradeço por isso, pois não me recordava.

Irei fazer mais testes e, em breve retornarei, já com quase 100 % de certeza que posso finalizar.

Abraços e, mais uma vez obrigado.

Obrigado.

Valeu Tauron,

O fórum agradece.

Sucesso