Bom dia Amigos.
Estou usando a seguinte função:
Public Sub btFiltrar_Click()
On Error Resume Next
Dim J As Boolean, filtro As String
If IsNull(Me!CboStatus) Then J = True
If IsNull(Me!DataInicial) Then J = True
If IsNull(Me!DataFinal) Then J = True
If J = True Then
MsgBox "Escolha pelo menos uma Obra para o Filtro", vbInformation, "Aviso"
Me!CboStatus.SetFocus
Exit Sub
End If
filtro = "ID_Status = " & CboStatus.Column(0)
filtro = filtro & " AND tbl_atividade.DataAtividade >= #" & Format(Me!DataInicial, "mm/dd/yyyy") & "# AND tbl_atividade.Dataatividade <= #" & Format(Me!DataFinal + 1, "mm/dd/yyyy") & "#"
'----------------------------------------------------------------------------------------------------------------------------------------------------------------
subfrm_Agenda.Form.Filter = filtro
subfrm_Agenda.Form.FilterOn = True
End Sub
Esse botão está em um form que efetua um filtro em um subform vinculado e que está funcionando adequadamente.
Minha dúvida:
Tenho três colunas neste subform: Status, Data, Hora.
Como faço para classificar em ordem alfabética seguindo a sequencia destas colunas utilizando o VBA para isso?
Ou seja:
1º Status - em ordem alfabética
2º Data - em ordem crescente
3º Hora - em ordem crescente
No aguardo
Estou usando a seguinte função:
Public Sub btFiltrar_Click()
On Error Resume Next
Dim J As Boolean, filtro As String
If IsNull(Me!CboStatus) Then J = True
If IsNull(Me!DataInicial) Then J = True
If IsNull(Me!DataFinal) Then J = True
If J = True Then
MsgBox "Escolha pelo menos uma Obra para o Filtro", vbInformation, "Aviso"
Me!CboStatus.SetFocus
Exit Sub
End If
filtro = "ID_Status = " & CboStatus.Column(0)
filtro = filtro & " AND tbl_atividade.DataAtividade >= #" & Format(Me!DataInicial, "mm/dd/yyyy") & "# AND tbl_atividade.Dataatividade <= #" & Format(Me!DataFinal + 1, "mm/dd/yyyy") & "#"
'----------------------------------------------------------------------------------------------------------------------------------------------------------------
subfrm_Agenda.Form.Filter = filtro
subfrm_Agenda.Form.FilterOn = True
End Sub
Esse botão está em um form que efetua um filtro em um subform vinculado e que está funcionando adequadamente.
Minha dúvida:
Tenho três colunas neste subform: Status, Data, Hora.
Como faço para classificar em ordem alfabética seguindo a sequencia destas colunas utilizando o VBA para isso?
Ou seja:
1º Status - em ordem alfabética
2º Data - em ordem crescente
3º Hora - em ordem crescente
No aguardo