مشكلة Can`t find project or library

[خالد الشاعر]

السادة الخبراء

 

عندى ملف سجل طلبة به اكثر من ماكرو كان يعمل ممتاز على وندوز XP و اوفس 2003

 

ولكن عند تغير الوندوز و الاوفس الى Win7 ,اوفس  2007

 

يعطى هذه المشكلة  Can`t find project or library

 

فما هى المشكلة

 

جزاكم الله كل خير

[ibn_egypt]

السادة الخبراء

 

عندى ملف سجل طلبة به اكثر من ماكرو كان يعمل ممتاز على وندوز XP و اوفس 2003

 

ولكن عند تغير الوندوز و الاوفس الى Win7 ,اوفس  2007

 

يعطى هذه المشكلة  Can`t find project or library

 

فما هى المشكلة

 

جزاكم الله كل خير

 

طب ما ترفق الملف أخى الكريم

 

تحياتي

[خالد الشاعر]

مرفق الملف

سجل.اولى.ابتدائي.rar

[ياسر خليل أبو البراء]

قم بإدراج موديول جديد وأضف فيه التالي

Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Sub ChaingeLanguage(KBLang As String)
Dim pwszKLID As String
Select Case KBLang
Case "Arabic"
    pwszKLID = "00000401"
Case "English"
    pwszKLID = "00000409"
End Select
LoadKeyboardLayout pwszKLID, 1
End Sub

دمت بخير

[خالد الشاعر]

استاذ ياسر

 

شكرا على سرعة الاجابة

 

ولكن يوجد مشكلة فى Module1 و Module2  ايضاً

[خالد الشاعر]

للرفع

[ياسر خليل أبو البراء]

أخي الفاضل حدد نوع المشكلة ..حتى يستطيع الأخوة مساعدتك

[خالد الشاعر]

المشكلة فى المشاركة الاولى

[عبدالباري البنا]

حل هذه المشكه فى الاتى ان شاء الله

1- ادخل على Module1 ثم اختار  قائمة Tools منها  اختر Reference 

2- ثم ابحث عن كلمة Missing  وأزل علامة الصح التي بجانبها

3 - احفظ الملف ثم اغلقه وافتحه من جديد

4 - اذا وجدت  Reference غير مفعله .. اضغط على زر ايقاف الماكرو وحاول مره اخرى

والله اعلم

كما فى الصور

 

[خالد الشاعر]

استاذ عبد الباري البنا

 

شكراً على سرعة الرد 

 

ولكن عند محاولة الغاء ال Missing

 

يقول لى انها in use

 

هل هناك طريقة اخرى