خطای VBA در زمان NULL یا ""

[samaneh_h]

من جستجو کردم ولی جوابی بدست نیووردم.لطفاً نمونه زیر رو ببینید.فرم رو اجرا کنید و وقتی ازتون چیزی خواست کاراکتر "a" رو وارد کنید. این فرم میاد و کسانی که توی فیلد کد شون حرف a تایپ شده نمراتشون رو با هم جمع ‌میکنه.حالا فرم رو ببندین و دوباره اجرا کنید اینبار حرف t رو بزنید .از اونجایی که هیچکس حرف t توی کدش نیست فرم خالی برگردونده می‌شه .یه دکمه زیر فرم هست که گفتم اگر فیلد کد فرم خالی بود و دکمه زده شد پیغام nullvalue نشون داده بشه.ولی انگار راهی وجود نداره برای مقایسه مقدار null چون if اجرا نمی‌شه.کمک
راستی این راه ها رو هم تست کردم
if code="" then msgbox "nullvalue
if isnull(code) then msgbox "nullvalue
if code=null then msgbox "nullvalue
if len(code)<1 then msgbox "nullvalue

[شاپرک]

از این استفاده کن :


if IsNull(code) then

[samaneh_h]

شاپرک عزیز اگه نگاهی به راههایی که امتحان کردم بندازی این دستورم هست ولی متاسفانه باید عمل کنه و نمی‌کنه

[moustafa]

من هنوز فایل شما رو نگاه نکردم با توابع dcount یا dlookup نمی تونی شرط رو کنترل کنی
البته اگه به جواب نرسیدید بعد از ظهر روش کار می کنم

[moustafa]

بهتره کوئری را با make tableبه جدولی مثلا q تبدیل کنی و فرم رو به اون بوند کنی و کدهای زیر رو به یه منو یا ماکرو یا ..... انتساب کنی
DoCmd.SetWarnings False
DoCmd.OpenQuery "Query1", acViewNormal, acEdit
DoCmd.OpenForm "Query1", acNormal, "", "", , acNormal
اگه می خوای در صورت خالی بودن فرم ظاهر نشه

if dcount("*","q")>0 then
[LTR]DoCmd.SetWarnings False
DoCmd.OpenQuery "Query1", acViewNormal, acEdit
if dcount("*","q")>0 then
DoCmd.OpenForm "Query1", acNormal, "", "", , acNorma
else msgbox"null record"
end if

l[/LTR

[karmand]

اگر اشتباه نکرده باشم پاسخ راحت تری وجود دارد
من فرم لود نوشتم
Private Sub Form_Load()
If Me.CurrentRecord < 1 Then
MsgBox "null value"
DoCmd.Close
End If
End Sub

[شاپرک]

به جای شرطی که خودت گذاشتی این رو جایگزین کن.
به نظر من هم این روش بهتره ....جواب میده


If Me.CurrentRecord < 1 Then