ظهور رسالة خطأ عند تشغيل كود نسخ أو لصق

[عربي عالمي]

أسعد الله أوقاتكم ..

بالمرفق مشكلة عدم عمل كود نسخ أو لصق وتظهر رسالة خطأ كما هو موضح بالمرفقات ، وذلك في بعض الأجهزة رغم أن البرنامج نفسه يعمل بنجاح في أجهزة أخرى ، ورغم أنه نفس إصدار الأوفيس 2016 32 بت وأنظمة وندوز 10 و 7 نسخ Pro و Home

ياليت فيه حل مع الشكر ،،

1445-02-19 الموظفين - كود نسخ ولصق.rar

[Foksh]

جرب استخدام الكود

On error resume next

[عربي عالمي]

2 ساعات مضت, Foksh said:

On error resume next

مشكور وأين يوضع ؟

[Foksh]

5 ساعات مضت, عربي عالمي said:

مشكور وأين يوضع ؟

ضعه بداية الكود قبل 

Me g.setfocus

[عربي عالمي]

3 ساعات مضت, Foksh said:

ضعه بداية الكود قبل 

Me g.setfocus

مشكور على تجاوبكم ولكن لم يحدث تغيير .

[Eng.Qassim]

هذا يحدث عند نسخ الحقل الفارغ

جرب استخدم 

If Not IsNull(Me.G) Then DoCmd.RunCommand acCmdCopy

 

[Moosak]

أو يمكنك استخدام هذه الأكواد البديلة :

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()     <------ تفريغ الذاكرة

[عربي عالمي]

مشكووور أخي   Moosak

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

والشكر موصول لكل الزملاء الذين قدموا الدعم والحلول

شكراً من القلب للجميع .