Ola pessoal, bom ano a todos!
Obrigado pela ajuda que vocês tem me prestado. iniciou o ano, novos desafios.
Como fazer uma pesquisa avançada no listview apartir duma ltextbox
Eu estou a usar o seguinte código, mas não consigo descobrir onde esta o erro
strSQL = "SELECT Campo1, Campo2, Campo3, Campo4 FROM Tabela WHERE ID>0"
If Me. Cbo1<> "" Then
strSQL = strSQL & " And Tabela. Campo1='" & Me. Cbo1& "'"
End If
If Me. Cb2<> "" Then
strSQL = strSQL & " And Tabela. Campo2='" & Me. Cbo2& "'"
End If
If Me. Cb3<> "" Then
strSQL = strSQL & " And Tabela. Campo3='" & Me. Cbo3& "'"
End If
If Me. text_procurar.Text <> "" Then
filtro = "LIKE ('*" & Me.text_procurar.Text & "*')"
strSQL = strSQL & " Or Tabela.Campo4='" & filtro & "'"
End If
Os filtros com combobox funcionam perfeitamente, a minha duvida é fazer o filtro também com texbox usando o critério “ou”
Alguém pode me ajudar?
Aguardo
Obrigado pela ajuda que vocês tem me prestado. iniciou o ano, novos desafios.
Como fazer uma pesquisa avançada no listview apartir duma ltextbox
Eu estou a usar o seguinte código, mas não consigo descobrir onde esta o erro
strSQL = "SELECT Campo1, Campo2, Campo3, Campo4 FROM Tabela WHERE ID>0"
If Me. Cbo1<> "" Then
strSQL = strSQL & " And Tabela. Campo1='" & Me. Cbo1& "'"
End If
If Me. Cb2<> "" Then
strSQL = strSQL & " And Tabela. Campo2='" & Me. Cbo2& "'"
End If
If Me. Cb3<> "" Then
strSQL = strSQL & " And Tabela. Campo3='" & Me. Cbo3& "'"
End If
If Me. text_procurar.Text <> "" Then
filtro = "LIKE ('*" & Me.text_procurar.Text & "*')"
strSQL = strSQL & " Or Tabela.Campo4='" & filtro & "'"
End If
Os filtros com combobox funcionam perfeitamente, a minha duvida é fazer o filtro também com texbox usando o critério “ou”
Alguém pode me ajudar?
Aguardo