• 0
ahmead24

اصلاح كود التحقق من سريال الهارد و ادراجة فى جدول

سؤال

تحية طيبة و بعد

قمت بالبحث عن كود استخراج سريال الهارد ديسك الحقيقى و وجدت مثال من صنع الأستاذة زهرة و قمت بعمل تعديل بسيط علية لكى يقوم بادخال السيريال فى جدول ثم بعد ذلك استدعاءة فى متغير كل مرة تفتح الفورم للتأكد من أنة نفس الهارد و اذا لم يكن نفس الهارد يأخذ بيانات الهارد الجديد ثم يقوم بحفظها و هكذا حتى يصل لعدد 5 سريال ثم يتوقف البرنامج عن العمل و هذا هو كودى

Dim WMI As Object   Dim wmiCollection As Object   Dim wmiMember As Object   Dim x As String   Dim x2   Dim x3 As Integer   Set WMI = GetObject("winmgmts:\\")   Set wmiCollection = WMI.InstancesOf("Win32_PhysicalMedia")      For Each wmiMember In wmiCollection   x = Trim(wmiMember.SerialNumber)   Exit For   Next      Set wmiMember = Nothing   Set wmiCollection = Nothing   Set WMI = Nothingx2 = DLookup("[HdNum]", "[T2]", "[HdNum] = '" & x & " ' ")If x2 = Null ThenDim sqls As StringDoCmd.SetWarnings Falsesqls = "insert into T2(HdNum) values('" & x & "')"DoCmd.RunSQL sqlsDoCmd.SetWarnings TrueEnd Ifx3 = Nz(DCount("HdNum", "t2"), 0)If x3 > 5 ThenMsgBox "error -Hard24680"'DoCmd.QuitEnd If

المشكلة أن الكود بة خطأ عندما يدخل فى if  لا ينفذ المطلوب و يتجاهل ادخال سريال الهارد فى الجدول رغم اننى قمت بالغاء

If x2 = Null ThenDim sqls As StringDoCmd.SetWarnings Falsesqls = "insert into T2(HdNum) values('" & x & "')"DoCmd.RunSQL sqlsDoCmd.SetWarnings TrueEnd If

و استخدمت نفس جملة الحفظ للسريال بدون if و عملت بلا مشاكل يبدو أن هناك خطأ منطق فى كودى و لا استطيع معرفتة فهل من مساعدة ؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

اشكرك كثيرا لم افكر بها لكنها الحل عاجز عن شكرك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .