[access] - applicare filtro ed ottenere record ordinati

[nicola75ss]

Buona sera a tutti. Ho un problema con access (niente di nuovo sotto il sole )
Ho creato una semplice maschera con un menù a tendina. Da questo menù si seleziona una voce e in base alla selezione viene aperta la maschera contenente le informazioni di ogni record. Tramite i pulsanti di scorrimento record è poi possibile scorrere tutti i record filtrati.
Ciò che vorrei sapere è come fare affinchè i record filtrati vengano ordinati in ordine crescente ad esempio di cognome.

Il codice che ho utilizzato è il seguente

Private Sub cmdFiltra_Click()
On Error GoTo Err_cmdFiltra_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    If cmbOperatore = "" Or IsNull(cmbOperatore) Then
    MsgBox ("Selezionare un operatore dal menù a tendina")
    Exit Sub
    End If
        
    stDocName = "strutturaschede"
    
    
    stLinkCriteria = "[operatore]=" & "'" & Me![cmbOperatore] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

   
Exit_cmdFiltra_Click:
    Exit Sub

Err_cmdFiltra_Click:
    MsgBox Err.Description
    Resume Exit_cmdFiltra_Click
    
End Sub

ma ho visto che anche il metodo applyfilter non comprende tra i parametri niente relativamente all'ordinamento.
Cercando in rete ho visto le proprietà orderby = "nomecampo" e orderbyon = true ma non riesco a integrarli nel mio codice.
Potete darmi una dritta? Grazie come sempre.

[nicola75ss]

Sono un pirla.
Le due proprietà suggerite in rete erano quelle giuste. Bastava inserirle dopo l'apertura del form, non prima.

Posto per correttezza la soluzione

Private Sub cmdFiltra_Click()
On Error GoTo Err_cmdFiltra_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    If cmbOperatore = "" Or IsNull(cmbOperatore) Then
    MsgBox ("Selezionare un operatore dal menù a tendina")
    Exit Sub
    End If
        
    stDocName = "strutturaschede"
        
    stLinkCriteria = "[operatore]=" & "'" & Me![cmbOperatore] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

    Forms!strutturaschede.OrderBy = "cognome"
    Forms!strutturaschede.OrderByOn = True
    
Exit_cmdFiltra_Click:
    Exit Sub

Err_cmdFiltra_Click:
    MsgBox Err.Description
    Resume Exit_cmdFiltra_Click
    
End Sub

Buona notte a tutti.