كود نسخ صف

[محمد السباعي]

السلام عليكم ورحمة الله وبركاته

إخواني الكرام

بحثت كثيرا فلم اجد جواب على سؤالي وهو

هل يوجد كود لنسخ صف ثم إضافته في صف جديد في نفس النموذج ؟ وماهو الكود ؟

جزاكم الله خيرا

[osama ababneh]

اخي لا اعرف اذا كان من الممكن ان تستفيد من هذه المشاركة ولكنها تحتوي على طلب مشابه لطلبك

http://www.officena.net/ib/index.php?showtopic=24059

[محمد السباعي]

جزاك الله خيرا على الرد

هذا ليس مرادي

لكن وجدت كود أفادني الحمد لله

Private Sub cmdCopyRecord_Click()

Dim v1 As Variant
Dim v2 As Variant
Dim v3 As Variant
Dim v4 As Variant
Dim v5 As Variant

v1 = Me!Field1.Value
v2 = Me!Field2.Value
v3 = Me!Field3.Value
v4 = Me!Field4.Value
v5 = Me!Field5.Value

RunCommand acCmdRecordsGoToNew

Me!Field1 = v1
Me!Field2 = v2
Me!Field3 = v3
Me!Field4 = v4
Me!Field5 = v5

End Sub