رسالة خطاء Type Mismatch

لم افتح الملف (المشاركة عبر الهاتف)

هل تم تعريف المتغيرات في الاكواد

شكرا اخي هذا هو الكود باكمله

Private Sub Form_Load()
   
   Dim di As DRIVE_INFO
 Dim drvNumber As Long
 Dim xx As String
 Dim v As Double
 Dim Y As Double
 Dim zz As Double
 Dim yy As Double
 
  For drvNumber = PRIMARY_MASTER To 0
  di = GetDriveInfo(drvNumber)
  With di
  Select Case .bDriveType
           
           Case 0
           xx = vbTab & "[Not present]"
           Case 1
        ' text0.Value = vbTab & vbTab & Trim$(.Model)
         xx = vbTab & vbTab & Trim$(.SerialNumber)
           Y = Str2Int([xx])
           '(Replace(Nz([text], 0), "-", ""))
           
           
           Case 2
          xx = vbTab & "[ATAPI drive - info not available]"
           Case Else
          xx = vbTab & "[drive type not known]"
           End Select
         
      End With
      Next
     

     v = Mid(Y, 6, 8)
     
zz = DLookup("[system]", "system")


yy = (v - 200) * 2
 If yy <> zz Then


MsgBox "You need to register this product.¡ Please enter the serial number" & vbCrLf & _
    "With appreciation and gratitude", _
    vbCritical + vbOKOnly, _
    "Registration notice"

DoCmd.OpenForm "production", acNormal

 End If
 DoCmd.Maximize
 Exit Sub

End Sub

تفضل اخي الكريم

جرب الآن على ويندوز 8

الملف يعمل عندي على جميع النسخ 

قد يكون لديك خلل ما في الويندوز 8 فلم تقم بتحميل الأكسيس بشكل صحيح وخاصة ان الويندوز 8  يحبذ ان يعمل معه اكسيس 2013

za-Database1-UP.rar

بالتوفيق

نفس المشكلة للاسف  .. وانا حاليا اعمل بااوفيس 2013  ووندوز 8 

حسنا اخي الكريم

غير حرف Y في الكود  الى  Num او اي اسم

فقد يكون حرف الـ Y  محجوز لشيء ما 

بالتوفيق

قمت بتغييره ولا فائدة نفس الاشكال ..

اتعبتك معي ... اختي الكريمة 

جرب الآن الملف

za-Database1-END.rar

بالتوفيق

نفس المشكلة  ..في نفس السطر 

     v = zaMid(Num, 6, 8)

قمت بتجربة الملف في جهاز اخر ايضا فيه وندوز 8 واوفيس 2013 ونفس الخطاء

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

وبالتالي تضيع الحماية .. (وضعت كود لاغلاق البرنامج في حال حصول هذا الخطاء)

اتمنى اجد لديك اي اقتراحات اضافية ..  مع التقدير

والله راح يجنني هذا الخطاء الان ظهرت نفس الرسالة على وندوز 7 واوفيس 2007

فيحين  البارحة جربت على جهاز فيه  وندوز 7 واوفيس 2007  بدون اشكال...

وقبل قليل على جهاز يحتوي وندوز 7 واوفيس 2010  ايضا شغال بدون اشكال

اخي الفاضل

ملفك هذا غريب الأطوار ويبدو ان لديك خلل ما في قاعدة البيانات نفسها او انه راكبها عفريت   :) 

حاول تقرأ عليه المعوذتين وآية الكرسي  :) 

سنحاول الآن تتيع الحطأ ومحاولة اصلاحه حسب المعطيات التالية :

1. قاعدة البيانات تم عملها على اكسيس 2007 وويندوز 7 وتعمل بشكل صحيح

2. القاعدة تعمل على اكسيس 2010 وويندوز 7 بدون مشاكل

3. عند فتح القاعدة على اكسيس 2013 وويندوز 8  تحدث المشكلة !!!!!!

المشكلة الرئيسية :

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

ولهذا فإن قاعدة البيانات دائما تحتفظ بآخر مراجع لنسخة الأكسيس تم فتحها بها .

هنا مربط الفرس ومن هنا يبدأ الحل

1. بما ان قاعدة البيانات تم عملها على اكسيس 2007  فيجب علينا اولا فتح برنامج الأكسيس 2007 فقط

بدون اي قاعدة بيانات حتى تأخذ جميع مراجع الأكسيس 2007 وضعها الطبيعي

2. نقوم الآن من خلال برنامج الأكسيس 2007 بفتح قاعدة البيانات لأن المراجع قد تم تحميلها مسبقا

3. نتأكد من مراجع الأكسيس 2007 بأنها بهذه الطريقة بعد فتح القاعدة

4. نقوم بإغلاق قاعدة البيانات بشكل صحيح مع برنامج الأكسيس 2007

نقوم بنفس العمل مع اكسيس 2010

وستكون المراجع بهذه الطريقة ومختلفه عن مراجع اكسيس 2007

نقوم بنفس العمل مع اكسيس 2013

وستكون المراجع بهذه الطريقة ومختلفه عن مراجع اكسيس 2007 و مراجع اكسيس 2010

في حال اننا فتحنا قاعدة البيانات ووجدنا المراجع ليست حسب النسخة المفتوحه فيجب عليك عمل تحديث للمراجع الخاصة بالنسخة

بالتوفيق

اختي الكريمة تم التاكد من المراجع  بالشكل التالي

*. Visual Basic for Applications
*. Microsoft Office 12.0 Object Library
*.  Microsoft Office Access Engine 12.0 Object Library
*. OLE automation

السلام عليكم 

جربت الملف في المكتب نظام ويندوز 7 اوفيس 2007

نفس الخطاء يظهر لي 

===

في البيت 

نظام ويندوز 7 اوفيس 2007

يعمل الملف دون اخطاء 

وعليكم السلام اخي الكريم

مالنا الى الاخت زهرة للقضاء على هذا العفريت .. :)

مع الاسف اختي الكريمة

بعد تجربة الملف ....  

لاتوجد لدي كلمات كافية لوصف ابداعك .. والله انتي دولة وعلم  

اللهم لا ابقانا لمشكلة ليس لديك حل لها

تم تجربة المثال على وندوز 8 واوفيس 2013  شغال 100%  بالاضافة طبعا الى اكس بي مع اوفيس 2007   ..

وتم نقل الكود الى الرنامج الاصلي وايضا عمل 100% 

وان شاء الله  اطبقها على الاجهزة المتبقية

بالخلطات المختلفة بين الاوفيس والوندوز ..

ومتاكد بانها  ستكون بنفس المستوى من المثالية .. 

الان عادت الشهية من جديد لاستكمال البرنامج  ..  :)

بارك الله بك والف الف شكر