عربي عالمي قام بنشر سبتمبر 4, 2023 مشاركة قام بنشر سبتمبر 4, 2023 أسعد الله أوقاتكم .. بالمرفق مشكلة عدم عمل كود نسخ أو لصق وتظهر رسالة خطأ كما هو موضح بالمرفقات ، وذلك في بعض الأجهزة رغم أن البرنامج نفسه يعمل بنجاح في أجهزة أخرى ، ورغم أنه نفس إصدار الأوفيس 2016 32 بت وأنظمة وندوز 10 و 7 نسخ Pro و Home ياليت فيه حل مع الشكر ،، 1445-02-19 الموظفين - كود نسخ ولصق.rar رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر سبتمبر 4, 2023 مشاركة قام بنشر سبتمبر 4, 2023 جرب استخدام الكود On error resume next رابط هذا التعليق شارك More sharing options...
عربي عالمي قام بنشر سبتمبر 4, 2023 الكاتب مشاركة قام بنشر سبتمبر 4, 2023 2 ساعات مضت, Foksh said: On error resume next مشكور وأين يوضع ؟ رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر سبتمبر 5, 2023 مشاركة قام بنشر سبتمبر 5, 2023 5 ساعات مضت, عربي عالمي said: مشكور وأين يوضع ؟ ضعه بداية الكود قبل Me g.setfocus رابط هذا التعليق شارك More sharing options...
عربي عالمي قام بنشر سبتمبر 5, 2023 الكاتب مشاركة قام بنشر سبتمبر 5, 2023 3 ساعات مضت, Foksh said: ضعه بداية الكود قبل Me g.setfocus مشكور على تجاوبكم ولكن لم يحدث تغيير . رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر سبتمبر 5, 2023 مشاركة قام بنشر سبتمبر 5, 2023 هذا يحدث عند نسخ الحقل الفارغ جرب استخدم If Not IsNull(Me.G) Then DoCmd.RunCommand acCmdCopy رابط هذا التعليق شارك More sharing options...
أفضل إجابة Moosak قام بنشر سبتمبر 5, 2023 أفضل إجابة مشاركة قام بنشر سبتمبر 5, 2023 أو يمكنك استخدام هذه الأكواد البديلة : 3 دوال لـ ( نسخ - لصق - تفريغ الذاكرة ) شرح الكود: ضع الكود كاملا في موديول ثم استخدمه في البرنامج كما هو واضح في الأسفل .. الكود: '==================================================(Copy) Public Function CopyText(ByVal Text As Variant) As Boolean CopyText = CreateObject("htmlfile").ParentWindow.ClipboardData.SetData("Text", Text) End Function '==================================================(Paste) Public Function PasteText() As String On Error Resume Next PasteText = CreateObject("htmlfile").ParentWindow.ClipboardData.getData("Text") End Function '==================================================(Clear The ClipBoard) Public Function ClearClipBoardText() As Boolean ClearClipBoardText = CreateObject("htmlfile").ParentWindow.ClipboardData.clearData("Text") End Function طريقة الاستدعاء (الاستخدام): CopyText(Text) <------ للنسخ PasteText() <------ للصق ClearClipBoardText() <------ تفريغ الذاكرة رابط هذا التعليق شارك More sharing options...
عربي عالمي قام بنشر سبتمبر 5, 2023 الكاتب مشاركة قام بنشر سبتمبر 5, 2023 مشكووور أخي Moosak بالفعل تم حل المشكلة باستخدام الوحدة النمطية المذكورة والشكر موصول لكل الزملاء الذين قدموا الدعم والحلول شكراً من القلب للجميع . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.