[Tasos]

Καλημέρα!
Αλέξανδρε δοκίμασε:

Private Sub Εντολή31_Click()
    On Error GoTo Err_Εντολή31_Click

    Dim stDocName As String, strCriteria As String
    If Me.Recordset.RecordCount Then
        If Me.FilterOn Then strCriteria = Me.Filter
        stDocName = "Istoriko_Nipiagogiou_Report"
        DoCmd.OpenReport stDocName, acPreview, , strCriteria
    End If
Exit_Εντολή31_Click:
    Exit Sub

Err_Εντολή31_Click:
    MsgBox Err.Description
    Resume Exit_Εντολή31_Click

End Sub

Μια πρόταση:
Όταν δημιουργείς ένα κουμπί με τη βοήθεια του οδηγού αφιέρωσε 2 -3 δευτερόλεπτα ακόμα για να δίνεις ένα όνομα με νόημα ώστε να μπορείς να ψάξεις και να επεξεργαστείς την εντολή που έχει αντιστοιχηθεί στο κουμπί με μεγαλύτερη ευκολία.

Σίγουρα θα σου είναι πιο εύκολο να εντοπίσεις εντολές με ονόματα όπως πχ. cmdPrintPreview, cmdClose, cmdDeleteRec, cmd... (ονόματα που θα έχουν κάποια σχέση με τη διαδικασία)
από το να ψάχνεις στις εντολές με ονόματα Εντολή31, Εντολή32,Εντολή33,Εντολή34


Καλή συνέχεια!

Τάσος