السلام عليكم ورحمة الله وبركاتة
كل عام وانتم بخير
ارجو المساعدة في كتابة كود يقوم بنسخ لما يتم تحديدة واخر للصق
وجزاكم الله كل خير
[ تمت الإجابة ]ارجو المساعدة في كود للنسخ وكود للصق
تفضل اخي الكريم
ضع هذا الكود في حدث الحالي للنموذج
Private Sub Form_Current() Application.SetOption "Behavior Entering Field", 0 End Sub
مهمة هذا الكود إنه يقوم بإختيار تحديد النص بالكامل ( تضليله بالكامل ) استعدادا لنسخه
ثم نضع هذا الكود تحت زر الأمر ( نسخ و لصق )
Private Sub CmdCopyPast_Click() Me.Text1.SetFocus DoCmd.RunCommand acCmdCopy Me.Text2.SetFocus DoCmd.RunCommand acCmdPaste End Sub
هذا الكود يقوم اولا بجعل التركيز على مربع النص الأول وبما انه مضلل جاهز للنسخ فيقوم كود النسخ acCmdCopy بنسخ النص الموجود في المربع الأول ثم يحتفظ به في الذاكره
ثم ننقل التركيز الى مربع النص الثاني ونقوم بلصق ما هو موجود في الذاكرة بواسطة الأمر acCmdPaste
السلام عليكم ورحمة الله وبركاتة
مشكور وجزاك الله كل خير على هذا الرد الاكثر من رائع حيث وفرتي على ان يكون هناك زرين وجعلتيهم في زر واحد اسئل الله ان يزيدك علما وينفع بك الاسلام والمسلمين
وهذا اقل ما نستطيع ان نقدمة لك وبارك الله فيك
بسم الله الرحمن الرحيم
تمت الإجابة على الموضوع
إدارة الفريق العربي للبرمجة