[ασχετος]

Γιώργο,

στην μεταβλητή sql, μέσα στον κώδικα
του κουμπιού 'Κλήρωση', σβήσε τον από το
ισον και πέρα και βάλε αυτόν

.....

    On Error Resume Next
    
    If IsNull(Me.Σύνθετο_πλαίσιο9) Then Exit Sub

    sql = "Select *" & _
          "  From [Πίνακας1]" & _
          "Where [ΠΛΗΡΩΜΑ]='" & Me.Σύνθετο_πλαίσιο9 & "'" & _
          "Order by [ΔΙΑΔΡΟΜΗ]"

αν το Σύνθετο_πλαίσιο9 είναι κενό θα βγάλει run time error