Τιμή σε List Box μέσω δεύτερης φόρμας

[γιώργοςΚ]

Φίλοι μου γειά σας,

Χρειάζομαι την βοήθεια των πιο έμπειρων μελών του φόρουμ σε ένα κάπως σύνθετο πρόβλημα που αντιμετωπίζω.

Στην βάση που δημιουργώ έχω δύο φόρμες, την "SKey" η οποία κατά το άνοιγμα της βάσης ανοίγει και αυτή, και μια δεύτερη (Pop-up form) την "Key".

Στην πρώτη φόρμα ("SKey") υπάρχουν κάποια unbound fields τα οποια όπως θα δειτε με το άνοιγμα της φόρμας παίρνουν κάποιες τιμές υπό την μορφή του DefaultValue στα Properties καθενός.

Στην δεύτερη φόρμα ("Key") υπάρχουν κάποια ListBoxes με αντίστοιχα ονόματα των πεδίων της πρώτης φόρμας ("SKey"). Δίπλα απο κάθε ListBox θα δείτε ένα command button με αντίχτοιχο όνομα το οποίο εφόσον το πατήσουμε δίνει τιμή στο αντίστοιχο ListBox με την χρήση ενός απλού κώδικα vba ο οποίος στην ουσία ενημερώνει την λίστα του ListBox με ένα νέο RowSource το οποίο το παίρνει απο την πρώτη φόρμα. Ώς εδώ θεωρητικά όλα καλά.

Το ζητούμενο:

1. Εφόσον ακολουθηθει η πιο πάνω διαδικασία και ενημερωθουν τα ListBoxes στην φόρμα "Key" με τις τιμές απο την πρώτη φόρμα, το πρόβλημα που παρουσιάζεται είναι εφόσον κλείσει η φόρμα "Key" και ανοίξει την επόμενη φορά δεν κρατούν τις τιμές στην λίστα τους τα ListBoxes

2. Το ιδανικό θα είναι για μένα εκτός ότι πρέπει να κρατουν τις τιμές στην λίστα τους τα ListBoxes εάν αυτές οι τιμές μπορουν να καθορισθούν κίολας και ώς DefaultValues έτσι ώστε ανοίγωντας και πάλιν την φορμα να εμφανίζονται οι τιμές σε κάθε ListBox.

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

Προκαταρτικά θα ήθελα να σας ευχαριστήσω έτσι κι αλιώς για την εώς τωρα βοήθεια που λαμβάνω.