A ordem da classificação é: primeiro: data - depois hora depois - data_prox_agendamento depois hora_prox_agendamento..
Segue abaixo o código fonte.
Obrigado,
Rafael
Private Sub Textpesquisanome_Change()
Dim nConn As New ADODB.Connection
Dim DB As Database
Dim nConn2 As New ADODB.Connection
Dim BANCO As New ADODB.Recordset
Dim BANCO1 As ADODB.Recordset
Dim SQL As String
Dim SQL2 As String
Dim Count
Dim nConectar As String
Dim nConectar2 As String
'Endereço e nome do banco de dados * habilite o provedor de acordo c/ sua versao:
' nConectar = "Provider=Microsoft.Jet.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "base.mdb"
nConectar = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "\CARLOSSETTI-PCCREAL FEETDATABASEREALFEET.MDB"
nConn.ConnectionString = nConectar
nConn.Open
nConectar2 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "\CARLOSSETTI-PCCREAL FEETDATABASEREALFEET.MDB"
nConn2.ConnectionString = nConectar2
nConn2.Open
Set BANCO1 = New ADODB.Recordset
BANCO1.Open ("AGENDAMENTO"), nConn2
Dim i As Integer
i = 0
Me.Listview1.ListItems.Clear
Me.Listview1.ColumnHeaders.Clear
Me.Listview1.View = lvwReport
Me.Listview1.Gridlines = True
Listview1.ColumnHeaders.Clear
Me.Listview1.ColumnHeaders.Add , , "", 0
Me.Listview1.ColumnHeaders.Add , , "OS", 60, lvwColumnCenter
Me.Listview1.ColumnHeaders.Add , , "DATA", 170, lvwColumnCenter
Me.Listview1.ColumnHeaders.Add , , "HORA", 170, lvwColumnCenter
Me.Listview1.ColumnHeaders.Add , , "CLIENTE", 170, lvwColumnCenter
Me.Listview1.ColumnHeaders.Add , , "FONE1", 120, lvwColumnCenter
Me.Listview1.ColumnHeaders.Add , , "FONE2", 120, lvwColumnCenter
Me.Listview1.ColumnHeaders.Add , , "RAMAL", 120, lvwColumnCenter
Me.Listview1.ColumnHeaders.Add , , "E-MAIL", 170, lvwColumnCenter
Me.Listview1.ColumnHeaders.Add , , "SERVIÇO", 170, lvwColumnCenter
Me.Listview1.ColumnHeaders.Add , , "PROFISSIONAL", 170, lvwColumnCenter
Me.Listview1.ColumnHeaders.Add , , "DATA_PROX_CONSULTA", 170, lvwColumnCenter
Me.Listview1.ColumnHeaders.Add , , "HORA_PROX_CONSULTA", 170, lvwColumnCenter
Me.Listview1.ColumnHeaders.Add , , "E-MAIL CONFIRMAÇÃO DE CONSULTA", 300, lvwColumnCenter
Me.Listview1.ColumnHeaders.Add , , "E-MAIL CONFIRMAÇÃO DE RETORNO", 300, lvwColumnCenter
'Aqui é nossa busca pelo que digitammos
'A busca pode ter qualquer parametro desde que lhe atenda
Dim CADASTRO(1 To 15)
CADASTRO(1) = UCase(Me.TextFILTROPROF.Text)
TextFILTROPROF.Text = CADASTRO(1)
CADASTRO(2) = UCase(Me.Textcliente2.Text)
Textcliente2.Text = CADASTRO(2)
If TextFILTROPROF.Text = Null Then
MsgBox "CAMPO DE PESQUISA PARA AGENDA: PROFISSIONAL ESTÁ EM BRANCO"
End If
If textboxfiltro.Text = Null Then
MsgBox "CAMPO DE PESQUISA PARA AGENDA: DATA ESTÁ EM BRANCO"
End If
SQL = "SELECT OS,NOME,DATA,HORA,fone1,fone2,RAMAL,EMAIL,SERVICO,PROFISSIONAL,DATA_PROX_AGENDAMENTO,HORA_PROX_AGENDAMENTO,consulta,retorno,PRONTUARIO FROM [AGENDAMENTO]"
SQL = SQL & " WHERE [DATA] = '" & textboxfiltro & "' OR [DATA_PROX_AGENDAMENTO]='" & textboxfiltro & "'"
SQL = SQL & " AND [PROFISSIONAL]= '" & TextFILTROPROF & "' OR [DATA] = '" & textboxfiltro & "' OR [DATA_PROX_AGENDAMENTO]='" & textboxfiltro & "'"
'sql2 = "SELECT OS,NOME,DATA,HORA,TELRES,TELCEL,TELCOM,RAMAL,EMAIL,SERVICO,PROFISSIONAL,DATA_PROX_AGENDAMENTO,HORA_PROX_AGENDAMENTO,OBSERVACAO,PRONTUARIO FROM [AGENDAMENTO]"
'sql2 = sql2 & " WHERE [DATA_PROX_AGENDAMENTO] = '" & TextBOXFILTRO & "'"
'sql2 = sql2 & " AND [PROFISSIONAL]= '" & TextFILTROPROF & "'"
Set BANCO = New ADODB.Recordset
BANCO.Open SQL, nConn
i = 1
'banco1.Open sq2, nConn2
'Count = BANCO1.RecordCount
'BANCO1.MoveFirst
'Set DB = OpenDatabase("\CARLOSSETTI-PCCREAL FEETDATABASEREALFEET.MDB")
'Set BANCO = DB.OpenRecordset("AGENDAMENTO")
'BANCO.MoveFirst
While Not BANCO.EOF
If TextFILTROPROF <> "" And textboxfiltro <> "" And Textcliente2 = "" Or TextFILTROPROF = "" And textboxfiltro <> "" And Textcliente2 = "" Then
Set LI = Listview1.ListItems.Add(Text:=BANCO("OS"))
If (BANCO("DATA") = textboxfiltro.Text Or BANCO("DATA_PROX_AGENDAMENTO") = textboxfiltro.Text) Or (BANCO("DATA") = textboxfiltro.Text Or BANCO("DATA_PROX_AGENDAMENTO") = textboxfiltro.Text) And BANCO("PROFISSIONAL") = TextFILTROPROF.Text Then
If BANCO("os") <> "" Then
LI.ListSubItems.Add Text:=BANCO("OS")
End If
If BANCO("data") <> "" Then
LI.ListSubItems.Add Text:=BANCO("DATA")
End If
If BANCO("hora") <> "" Then
LI.ListSubItems.Add Text:=BANCO("HORA")
End If
If BANCO("nome") <> "" Then
LI.ListSubItems.Add Text:=BANCO("NOME")
End If
If BANCO("FONE1") <> "" Then
LI.ListSubItems.Add Text:=BANCO("FONE1")
End If
If BANCO("FONE2") <> "" Then
LI.ListSubItems.Add Text:=BANCO("FONE2")
End If
If BANCO("ramal") <> "" Then
LI.ListSubItems.Add Text:=BANCO("RAMAL")
End If
If BANCO("email") <> "" Then
LI.ListSubItems.Add Text:=BANCO("EMAIL")
End If
If BANCO("servico") <> "" Then
LI.ListSubItems.Add Text:=BANCO("SERVICO")
End If
If BANCO("profissional") <> "" Then
LI.ListSubItems.Add Text:=BANCO("profissional")
End If
If BANCO("data_prox_agendamento") <> "" Then
LI.ListSubItems.Add Text:=BANCO("data_prox_agendamento")
End If
If BANCO("hora_prox_agendamento") <> "" Then
LI.ListSubItems.Add Text:=BANCO("hora_prox_agendamento")
End If
If BANCO("CONSULTA") <> "" Then
LI.ListSubItems.Add Text:=BANCO("CONSULTA")
End If
If BANCO("RETORNO") <> "" Then
LI.ListSubItems.Add Text:=BANCO("RETORNO")
End If
End If
Listview1.
Dim item As ListItem
'Aqui estamos acessando e definindo cada subitem
'Define o formato de visao como Report
Listview1.View = lvwReport
i = i + 1
BANCO.MoveNext
End If
Wend
'Aqui estamos acessando e definindo cada subitem
'Define o formato de visao como Report
Listview1.View = lvwReport
Call TiraAcento2(linha)
While Not BANCO1.EOF
If TextFILTROPROF = "" And textboxfiltro = "" And Textcliente2 = BANCO1("NOME") Then
Set LI = Listview1.ListItems.Add(Text:=BANCO1("OS"))
If BANCO1("os") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("OS")
End If
If BANCO1("data") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("DATA")
End If
If BANCO1("hora") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("HORA")
End If
If BANCO1("nome") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("NOME")
End If
If BANCO1("FONE1") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("FONE1")
End If
If BANCO1("FONE2") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("FONE2")
End If
If BANCO1("ramal") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("RAMAL")
End If
If BANCO1("email") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("EMAIL")
End If
If BANCO1("servico") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("SERVICO")
End If
If BANCO1("profissional") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("profissional")
End If
If BANCO1("data_prox_agendamento") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("data_prox_agendamento")
End If
If BANCO1("hora_prox_agendamento") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("hora_prox_agendamento")
End If
If BANCO1("CONSULTA") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("CONSULTA")
End If
If BANCO1("RETORNO") <> "" Then
LI.ListSubItems.Add Text:=BANCO1("RETORNO")
End If
End If
BANCO1.MoveNext
Wend
CommandButton4.Enabled = False
CommandButton5.Enabled = False
CommandButton6.Enabled = False
CommandButton7.Enabled = False
CommandButton12.Enabled = False
CommandButton15.Enabled = False
nConn.Close
Set BANCO = Nothing
Exit Sub
End Sub
Postado : 02/04/2015 10:07 am