[Meteora]

Καλησπέρα...
Αγαπητέ Φώτη, καλώς μας ήλθες. Θερμά παρακαλώ να αλλάξεις τον τίτλο του ερωτήματός σου, διότι στο μέλλον κανείς άλλος δεν πρόκειται να βοηθηθεί -με αυτόν τον τίτλο- ψάχνοντας μέσα στο Forum για κάποιο θέμα που τον αφορά. Βάλε π.χ. Φιλτρα σε report...
Για το πρώτο ερώτημα έγραψα κάτι :

Private Sub Εντολή167_Click()
    Dim namereport$, filtro$, x As Integer
    x = 0

    namereport = combo1
    filtro = ""

    If Not IsNull(combo2) And Not IsNull(combo3) Then
        filtro = "ΠΕΡΙΟΧΗ ='" & combo2 & "' and ΕΠΑΓΓΕΛΜΑ='" & combo3 & "'"
        x = 2
    End If

    If Not IsNull(combo2) And x = 0 Then filtro = "ΠΕΡΙΟΧΗ ='" & combo2 & "'"
    If Not IsNull(combo3) And x = 0 Then filtro = "ΕΠΑΓΓΕΛΜΑ='" & combo3 & "'"


    DoCmd.OpenReport namereport, acViewPreview, , filtro

End Sub

Δεν είναι ότι καλύτερο, άλλά μάλλον μια ...αρχή. Άλλαξα όνομα στα comboBox.
Με εκτίμηση Νίκος Δ.

Υστερολόγιο : Δεν μπορώ να δώσω συνέχεια στον διάλογο απόψε...