MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Classificar pelo VBA

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Classificar pelo VBA Empty Classificar pelo VBA

    Mensagem  MarceloSilva 20/6/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Classificar pelo VBA Empty Re: Classificar pelo VBA

    Mensagem  Alexandre Neves 20/6/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: 29/3/2024, 08:49