Ordenando Relatório.

Question

Na caixa "Agrupar/Classificar" de um relatório,
o primeiro item eu informei um campo do meu relatório, criando cabeçalho e rodapé de grupo, o segundo item informei: =Ordena()

Ordena é uma função do meu relatório,que informa por qual campo deve ser classificado (não cria cabeçalho e rodapé de grupo).

Porém ao rodar o relatório, aparece a mensagem:
"Função Ordena não definida na expressão."

Como corrigir a função?

Abaixo o ´código do meu relatório:

Option Compare Database
Option Explicit

Function Ordena(NomeDoCampo As String) As String
On Error Resume Next

Ordena = NomeDoCampo

End Function
Private Sub Report_Open(Cancel As Integer)
Dim NvDeGrupo As Variant

Call Ordena(gOrdem)
Me.RecordSource = strPLE


End Sub

Answer 1

Oi Ivanenko,

 

se o objetivo é apenas ordenar, faça assim:

Me.OrderBy="Teu campo"

Me.OrderByOn = True

 

Isto funciona mesmo com o relatório aberto, então você pode ter um formulário popup que reordene o relatório:

Reports!TeuReport.OrderBy="Teu campo"

Reports!TeuReport.OrderByOn = True

Answer 2

Luiz

Como sempre, o problema é entre a cadeira e o teclado.

Já havia tentado, informando apenas o Me.OrderBy = "MeuCampo", Li no Help do Access a propriedade OrderBy, porém passei "batido", ou seja, "li,mas não li".

A informação que a propriedade me.OrderByOn, para relatórios deve ser definida como verdadeira, estava no comentário do Help do Access.

Obrigado