MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Classificar pelo VBA

    Compartilhe
    avatar
    MarceloSilva
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 28/02/2011

    Classificar pelo VBA

    Mensagem  MarceloSilva em Sex 20 Jun 2014, 14:59

    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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    Registrado : 05/11/2009

    Re: Classificar pelo VBA

    Mensagem  Alexandre Neves em Sex 20 Jun 2014, 17:07

    Boa tarde,
    Evite os nomes reservados do Acess
    subfrm_Agenda.Form.OrderBy = "Status, Data, Hora"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Sab 25 Nov 2017, 00:07