المساعدة يااخوان

أخى أرجو أن تجرب إستعمال الدالة IsNull للتأكد من أن الحقل لا يحتوى القيمة Null قبل إضافته، كمثال:

Private Sub Command1_Click()

fee.MoveNext

If fee.EOF Then

fee.MoveLast

End If

For i = 0 To 7

If Not IsNull(fee.Fields(i)) Then Text1(i).Text = fee.Fields(i)

Next i

End Sub

كما يمكنك عمل شرط هكذا

MyVaraible='Read Value From DB

If IsNull(MyVariable) then MyVariable="حسب نوع المتغير Null قيمة بخلاف"

'ثم قم باستخدام المتغير بعرض محتواه فى أداة مثلا أو كما تحب

ولى طلب بسيط و نصيحة، أن تقوم بإرفاق المشروع الذى تواجهك به المشكلة ليتمكن الأخوة الأعضاء من مساعدتك بشكل أفضل.

أرجو أن تفلح التجربة، و تحياتي

:rolleyes:الأخ العزيز roka بداية أحب أن أشكرك على ردك السريع الذي بواسطته أستطعت التغلب على مشكلة من المشاكل التي واجهتني في برنامجي

لك مني كل التحية والتقدير وجزاك الله كل خير

أما بالنسبة لإرفاق البرنامج فإن شاء الله سيكون موجود أقرب وقت

أكرر شكري العميق لك أخي العزيز

أخوك في الله

sakhr

العفو يا أخى، لهذا نجتمع هنا بالمنتدى، لنساعد بعضنا البعض، و كم ساعدنى إخوة كثيرون أدين لهم بالعرفان، و أنا فى خدمتك أى وقت، و يسرنى أن إستطعت أن أساعدك.

و سلامى لك.

أخوك.