نسخ ولصق - Copy & Past

[baran]

لأعزاء في المنتدى بعد التحية والشكر المسبق للجواب على سؤالي

كيف أصنع زر يتم من خلاله نسخ ما هو موجود ضمن مربع نص الموجود على النموذج ولصقه في مربع نص آخر موجود على نفس النموذج

[الفيلسوف111]

وليكن المربع الذي تريد ان تنسخ منه اسمه c والثاني p

اصنع زر امر وغير اسمه الى mm

انسخ ما يلي وضعه عند النقر بين السطرين

Private Sub mm_Click()
End Sub[/color]
On Error GoTo Err_mm_Click

DoCmd.GoToControl "c"
    DoCmd.RunCommand acCmdCopy
    DoCmd.GoToControl "p"
    DoCmd.RunCommand acCmdPaste

  

Exit_mm_Click:
    Exit Sub

Err_mm_Click:
    MsgBox Err.Description
    Resume Exit_mm_Click

تم تعديل يوليو 30, 2006 بواسطه التقني

[أبو هادي]

السلام عليكم

ويمكن اختصاره كالتالي :

Me.p = Me.c

تحياتي .

[ظل السراب]

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

هذا مثل يستخدم الشريط المنبثق بدون اي كود

والله الموفق

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

copy.zip