[kon73]

Φίλε Meteora Καλησπέρα,

Το βήμα που αναφέρεις στο module που ορίζεις τις μεταβλητές είναι σωστό όπως και το LostFocus event είναι οκ. όμως τα κείμενο1 και κείμενο2 που αναφέρεις μέσα στο Event LostFocus της φόρμας θα πρέπει να αντικαθιστούν με τις μεταβλητές Σχολείο και Διεύθυνση ώστε να δοθούν στις καθολικές αυτές μεταβλητές οι τιμές που έχουν τα πεδία Σχολείο και Διεύθυνση της φόρμας πριν κλείσει. Τώρα οι Μεταβλητές έχουν κρατημένες τις τιμές σε όλο το πρόγραμμα και μπορείς να ανοίξεις την αναφορά σου. Όμως και στα 2 πλαίσια κειμένου της αναφοράς θα βάλεις συναρτήσεις για να γυρίσουν τις τιμές των μεταβλητών. πχ στο κείμενο1 θα βάλεις την συνάρτηση FΣχολείο που ορίστηκε στο Module ως εξής =FΣχολείο()

H συνάρτηση στο Module θα είναι αυτή και ομοίως και για την Διεύθυνση.

Public Function FΣχολείο()
FΣχολείο=Σχολείο
EndSub

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

Φιλικά

kon73