Digamos que você queira ordenar o campo/controle NomeDoCliente do frmClientes.
Você precisará criar UM botão de comando que receberá o nome de Btn_Ordenar.
Na propriedade LEGENDA do Btn_Ordenar, você escreverá a palavra Crescente.
No evento AO CLICAR do controle Btn_Ordenar você escreverá o seguinte código:
Private Sub Btn_Ordenar _Click()
DoCmd.Echo False, "Sorting records ..."
Screen.ActiveForm.AllowAdditions = False
DoCmd.GoToControl "NomeDoCliente"
If Me.Btn_Ordenar.Caption = "Crescente"
DoCmd.RunCommand acCmdSortAscending
Me.Btn_Ordenar.Caption = "Decrescente"
Else
DoCmd.RunCommand acCmdSortDescending
Me.Btn_Ordenar.Caption = "Crescente"
EndIf
Screen.ActiveForm.AllowAdditions = True
End Sub |
sábado, 17 de abril de 2021