Boas tem como fazer uma pesquisa em vários tópicos???
Eu fiz uma que so pesquisa por dois tipos eu gostaria que pesquisa-se por mais tipo(conta, tipo, data, valor e cheque) e se um campo estiver em branco ele execute a pesquisa.
conta = Me.ComboBox8.Text
tipo = Me.ComboBox7.Text
cheque = Me.TextBox25.Text
datainicial = Me.TextBox26.Text
datafinal = Me.TextBox27.Text
valor = Me.TextBox28.Text
O código que eu fiz e esse:
Dim cx As New ClasseConexao
Dim banco As ADODB.Recordset
Dim sql As String
Me.ListView3.ColumnHeaders.Clear
Me.ListView3.ListItems.Clear
sql = "SELECT codigo, nome, data, valor, conta, cheque, tipo, pago, copia, semana FROM movimento"
sql = sql & " WHERE conta = '" & Me.ComboBox8.Text & "'"
sql = sql & " AND tipo = '" & Me.ComboBox7.Text & "'ORDER BY data, nome, codigo ASC;"
Set banco = New ADODB.Recordset
Obrigado pela ajuda desde ja.
Eu fiz uma que so pesquisa por dois tipos eu gostaria que pesquisa-se por mais tipo(conta, tipo, data, valor e cheque) e se um campo estiver em branco ele execute a pesquisa.
conta = Me.ComboBox8.Text
tipo = Me.ComboBox7.Text
cheque = Me.TextBox25.Text
datainicial = Me.TextBox26.Text
datafinal = Me.TextBox27.Text
valor = Me.TextBox28.Text
O código que eu fiz e esse:
Dim cx As New ClasseConexao
Dim banco As ADODB.Recordset
Dim sql As String
Me.ListView3.ColumnHeaders.Clear
Me.ListView3.ListItems.Clear
sql = "SELECT codigo, nome, data, valor, conta, cheque, tipo, pago, copia, semana FROM movimento"
sql = sql & " WHERE conta = '" & Me.ComboBox8.Text & "'"
sql = sql & " AND tipo = '" & Me.ComboBox7.Text & "'ORDER BY data, nome, codigo ASC;"
Set banco = New ADODB.Recordset
Obrigado pela ajuda desde ja.