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

    Ordenação - SQL

    avatar
    wltpobre
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 28/11/2012

    Ordenação - SQL Empty Ordenação - SQL

    Mensagem  wltpobre 20/2/2014, 00:57

    Por gentileza,

    Tenho esse SQL que carrega uma caixa de listagem, gostaria de ordenar pelo campo Código (tblMensagens), como faço, estou quebrando a cabeça e nada:

    Código:
    Private Sub lstMensagens_KeyDown(KeyCode As Integer, Shift As Integer)

        Dim db As DAO.Database, ws As DAO.Workspace, rs As DAO.Recordset, rs2 As DAO.Recordset, L As Double, R As String, varPath As Variant, varPath2 As String, VarArq As Integer

    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(CurrentProject.Path & "\Sistema de Vendas_be.accdb", False, False, "MS Access;PWD=xxxxxxxxxxx")
    Set rs = db.OpenRecordset("SELECT * FROM tblMensagens WHERE Código like " & Me.lstMensagens.Column(0) & "")
    Set rs = db.OpenRecordset("SELECT * FROM tblAnexos WHERE CodMensagem like " & Me.lstMensagens.Column(0) & "")

    For L = 0 To Me.lstMensagens.ListCount
        If Me.lstMensagens.ListIndex = L Then
            R = "ComDados"
        End If
    Next

    If R <> "ComDados" Then
        MsgBox "Você não selecionou nenhuma mensagem para excluir.", vbExclamation, "Aviso"
    Else
        If MsgBox("Deseja excluir essa mensagem?", vbYesNo + vbQuestion, "Aviso") = vbYes Then
            db.Execute "DELETE FROM tblMensagens WHERE Código=" & Me.lstMensagens.Column(0) & ""
            db.Execute "DELETE FROM tblAnexos WHERE CodMensagem=" & Me.lstMensagens.Column(0) & ""
            Me.TxtPesquisa.SetFocus
            Call Pesquisas
        Else
            Exit Sub
        End If
    rs.Close
    Set rs = Nothing
    End If
    End Sub

    Muito obrigado!
    avatar
    Mrsilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 03/11/2011

    Ordenação - SQL Empty Re: Ordenação - SQL

    Mensagem  Mrsilva 20/2/2014, 02:52

    Olá

    Se seu campo que quer colocar como criterio de ordem chama Código substitua essa linha:

    Set rs = db.OpenRecordset("SELECT * FROM tblMensagens WHERE Código like " & Me.lstMensagens.Column(0) & "")

    por essa linha:

    Set rs = db.OpenRecordset("SELECT * FROM tblMensagens WHERE Código like " & Me.lstMensagens.Column(0) & " ORDER BY Codigo")


    Veja que só foi acrescentado ORDER BY Codigo

    Verifique se seu campo tem acento se tiver tem que colocar.
    avatar
    wltpobre
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 28/11/2012

    Ordenação - SQL Empty Status

    Mensagem  wltpobre 20/2/2014, 13:32

    Obrigado pela ajuda Mrsilva.

    Não adiantou, não ocorre erros, porém não ordena, eu já tinha tentado colocar o que você propôs sem êxito.

    Wellington
    avatar
    Mrsilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 03/11/2011

    Ordenação - SQL Empty Re: Ordenação - SQL

    Mensagem  Mrsilva 20/2/2014, 21:54

    Olá.

    Estranho não de dado certo.

    Se puder poste seu aplicativo ou somente a parte envolvida que tento aqui, não precisa ter dados.

    avatar
    wltpobre
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 28/11/2012

    Ordenação - SQL Empty AjudaEnvio de Email por CDO

    Mensagem  wltpobre 22/2/2014, 13:22

    Primeiramente obrigado pelo auxílio.

    Então MrSilva,

    Esse BD modelo eu peguei aqui mesmo no fórum, é um exemplo do Criquio:

    Envio de Email por CDO

    Esse item deve aparecer ordenado no formulário frmPesquisa, da mesma forma que o outlook trata os e-mails enviados, a tabela é tblMensagens

    BD exemplo

    Repara que esse exemplo a conexão com o BE é feita por VBA.

    Novamente obrigado.

    Wellington

      Data/hora atual: 20/1/2022, 11:52