Καλησπέρα στην παρέα
Νίκη, καλωσόρισες στο φόρουμ .
Συμπληρωματικά με τη λύση που έδωσε ο Νίκος, στη ΒΔ που επισυνάπτω, έχω προσθέσει και τη δυνατότητα φιλτραρίσματος των πελατών με βάση τον αριθμό κυκλοφορίας του αυτοκινήτου.
Αν στο σύνθετο πλαίσιο που πρόσθεσα επιλέξεις κάποιο αριθμό κυκλοφορίας, θα εμφανιστεί στην κύρια φόρμα ο πελάτης που έχει το αυτοκίνητο και στη δευτερεύουσα όλα τα αυτοκίνητά του (διατρέχοντας τις εγγραφές της δευτερεύουσας θα δεις και τον αριθμό κυκλοφορίας του φίλτρου).
Αν επιλέξεις το <<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
Φιλικά/Γιώργος