Prezados boa tarde a todos.
Tenho os seguintes campos.
DI - data inicial.
DF- data final.
DenOculta - Caixa de texto.
POculta - Caixa de texto.
MudaStatusOculta - caixa de texto
***Em vermelho são caixas de texto que recebem os valores vindo de combobox
Abaixo, as tentativas frustradas e fracassadas de filtragem.
Private Sub bt_Pesquisa_Click()
Me.FilterOn = False
Dim Filtro$
Filtro$ = "DentistaOculta like '*" & Me!DenOculta & "*' AND StatusOculta like '*" & Me!MudaStatusOculta & "*' AND PlanoOculta like '*" & Me.POculta & "*' AND [Dataatendimento] between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"
'Filtro$ = "[DentistaOculta] = '" & Me.DenOculta & "' AND [StatusOculta] = '" & Me.MudaStatusOculta & "' AND [PlanoOculta] = '" & Me.POculta & "' AND [Dataatendimento] between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"
Me.Filter = Filtro$
Me.FilterOn = True
Me.DataAtendimento.BackColor = RGB(192, 230, 212)
Me.Requery
End Sub
Se algum dos colegas puderem me ajudar...agradeço.
Abraços a todos.
Tenho os seguintes campos.
DI - data inicial.
DF- data final.
DenOculta - Caixa de texto.
POculta - Caixa de texto.
MudaStatusOculta - caixa de texto
***Em vermelho são caixas de texto que recebem os valores vindo de combobox
Abaixo, as tentativas frustradas e fracassadas de filtragem.
Private Sub bt_Pesquisa_Click()
Me.FilterOn = False
Dim Filtro$
Filtro$ = "DentistaOculta like '*" & Me!DenOculta & "*' AND StatusOculta like '*" & Me!MudaStatusOculta & "*' AND PlanoOculta like '*" & Me.POculta & "*' AND [Dataatendimento] between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"
'Filtro$ = "[DentistaOculta] = '" & Me.DenOculta & "' AND [StatusOculta] = '" & Me.MudaStatusOculta & "' AND [PlanoOculta] = '" & Me.POculta & "' AND [Dataatendimento] between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"
Me.Filter = Filtro$
Me.FilterOn = True
Me.DataAtendimento.BackColor = RGB(192, 230, 212)
Me.Requery
End Sub
Se algum dos colegas puderem me ajudar...agradeço.
Abraços a todos.