[liaverg]

Σχετικά με το θέμα της αντιγραφής
Πατάς το κουμπί "ΑΝΤΙΓΡΑΦΗ" στην υποφορμα που θες να αντιγράψεις
και το κουμπί "ΕΠΙΚΟΛΛΗΣΗ" στην υποφόρμα που θες να εισάγεις τις εγγραφές
Βασικό για να δουλεψει είναι να έχει μπει πρώτα το AutoCode της κυριας φορμας γι αυτο μεχρι τοτε σου κλειδωσα την υποφορμα με σχετικό μηνυμα αν παει καποιος να γραψει πρωτα εκει
Σίγουρα θέλει και καποια μηνυματα αν πατησει καποιος επικολληση ενω δεν εχει αντιγραψει τιποτα. Αλλα δες το πρωτα γιατι δεν ξερω αν καταλαβα καλα τι θες και βλεπουμε...

Επισης ο τύπος της φόρμας που σου έδωσε ο Νίκος νομίζω είναι πιο εμφανισιμος

*Σημειωση: Αν θες να λειτουργει η επικόλληση κι εκει που υπάρχουν ήδη εγγραφές μπορεις να αντικαταστησεις το DoCmd.RunCommand acCmdPaste με DoCmd.RunCommand acCmdPasteAppend και θα τις προσθέτει στις ηδη υπαρχουσες

**Διόρθωση
Παρατηρησα ενα προβληματακι με την ανανεωση του πεδιου diatrofi σε μερικες περιπτωσεις οποτε το παρακατω κομματι απο τον κωδικα στο κουμπι 'επικολληση' καλυτερα να μπει στης υποφορμας το AfterInsert

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
With rs
.MoveFirst
Do While Not .EOF
.Edit
!Diatrofi = Me.Parent!AutoCode
.Update
.MoveNext
Loop
End With
Set rs = Nothing