[kapetang]

Καλησπέρα στην παρέα

Νίκη, καλωσόρισες στο φόρουμ .
Συμπληρωματικά με τη λύση που έδωσε ο Νίκος, στη ΒΔ που επισυνάπτω, έχω προσθέσει και τη δυνατότητα φιλτραρίσματος των πελατών με βάση τον αριθμό κυκλοφορίας του αυτοκινήτου.

Αν στο σύνθετο πλαίσιο που πρόσθεσα επιλέξεις κάποιο αριθμό κυκλοφορίας, θα εμφανιστεί στην κύρια φόρμα ο πελάτης που έχει το αυτοκίνητο και στη δευτερεύουσα όλα τα αυτοκίνητά του (διατρέχοντας τις εγγραφές της δευτερεύουσας θα δεις και τον αριθμό κυκλοφορίας του φίλτρου).

Αν επιλέξεις το <<ALL>> θα ακυρωθεί το φίλτρο και θα εμφανιστούν όλες οι εγγραφές.

Για τη δημιουργία της παραπάνω λειτουργικότητας, χρησιμοποιήθηκε:

1. Ως προέλευση γραμμής του σύνθετου πλαισίου το ερώτημα:
SELECT car.ar_kikl FROM car UNION Select "<<ALL>>" as ar_kik FROM car ORDER BY 1;

2. Ο κώδικας:

Private Sub cboNumCar_AfterUpdate()
    If IsNull(Me.cboNumCar) Or Me.cboNumCar = "<<ALL>>" Then
        Me.Filter = ""
        Me.FilterOn = False
    Else
        Me.Filter = "[client]![customer_ID] in (select customer_ID From car Where ar_kikl='" _
                    & Me.cboNumCar & "' )"
        Me.FilterOn = True
    End If
End Sub

Φιλικά/Γιώργος