كيف يمكن عمل شرط لخلايا فارغة في اكسس access

[hmidadz]

السلام
يوجد في اكسس خلايا فارغة كيف يمكن عمل شرط عليها
علما انها تسبب مشكل عند استعمال ADOStoredProc1.FieldValues
مثال
if (ADOStoredProc1.FieldValues=null)
نفد شيئ اخر
كيف يمكنني تحقيق هدا

[بن دهيبة]

وعليكم السلام ورحمة الله تعالى وبركاته

كود :

if ADOStoredProc1.Fields[1].IsNull then

[hmidadz]

تعمل جيدا شكرا لكن مدا تقصد بالواحد

[بن دهيبة]

واحد هو ترتيب الحقل حيث أن الحقل الأول ترتيبه صفر
مثال:

كود :

procedure TForm1.Button1Click(Sender: TObject); var i:integer; Info:string; begin for i := 0 to ADOStoredProc1.FieldCount - 1 do Info := Info + ADOStoredProc1.Fields[i].FieldName + #10; ShowMessage(Info); end;