خطأ في الكود أم في التطبيق

نرفع

يالله

اخي اللامي

السلام عليكم ورحمة الله وبركاته

انظر الى هذا الكود الذي لديك في الصوره

Private Sub Form_Open(Cancel As Integer)
' لقراءة رقم القرص الصلب
all ShowDriveInfo
End Sub

وهذا الكود

Private Sub Form_Open(Cancel As Integer)
' لقراءة رقم القرص الصلب
Call ShowDriveInfo
End Sub

الان حاول اكتشاف الخطأ

هل عرفت الحل ................... ممتاز

اذا لم تعرف الحل سأجيبك

لو دققت في العباره

all ShowDriveInfo

والعباره

Call ShowDriveInfo

هذا الامر يستدعي الوحدة النمطية المسماة

ShowDriveInfo

كيف قمت بعمل هذا الخطأ

اثناء استيرادك او نقلك للكود عند طريق النسخ واللصق نتج عنه حذف حرف

C

من كلمة

Call

فأصبح

all

ولا يوجد امر في الوحدات النمطية بهذا الاسم

أعتذر أخت زهره

لم أدقق في الجملة البرمجية

فضيحتي بجلاجل :lol:

عموما

بعد التعديل

نتج هذا الخطأ الثاني

في المرفقات

معلش تحملي أخيك اللامي :)

ليس هناك مشكله في مسح كامل الكود علما بأن هذا الكود من بداية الى نهايته واقصد الكود الخاص بشفرة تمكين مفتاح الشفت " لا يضر قاعدة البيانات ولا حمايتها فقد قمنا بعمل كود آخر تجده في اعلى الصفحه من VBA