[Resolvido]Filtro com ComboBox com data

Senhores,


Tenho um form com subform onde no form tenho a combobox Txt_nome que o tipo de dados nesse campo é data. E no subform entre outros campos tem o campo "mesdofc", esse campo também o tipo de dados é data, estou tentando filtrar o subform aplicando a seleção na combobox porém o filtro não localiza, no trecho do filtro no VBA coloco:

filtro = "mesdofc = " & Txt_nome.Column(0)

Boa tarde,
Será
filtro = "mesdofc =#" & Txt_nome.Column(0) &"#"

Alexandre boa tarde,

Veja como ficou, porém ao clicar no botão não filtrou nenhum registro.

Private Sub Comando1_Click()
Dim j As Boolean, filtro As String
If IsNull(Me!Txt_nome) Then j = True

If j = True Then
MsgBox "Preencha todos os campos...", vbInformation, "Aviso"
Me!Txt_nome.SetFocus
Exit Sub
End If

filtro = "mesdofc =#" & Txt_nome.Column(0) & "#"


Fluxo.Form.Filter = filtro
Fluxo.Form.FilterOn = True

End Sub

José

Este trecho está correto?


Fluxo.Form.Filter = filtro
Fluxo.Form.FilterOn = True


Se o filtro for no próprio formulário do botão:


Me.Filter = filtro
Me.FilterOn = True

Talvez precise fazer um Me.Requery  para atualizar o form.

[ ]'s

Tenho um form com subform onde no form tenho a combobox Txt_nome que o tipo de dados nesse campo é data. E no subform entre outros campos tem o campo "mesdofc", esse campo também o tipo de dados é data, estou tentando filtrar o subform aplicando a seleção na combobox porém o filtro não localiza.
Por esse motivo o trecho está:
Fluxo.Form.Filter = filtro
Fluxo.Form.FilterOn = True

É melhor disponibilizar parte do aplicativo, com os objetos envolvidos.

Ajudaremos melhor analisando o que está acontecendo.

Segue em anexo, um exemplo do filtro que não funciona no frmprincipal

Donizeth

Aqui está o exemplo modificado.

Veja que fiz também com somente um formulário.

[ ]'s

Ótimo, obrigado.

resolvido.

Certo !


Boa sorte!