[kapetang]

Καλημέρα.

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

clnClientNewaddst.Add Item:=frmaddSTOIXEIA, Key:=CStr(frmaddSTOIXEIA.Hwnd), με αποτέλεσμα να μη δημιουργούνται πολλά στιγμιότυπα.

Το αντικατέστησα με το σωστό.

Στο νέο αρχείο δοκίμασε τα εξής:

1) Πάτησε το κουμπί [ΔΗΜΙΟΥΡΓΙΑ ΑΝΤΙΚΕΙΜΕΝΟΥ ΦΟΡΜΑΣ ΝΕΑ ΣΤΟΙΧΕΙΑ] για να δημιουργηθεί ένα στιγμιότυπο της φόρμας [frmNewSTOIXEIA].

2) Επανάλαβε το βήμα 1 Κ φορές (πχ Κ=4) για να δημιουργηθούν συνολικά Κ+1 (πχ 4+1=5) στιγμιότυπα (αντίγραφα) της φόρμας [frmNewSTOIXEIA].

3) Σ’ ένα στιγμιότυπο πάτησε το κουμπί [Επιλογή Ονόματος] για να ανοίξει η φόρμα [frmΕΠΙΛΟΓΗ ΟΝΟΜΑΤΟΣ]

4) Στη φόρμα [frmΕΠΙΛΟΓΗ ΟΝΟΜΑΤΟΣ] κάνε διπλό κλικ σε κάποιο όνομα.
Το όνομα αυτό θα αντιγραφεί στο στιγμιότυπο από το οποίο ανοίχτηκε η φόρμα [frmΕΠΙΛΟΓΗ ΟΝΟΜΑΤΟΣ].

5) Επανάλαβε τα βήματα 3 και 4 σε όλα τα στιγμιότυπα και θα διαπιστώσεις ότι το όνομα αντιγράφεται στο αντίστοιχο στιγμιότυπο.

Με άλλα λόγια το αρχείο λειτουργεί σύμφωνα με το ζητούμενο.

Η γραμμή κώδικα που κάνει την αντιγραφή του ονόματος είναι:
cmdbtn.Parent.ΟΝΟΜΑ.Value = Me.ΟΝΟΜΑ.Value

Διευκρινίζω επίσης ότι η μεταβλητή cmdbtn δηλώθηκε ως Access.CommandButton.

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