Olá
Deixo parte da App em desenvolvimento, precisava que filtra-se entre datas. Campos
DI - DF
txtPesquisa
Por outro lado gostava que a consulta estivesse na abertura dos forms na data corrente e só se precisar é que faço a pesquisa entre datas. A pesquisa entre datas esta a dar um erro. . .
Um bem hajam !
Deixo parte da App em desenvolvimento, precisava que filtra-se entre datas. Campos
DI - DF
- Código:
Private Sub filtro_Click()
Dim strFiltro As String
strFiltro = "Nome LIKE '*" & Me.txtPesquisa.Text & "*' AND Data between # " & Format(DI, "mm/dd/yyyy") & " # and # " & Format(DF, "mm/dd/yyyy") & " #"
Me.frmSubConsultaMarcacoes.Form.Filter = strFiltro
Me.frmSubConsultaMarcacoes.Form.FilterOn = True
End Sub
txtPesquisa
- Código:
Private Sub txtpesquisa_Change()
Dim strFiltro As String
strFiltro = "Nome LIKE '*" & Me.txtPesquisa.Text & "*' "
Me.frmSubConsultaMarcacoes.Form.Filter = strFiltro
Me.frmSubConsultaMarcacoes.Form.FilterOn = True
End Sub
Por outro lado gostava que a consulta estivesse na abertura dos forms na data corrente e só se precisar é que faço a pesquisa entre datas. A pesquisa entre datas esta a dar um erro. . .
Um bem hajam !
- Anexos
- bd_marcacoes.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (88 Kb) Baixado 26 vez(es)