دستورات شرطی [بایگانی]

reza2371

پنج شنبه 29 مرداد 1394, 12:26 عصر

با سلام واحترام خدمت اساتید محترم
دوتا مشکل دارم که در نمونه ای که قرار دادم توضیحات کامل را گذاشتم
1- فرمی با چند دستور شرطی طراحی کردم. مشکلش اینجاست وقتی شرط را بررسی میکند اگر درست بود به شرط بعدی نمیرود
2- محاسبات در گزارش

134476

alirezabahrami

پنج شنبه 29 مرداد 1394, 21:58 عصر

با سلام واحترام خدمت اساتید محترم
دوتا مشکل دارم که در نمونه ای که قرار دادم توضیحات کامل را گذاشتم
1- فرمی با چند دستور شرطی طراحی کردم. مشکلش اینجاست وقتی شرط را بررسی میکند اگر درست بود به شرط بعدی نمیرود
2- محاسبات در گزارش

134476
سلام
هرچند خیلی مطمئن نیستم سوالت را درست متوجه شده باشم ولی کد ها را بصورت زیر تغییر بده ببین درسته !
یا علی

If IsNull(jens.Value) Then
MsgBox "äæÚ ÌäÓ äãíÊæÇäÏ ÎÇáí ÈÇÔÏ", vbCritical, ""
Exit Sub
End If
If IsNull(anbar.Value) Then
MsgBox "ÇäÈÇÑ ãÔÎÕ äÔÏå ÇÓÊ", vbCritical, ""
Exit Sub
End If
If anbar.Value = 1 Then
If MsgBox("ÇäÈÇÑ ÔãÇÑå í˜ Ê˜ãíá ÇÓÊ" & Chr(10) & Chr(10) & "ÝÑã Ïæã ÈÇÒ ÔæÏ¿", vbCritical + vbYesNo + vbMsgBoxRight, "") = vbYes Then
DoCmd.OpenTable "table3", acViewPreview
Exit Sub
End If
Else
If IsNull(meqdar.Value) Then
MsgBox "ãÞÏÇÑ æÇÑÏ äÔÏå ÇÓÊ", vbCritical, ""
Exit Sub
End If
End If

reza2371

پنج شنبه 29 مرداد 1394, 23:24 عصر

سلام
هرچند خیلی مطمئن نیستم سوالت را درست متوجه شده باشم ولی کد ها را بصورت زیر تغییر بده ببین درسته !
یا علی

If IsNull(jens.Value) Then
MsgBox "äæÚ ÌäÓ äãíÊæÇäÏ ÎÇáí ÈÇÔÏ", vbCritical, ""
Exit Sub
End If
If IsNull(anbar.Value) Then
MsgBox "ÇäÈÇÑ ãÔÎÕ äÔÏå ÇÓÊ", vbCritical, ""
Exit Sub
End If
If anbar.Value = 1 Then
If MsgBox("ÇäÈÇÑ ÔãÇÑå í˜ Ê˜ãíá ÇÓÊ" & Chr(10) & Chr(10) & "ÝÑã Ïæã ÈÇÒ ÔæÏ¿", vbCritical + vbYesNo + vbMsgBoxRight, "") = vbYes Then
DoCmd.OpenTable "table3", acViewPreview
Exit Sub
End If
Else
If IsNull(meqdar.Value) Then
MsgBox "ãÞÏÇÑ æÇÑÏ äÔÏå ÇÓÊ", vbCritical, ""
Exit Sub
End If
End If

سلام ممنون از لطفتون مشکل اولم حل شد اما مشکل دوم که محاسبات تکس باکس بدون مقدار هست حل نشده
اگه میتونید حل کنید ممنون میشم.

alirezabahrami

جمعه 30 مرداد 1394, 10:11 صبح

سلام ممنون از لطفتون مشکل اولم حل شد اما مشکل دوم که محاسبات تکس باکس بدون مقدار هست حل نشده
اگه میتونید حل کنید ممنون میشم.
سلام
نمونه اصلاح شده را بررسی کن
یا علی