Muuuuuuito bom Ghost... valew mesmo .. necessariamente minha tabela precisa ser do tipo Data? ou pode ser string e ele organiza dessa mesma forma ?
Ah um "probleminha" que deu ... ele não está organizando direito vou colar o código aqui ok ? ve se eu fiz algo errado por favor ... é que na primeira vez q organiza vai na ASCendente .. e a segunda na Desc... só que ele só tah organizando na ASC ... pq será ?
ai vai o código .....
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub msfmostra_Click()
Dim rsSort As DAO.Recordset
With msfmostra ' msfmostra eh o nome do meu FLEX
If .Row <> .RowSel And .Rows - 1 = .RowSel Then
If vAsc = True Then ' esse vAsc verifica em qual ordem organizar
If .ColSel = 4 Or .ColSel = 5 Then ' coluna 4 e 5 são as de datas
'Clicando no cabeçalho da coluna para indexar
datapopula.Recordset.Sort = "DATA DESC" 'datapopula é o nome do meu DATA
Set rsSort = datapopula.Recordset.OpenRecordset
Set datapopula.Recordset = rsSort
atualizar_msfmostra ' essa função da um refresh no data e formata o FLEX
Else
.Col = .ColSel
.Sort = 2
End If
vAsc = False
Else
If .ColSel = 4 Or .ColSel = 5 Then
'Clicando no cabeçalho da coluna para indexar
datapopula.Recordset.Sort = "DATA"
Set rsSort = datapopula.Recordset.OpenRecordset
Set datapopula.Recordset = rsSort
atualizar_msfmostra
Else
.Col = .ColSel
.Sort = 1
End If
vAsc = True
End If
'Caso a Coluna seja selecionada
Else
'Caso a Célula seja selecionada
End If
End With
End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
valew por toda ajuda...
