Filtro de relatório em tempo de execução

Como poderia gerar em um mesmo relatório, hora order por código e hora por nome do cliente?
(Obs: tenho um formulário antes de abrir o relatório para selecionar as opções)



Tenho a mesma nescessidade também para selecionar tipo de pessao Fisica ou Juridica.
(Obs2: os dados de CPF e CNPJ estão em um mesmo campo na tabela - Cnpj_Cpf)
o que vai diferenciar é a quantidade de caracteres 14= Juridica e nenor que 14 ou em branco = Fisica.

Boa tarde
poderia manipular a propriedade OrderBy do relatório a SQL que alimenta ele.
Dependendo da seleção que realizar (se Alfabético ou Código) aplicaria uma SQL com a cláusula Order BY

Obrigado Marcelo.
Eu não mencionei antes que meu relatório esta atrelado a uma consulta já salva.
Pensei nesta possibilidade Marcelo, em manipular o SQL de acordo com o que eu selecionei, até ai tudo bem.
Neste caso, como eu faço para associar o SQL gerado com o meu relatório?

Olá Luis,

Por gentileza, compartilhe uma cópia do seu bd para análise e solução do problema.

Att,

Alexandre Fim

Alexandre, boa tarde.
Segue banco de dados conforme solicitado.
Lembrando que nescessito da parte de ordenação e filtrar por pessoa juridica ou pessoa fisica.
Os outros filtros de código inicial e código final já esta funcionando, juntamente com razão social, cidade e estado. ok
Des de já agradeço pela ajuda.

No evento de clique do botão para abrir o relatório, você pode adicionar o código VBA abaixo para determinar a opção de ordenação selecionada e configurar a consulta do relatório de acordo.

Private Sub btnAbrirRelatorio_Click()
   Dim ordenacao As String
   Dim consulta As String
   
   ' Verifica qual opção de ordenação foi selecionada
   If Me.optOrdenarPorCodigo.Value = True Then
       ordenacao = "codigo"
   ElseIf Me.optOrdenarPorNome.Value = True Then
       ordenacao = "nome_cliente"
   Else
       MsgBox "Selecione uma opção de ordenação."
       Exit Sub
   End If
   
   ' Monta a consulta do relatório baseado na opção de ordenação selecionada
   consulta = "SELECT * FROM tabela_clientes ORDER BY " & ordenacao
   
   ' Abre o relatório com a consulta definida
   DoCmd.OpenReport "seu_relatorio", acViewPreview, , , acWindowNormal
   Reports!seu_relatorio.RecordSource = consulta
End Sub

Lembre que vc pode usar a instrução SQL que vc já tem apenas fazendo os ajustes.

Espero ter ajudado.

Albertino, obrigado pelo retorno.
mas esta aparecendo esta mensagem quando abro o relatório.