[Resolvido]Consulta com Order By Com variavel de uma função

Bom Dia!

Tenho o seguinte Modulo com 2 funções

Option Compare Database

Option Explicit
Global Comando As String

'Variaveis

Global NumeroDiario As String
Global VComboboxCol As String
Global VComboboxOrd As String


Global rst As DAO.Recordset
Public Function PassaParametro(ParametroGlobal)

Dim StrSql As String

Comando = ("SELECT Top 1 (Cod_TBParamDiario), NumeroDiario  FROM TBParametroDiario Order By Cod_TBParamDiario Desc")
     
   Set rst = CurrentDb.OpenRecordset(Comando, dbOpenDynaset)
   
   NumeroDiario = rst("NumeroDiario")
     
   Select Case ParametroGlobal
  Case "NumeroDiario"
             PassaParametro = NumeroDiario
             
             End Select
             
End Function

Public Function PassaParametroLC(ParametroGlobal)

Dim StrSql As String

Comando = ("SELECT Top 1(Cod_TBParametro),VComboboxOrd,VComboboxCol FROM TBParametroLocalidadeEContratuais Order By Cod_TBParametro Desc")
     
  Set rst = CurrentDb.OpenRecordset(Comando, dbOpenDynaset)
 
   VComboboxOrd = rst("VComboboxOrd")
   VComboboxCol = rst("VComboboxCol")
 
   Select Case ParametroGlobal
           
   Case "VComboboxOrd"
             
         PassaParametroLC = VComboboxOrd
           
           Case "VComboboxCol"
             
          PassaParametroLC = VComboboxCol
                       
             End Select

End Function

E tenho a consulta que eu quero ordernar pelos valores que estão nas variaveis da minha função. Mas não está funcionando. Mas não faz a ordenação.

Ele pega o ultimo registro inserido na minha tabela. Ex: VComboboxCol = M.Cidade ,VComboboxOrd = ASC . Quero que ordene pela coluna e Crescente.

SELECT M.Cidade, A.Nome, U.UF FROM UnidadesFederativas AS U INNER JOIN (Almoxerifado AS A INNER JOIN Municipio AS M ON A.Cod_Almoxerifado = M.Cod_Almoxerifado) ON U.Cod_UF = M.Cod_UF order by PassaParametroLC('VComboboxCol'), PassaParametroLC('VComboboxOrd')

Olá,

Se o Select estiver sendo atribuído a uma variável, tente assim:

Código:

Dim strSql As String

strSql = "SELECT M.Cidade, A.Nome, U.UF FROM UnidadesFederativas AS U INNER JOIN (Almoxerifado AS A INNER JOIN Municipio AS M ON A.Cod_Almoxerifado = M.Cod_Almoxerifado) ON U.Cod_UF = M.Cod_UF order by " & PassaParametroLC("VComboboxCol") & " " & PassaParametroLC("VComboboxOrd")

Esse select está em uma consulta que eu criei. Mas ele não ordena de acordo com os valores passados como parâmetro.

Você vai precisar alterar o select da consulta via vba.
Se você usar o código abaixo no evento Ao clicar de um botão em um formulário, a consulta passa a funcionar:

Código:

Dim qd As QueryDef
Set qd = CurrentDb.QueryDefs("NomeDaConsulta")
qd.SQL = "SELECT M.Cidade, A.Nome, U.UF FROM UnidadesFederativas AS U INNER JOIN (Almoxerifado AS A INNER JOIN Municipio AS M ON A.Cod_Almoxerifado = M.Cod_Almoxerifado) ON U.Cod_UF = M.Cod_UF order by " & PassaParametroLC("VComboboxCol") & " " & PassaParametroLC("VComboboxOrd")

A minha aplicação é em C#, eu uso o access como banco e faço os relatórios nele. Nesse caso eu colocaria esse Código em algum evento do relatório??

Sim, no evento Ao abrir do relatório.

Não Funcionou n. coloquei o codigo no evento ao abrir do relatorio mas quando coloco para visualizar não abre nada.

Pode enviar uma cópia do arquivo, mesmo sem dados?

segue em anexo.

Banco

Aqui está funcionando, veja:

Só que esse método não funciona, o relatório segue suas propriedades para impor a classificação dos registros, ignorando a classificação da consulta.

Basta o código abaixo, no evento Ao abrir do relatório:

Código:

Me.OrderByOn = True
Me.OrderBy = PassaParametroLC("VComboboxCol") & " " & PassaParametroLC("VComboboxOrd")


Obrigada, agora deu certo aq. Esse banco q te mandei criei a parte e no meu original eu tirei o order by da minha consulta e deixei so la no select do abrir do relatorio.

De nada.
Mas lembre-se que o select não irá influenciar na classificação do relatório, conforme mencionei na mensagem anterior.