Αντιγραφή εγγραφής από υποφόρμα σε υποφόρμα

[Ρούλα]

Εύχομαι καλό καλοκαίρι για όσους επέδρασαν ή όχι
Ζητώ την βοήθεια σας
Έχοντας και τις δύο φόρμες ανοιχτές 1) frmParalabi με δευτερεύουσα φόρμα SfrmAnalysi1 και 2) frmYpaliloi με δευτερεύουσα φόρμα SfrmAnalysi2, Ζητώ εάν είναι δυνατόν διπλοκλικάροντας στο ID τις δευτερεύουσας φόρμας SfrmAnalysi1 να
Αντιγράφεται στην δευτερεύουσα φόρμα SfrmAnalysi2 τις φόρμας frmYpaliloi ανεξαιρέτου ID βρίσκεται η κεντρική της φόρμα.. Δηλαδή η frmParalabi είναι στο ID 1 διπλό κλικ στην δευτερεύουσα φόρμα SfrmAnalysi1 και να αντιγράφεται στην φόρμα frmYpaliloi δευτερεύουσα φόρμα SfrmAnalysi2 σε όποιο ID έχω επιλέξει από την Φόρμα frmYpaliloi.

Private Sub ID_DblClick(Cancel As Integer)
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into TblAnalysi2 select * from TblAnalysi1 where ID=" & Me!ID & ""

DoCmd.RunSQL "delete * from TblAnalysi1 where ID=" & Me!ID & ""
DoCmd.SetWarnings True
Me.Parent.Form.Refresh
Forms!frmYpaliloi.Requery
End Sub

Ζητώ συγνώμη εάν σας ζάλισα και ευχαριστώ εκ των προτέρων.
Φιλικά Ρούλα

[kapetang]

Καλημέρα

Ρούλα, καλό καλοκαίρι.

Δες τη ΒΔ που επισυνάπτω.

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

[Ρούλα]

Γιώργο σ’ ευχαριστώ πάρα πολύ όπως και όλο το forum που με ανέχεται
Και πάλι ενα μεγάλο σ’ ευχαριστώ.
Φιλικά Ρούλα

[kapetang]

Καλησπέρα

Ρούλα, σ’ ευχαριστώ για την ανταπόκριση.

Στη ΒΔ πρόσθεσα έναν επιπλέον έλεγχο για μια ενέργεια που θα μπορούσε να δημιουργήσει πρόβλημα (διπλό κλικ σε εγγραφή που δεν έχει σωθεί) και διόρθωσα το Cancel=false σε Cancel=True.

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