[ Φόρμες ] Βοήθεια στην σύνταξη κώδικα για combo box σε φόρμα.

[Ιρις]

Έχω δημιουργήσει μια φόρμα έτσι ώστε ο χρήστης να έχει την δυνατότητα από ένα combo box ή από μια λίστα να επιλέγει έναν από τους 4 ρύπους της ατμόσφαιρας.Με την επιλογή αυτή του χρήστη θέλω να εμφανίζονται τα αποτελέσματα του επιλεχθέντος ρύπου σε ενα πλαίσιο στην ίδια φόρμα.
Κάθε ρύπος έχει το δικό του ερώτημα το όποιο έχει όλα τα στατιστικά στοιχεία που θα θέλει να δεί ο χρήστης επιλέγοντας τον ρύπο. Συνοψίζοντας, θα ήθελα βοήθεια με τον αλγόριθμο της vba πίσω από την λίστα με τους ρύπους, έτσι ώστε αυτόματα με τιην επιλογή ενός να εμφανίζονται δίπλα τα αποτελεσματα απο το εκάστοτε αντιστοιχο Querry.
Ουσιαστικά θέλω βοήθεια για να γράψω τον κώδικα που θα κάνει όλη αυτήν την δουλειά.
Ευχαριστώ εκ των προτέρων.
Ιρις

[kapetang]

Ίρις, αν ανέβαζες τη σχετική βάση δεδομένων θα ήταν ευκολότερο να βρεθεί κάποια λύση.
Γιώργος

[kapetang]

Καλημέρα

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

Private Sub cboFilter_AfterUpdate()
    Select Case Me!cboFilter
        Case 1
            Me!lstRipon.RowSource = "qrySO2"
        Case 2
            Me!lstRipon.RowSource = "qryCO"
        Case 3
            Me!lstRipon.RowSource = "qryNO2"
        Case 4
            Me!lstRipon.RowSource = "qryO3"
    End Select
        
End Sub

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