إجراء عملية السحب والأفلات لصوره بين حقلي كائن

الظاهر حصل خطأ في إظهار النص

الصحيح هو التالي:

بعد التحية والسلام لجميع الأخوة والأخوات

في الملف المرفق هل من الممكن إجراء عملية السحب والأفلات للصوره في الكائن (A) في النموذج OLE1 ونسخهِ

إلى الكائن (B) في النموذج OLE2 , أي عن طريق ضغظ الماوس وسحب المؤشر إلى (B) .

مع الشكر الجزيل مقدماً

لاأدري لماذا تظهر رموز مكان الأحرف

الرمز الأول مكانه A

والرمز الثاني مكانه B

للأطلاع .........

اخي الفاضل ابو منتظر

الأمر بسيط ان شاء الله تعالى ولا يحتاج منك الا سطر واحد في الكود

يوضع هذا الكود في النموذج الثاني OLE2 في حدث عند النقر على كائن الصوره B

Private Sub b_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoCmd.RunCommand acCmdCopy
End Sub

يوضع هذا الكود في النموذج الأول OLE1 في حدث عند النقر على كائن الصوره A

Private Sub a_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoCmd.RunCommand acCmdPaste
End Sub

الآن افتح النموذجين مع بعض واضغط على الصوره في النموذج الثاني وسيتم نسخها في الحافظة ثم اضغط في النموذج الأول على مكان الصوره الخالية وسيتم نسخها .

تستطيع التبديل بين الأكواد في النموذجين

وهذا ملفك بعد التعديل

zaOLE_Drag_and_Drop.rar

شکراً لكِ أستاذتي القديرة

وقد طبقت نفس الأكواد بين حقلي نص أو غيرهما

فكانت النتيجة رائعة وهذا ماكنت أتمناه

وبارك الله فيك

أبو منتظر