منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
رسالة خطأ اذا كان الحقل فارغ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : رسالة خطأ اذا كان الحقل فارغ (/showthread.php?tid=12868)



رسالة خطأ اذا كان الحقل فارغ - اسلام الكبابى - 01-08-15

لدى جدول TABLE1  به حقل للوظيفة postt
أريد كود لكتابة قيمة الحقل postt فى السجل الأخير من الجدول TABLE1
  بحيث اذا كان الحقل فارغآ فى هذا السجل يكتب"غير معلومة"
أرجو تعديل الكود الآتى
لأنه حين يجد الحقل فارغآ فى هذا السجل تظهر رساسة خطأ  Run-Time error 94  بدلآ من ترك التكست فارغآ
كود :
كود :
      Adodc1.Recordset.MoveLast
       XXX = Adodc1.Recordset.Fields(postt)
    Text1.Text = XXX
ولكم ألف شكر


RE: رسالة خطأ اذا كان الحقل فارغ - Ahmed_Mansoor - 02-08-15

أهلا أخي الكريم , جرب التالي :

كود :
Adodc1.Recordset.MoveLast
If Not IsNull(Adodc1.Recordset.Fields("postt")) Then XXX = Adodc1.Recordset.Fields("postt") Else XXX = ""
Text1.Text = XXX



RE: رسالة خطأ اذا كان الحقل فارغ - اسلام الكبابى - 03-08-15

تمام
بارك الله فيك
ولك ألف شكر



RE: رسالة خطأ اذا كان الحقل فارغ - ريري جمال يوسف - 07-04-17

(03-08-15, 06:21 PM)اسلام الكبابى كتب : Adodc1.Recordset.MoveLast

If Not IsNull(Adodc1.Recordset.Fields("Salary")) Then XXX = Adodc1.Recordset.Fields("Salary") Else XXX = ""
Text7.Text = ("لايوجد له مرتب")