MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Classificar pelo VBA

    Compartilhe

    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

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5890
    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 10 Dez 2016, 06:49