גישה דוגמאות

למנוע פתיחת דיווח אם הנתונים לא להראות

אנחנו יכולים למנוע דיווח פתוח אם הנתונים לא להראות, ועל כך אנו משתמשים בשתי צורות, בהתאם לגירסת Access:

1 - כל הגירסאות של Access
מניחים את הקוד להלן המאפיינים של הדו"ח, "מתן אפשרות של אירוע

השתמש הפעלת האירוע (הפעלה) דוח:

תת פרטיים Report_Activate ()

אם DCOUNT ("*", Me.RecordSource) = 0 אז

MsgBox "רשומות לתצוגה" vbDefaultButton1, "שגיאה!"

AcReport DoCmd.Close, "שם דוח"

סוף אם

End Sub

2 - מ גרסה 7 (Access 95) נוסף על האירוע: "אם אין נתונים ', אז אנחנו יכולים urilizar את הקוד הבא:

Private Sub Report_NoData (ביטול כמספר שלם)

MsgBox "אין נתונים בדוח.", VbInformation, "שגיאה!"

ביטול = True

End Sub

כדי לראות פועל להוריד לדוגמא: מניעת דו"ח הפתיחה

פורסם ב Uncategorized | 13 תגובות »

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

לפעמים יש צורך למנוע בצורה פתוחה אם יש רשומות להצגה, למשל כאשר אתה עושה שאילתה ולא אחת אין צורך, אנחנו לא צריכים להיות בצורה פתוחה מכיון שאין בידינו נתונים לתצוגה. אז מה אנחנו צריכים לבדוק הוא האם יש רשומות להצגה ואם אין להציג הודעה ו לעכב בצורה פתוחה. איך?

קל פשוט לשים את הקוד הבא במאפייני הטופס האירוע "לפתוח":

= 0 אז אם Form.RecordsetClone.RecordCount
MsgBox "לא נמצאו רשומות.", VbExclamation "שגיאה!"
DoCmd.Close acForm, "למצוא את הנתונים"
צא Sub
סוף אם

כדי לראות דוגמה להורדה: מניעת טופס פתוח

פורסם ב דוגמאות , טפסים , מודולים | 2 תגובות »