Fare clic sul pulsante "Start " di Windows e selezionare "Microsoft Office", " Visual Basic for Applications ( VBA ) " .
2
Fare clic su " . Open " e selezionare il controllo VBA del report su cui si desidera cambiare l'ordinamento
3
Aggiungere il codice riportato di seguito all'inizio del controllo VBA :
private Sub SortOptionGrp_AfterUpdate ( )
Const ASCII = 0
Const cifra = 1
On Error GoTo ErrorHandler
Select Case SortOptionGrp
caso ASCII
Me.OrderBy = " ASCII , Unicode " ' Ordina per codici di caratteri .
caso Digit
Me.OrderBy = "Nome di riferimento" ' Ordina per valori alfanumerici .
End Select
Me.OrderByOn = True 'Applica l'ordinamento
Exit Sub
Programmazione © www.354353.com