اجرا نشدن برنامه در صورت خالی بودن فیلد

[saeedzx]

سلام ببخشید من میخواستم از شرت if استفاده کنم

می خوام بگم اگر هیچ فیلدی در بانک اطلاعاتی و جود نداشته باشده برنامه اجرا نشه

[mpmsoft]

1 - از عنوان مناسب استفاده کنید
2-غلط املائی
3 - منظورتو از فیلد چی هست ؟ آیا منظورتون جدول نیست ؟

[saeedzx]

میخوام به برنامه بگم که

اگر فیلد های برنامه خالی بود یک دکمه غیر فعال بشه

یعنی هیج اطلاعاتی در یک فیلد یا تمام فیلد های جدول خالی بود کلید ویرایش غیر فعال باشه

[Pr0grammer]

if Adodc1.Recordset.Fields(0).Value = "" then End
این کد فیلد با ایندکس 0 رو بررسی می کنه؛ و اگه خالی بود برنامه رو می بنده/
بقیه بررسی ها دیگه ساده هستش؛ خودتون انجام بدید.

[saeedzx]

If ado.Recordset.Fields("mkol").Value = "" Then
Sum = 0
ado.Recordset.MoveFirst
While ado.Recordset.EOF = False
Sum = Sum + ado.Recordset.Fields("mkol")
ado.Recordset.MoveNext
Wend
Text7.Text = Str(Sum)
ado.Recordset.MoveFirst
ado.Refresh
Text7.Text = Format(Text7.Text, "###,###,###")
End Ifاین کد برنامه خطا میده

[Pr0grammer]

بدیعی هستش که پیغام خطا بده!
شما گفتی وقتی فیلد mkol خالی بود، مقدارش رو با sum جمع کنه؛ در حالی که مقداری وجود نداره تا با sum ترکیب بشه!!!!!
خط اول رو تصحیح کنید :

If ado.Recordset.Fields("mkol").Value <> "" The

[mostafa_bahar]

از isnull استفاده کن درست می شه احتمالا از اون باشه که فیلد null هست