الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طلب تعديل على كود لايقاف رسالة

بدأه kaser906 في 15 يوليو 2011 · 2 رد · 382 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عند تنفيذ الكود في حالة عدم وجود قيم Null

تخرج رسالة من محرر الفجر بيسك

Runtime-error"94"

invalid use of Null

 Else

   Else

   Dim i As Integer, tdat As String
For i = 0 To Me.Moditoha - 1
tdat = DLookup("[HI-Date]", "hollytawed", "Daytewad is null and pcdigit =" & PcDigit)
If tdat > Me.[HI-Dates] Or tdat > Me.[Dattewads] Then
        MsgBox !"
 Me![HI-Dates].SetFocus
Exit Sub

End If

ارجو التعديل على الكود بحيث لو لم يكن هناك حقل قيمته Null

يكمل ولايخرج هذه الرسالة

إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم  يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله

#2

جرب هذا 

 Else

   Else

   Dim i As Integer, tdat As String
For i = 0 To Me.Moditoha - 1
tdat = nz(DLookup("[HI-Date]", "hollytawed", "Daytewad is null and pcdigit =" & PcDigit),0)
If tdat > Me.[HI-Dates] Or tdat > Me.[Dattewads] Then
        MsgBox !"
 Me![HI-Dates].SetFocus
Exit Sub

End If

و جرب هذا 

Else

   Else
on error resume next   
   Dim i As Integer, tdat As String
For i = 0 To Me.Moditoha - 1
tdat = DLookup("[HI-Date]", "hollytawed", "Daytewad is null and pcdigit =" & PcDigit)
If tdat > Me.[HI-Dates] Or tdat > Me.[Dattewads] Then
        MsgBox !"
 Me![HI-Dates].SetFocus
Exit Sub

End If

مدونتى:-

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

متغيب حاليا لانشغالى الشديد

#3

الله يعطيك العافية اخي ابو يوسف

الكود الأول نتيجته ممتازة

بارك الله فيك

إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم  يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…