[Meteora]

Χρήστο,

Στο κατηγορία δοκίμασε αυτό:

 
Private Sub cboKatigoria_AfterUpdate()
    Me.Filter = "[Katigoria]='" & cboKatigoria & "'"
    Me.FilterOn = True
End Sub

Στη ημερομηνία δες αυτό:

 
Private Sub cboDate_AfterUpdate()
    If Nz(Me.cboDate) <> 0 Then
        Me.cboMonth = Null
        Me.cboQrt = Null
        Me.cboWeek = Null
    End If
    Me.Filter = "[ImerominiaPliromis]=#" & Format(cboDate, "mm\/dd\/yyyy") & "#"
    Me.FilterOn = True
End Sub

Η εβδομάδα με κάνει κάτι ...παραξενιές. Με μια Format( flddate,"ww") το ψάχνω.

Διόρθωσε τη βάση σου , γιατί δεν δέχεται νέα εγγραφή...ψάχνει για τη [Σχέση].

Καλή συνέχεια / Νίκος Δ.