Olá Edilene abaixo um código simples para vc estudar, usando data grid.
Me mande seu e-mail que lhe envio o programa completo.
Public Sub SortDBGrid(dbg As DBGrid, dat As Data, Optional Ordem As Variant)
'//Ordem: True:Ascendente (predeterminado), False: Descendente
Dim rs As Recordset
Dim Clause As String
Dim FieldName As String
Dim Asc As Boolean
Dim CurrCol As Integer
On Error GoTo SortErr
If IsMissing(Ordem) Then
Asc = True
Else
Asc = CBool(Ordem)
End If
CurrCol = dbg.Col
FieldName = dbg.Columns(CurrCol).DataField
If dat.Recordset.Fields(FieldName).Type = dbMemo Then
MsgBox "Os campos Memos não podem ser ordenados"
Exit Sub
End If
Screen.MousePointer = vbHourglass
Set rs = dat.Recordset
Clause = "[" + FieldName + "]"
If Not Asc Then
Clause = Clause + " DESC"
End If
rs.Sort = Clause
Set dat.Recordset = rs.OpenRecordset(rs.Type)
dbg.Col = CurrCol
dbg.SetFocus
Screen.MousePointer = vbDefault
Exit Sub
SortErr:
MsgBox Err.Description
End Sub
Private Sub Command1_Click()
If Option1 Then
Call SortDBGrid(DBGrid1, Data1, True)
ElseIf Option2 Then
Call SortDBGrid(DBGrid1, Data1, False)
End If
End Sub
Private Sub Command2_Click()
Dim sarel As String
sarel = MsgBox("Abandonando a Consulta... OBRIGADO!!!", vbOKOnly + vbInformation, "HENRIQUE Sistemas")
Unload Form4
End Sub
Private Sub Command3_Click()
Dim Dado As String, busca As String
Dado = InputBox("Informe a inicial do nome a localizar ! ", " SOLICITANTE ")
'busca = " SOLICITANTE='" & Dado & "'" (BUSCA POR NOME COMPLETO)
busca = " SOLICITANTE LIKE '" & Dado & "*'" ' BUSCA PELO INÍCIO DO NOME
Data1.Recordset.FindMin busca
If Data1.Recordset.NoMatch Then
MsgBox " Solicitante não localizado ", vbExclamation, "HENRIQUE Sistemas - Consulta pela incial do Nome do Solicitante"
Else
DBGrid1.SelBookmarks.Add DBGrid1.Bookmark 'usando a propriedade para selecionar a linha
End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "Praca.mdb"
Data1.RecordSource = "Praca8"
End Sub
