בעיה עם תנאי על שדה null

InnerKid

New member
בעיה עם תנאי על שדה null

יש לי טופס שמציג פרטי לקוח ובו יש תת-טופס עם פירוט ההזמנות של אותו לקוח. בנוסף, בטופס הראשי יש גם כפתור שלחיצה עליו מציגה טופס ובו ההזמנה בפרוט. אני מעוניין, שכאשר אין ללקוח אף הזמנה, הכפתור שפותח את טופס ההזמנה המפורטת יתן הודעה מסויימת, וכאשר יש ללקוח הזמנה אחת לפחות הוא אכן יפתח את הטופס. העניין, משום מה, בעייתי. הוספתי שדה שעושה count למס´ ההזמנות שיש בתת טופס, וניסיתי לתת תנאי לכפתור, שרק כאשר ערך השדה גדול מ-0 הוא יפתח את טופס הפירוט, ואחרת - יתן את ההודעה. אמנם, כאשר יש הזמנות ללקוח הוא באמת פותח את טופס הפירוט כמבוקש, אבל כשאין הזמנות, שדה הcount הוא ריק, ואני מקבל הודעת שגיאה you entered an expresiion that has no value. ניסיתי גם לתת תנאי שרק אם השדה הזה אינו null הוא יפתח את הטופס, ואחרת יתן הודעה. ניסיתי גם תנאי שאם השדה null יתן הודעה ואחרת יפתח את הטופס. בכל מקרה אני מקבל את הודעת השגיאה הזו. כלומר, לפי מה שנראה לי, כאשר ללקוח אין הזמנות, אז לשדה הזה אין כל ערך, אפילו לא null, ולכן התנאי נתקע. מה אפשר לעשות כדי לפתור דבר מסוג זה??
מאור.
 
Dcount בטופס האב, אמור לעבוד

איפה כתבת את הCount שלך? אני הייתי עושה משפט התניה בטופס האב. עם קריטריון שקשור לבן. (למשל מס´ לקוח) משהו בסגנון הזה....
If Dcount("[OrderID]","OrderTBL","[CustomerID] = " & Me![CustomerID]) <1 Then MsgBox "אין הזמנות ללקוח",VbInfomation End If​
 

InnerKid

New member
מיקום ה-count

הcount אצלי הוא ה-control source של text box בטופס הבן. הבדיקה נעשית כאשר לוחצים על כפתור שנמצא בטופס האב. כלומר, הכפתור אמור לבדוק את הערך שנמצא ב-text box ואם הוא גדול מ-0, זה אומר שיש ללקוח הזמנות ואז הוא מבצע פעולה מסויימת. אחרת - כלומר אין ללקוח הזמנות, ואז מתבצעת פעולה אחרת. לא הבנתי את ההצעה שלך שמוליק - במשפט שכתבת לא ראיתי שום התייחסות לטופס בן כלשהו. איך אני מתייחס לטופס הבן מתוך הDcount ? הרי Me הוא טופס האב (התנאי הוא אירוע של לחיצה על כפתור שנמצא בטופס האב).. תוכל להבהיר שוב.
מאור.
 

InnerKid

New member
והמשך קטן

למה נוצרת הבעיה הזאת כשאני משתמש בcount בדרך שתיארתי? האם אי אפשר להשתמש באופציה הזאת?
 

InnerKid

New member
ok.. הבנתי את העניין וזה עובד ../images/Emo13.gif ../images/Emo51.gif

 
למעלה