ערכתי לאחרונה בתאריך 10.11.05 בשעה 06:24 בברכה, E-do
יש למעשה 2 אפשרויות, הפשוטה יותר היא ליצור טופס שמבוסס על השאילתה/טבלה ולהוסיף שם שדה מסוג TextBox בו יאוכסן המספר, אז לעשות דבר כזה:
1 dim x as integer
2 dim rec_count as integer
3 docmd.gotorecord,, aclast
4 rec_count = CurrentRecord
5 docmd.gotorecord,, acfirst
6 while CurrentRecord < rec_count
7 x = x + Code.Value
8 docmd.gotorecord,, acnext
9 wend
10 TextBox.valye = x
|
שורות 1 ו-2 מגדירות את המשתנים.
שורות 3 עד 5 מאחסנות "בצד" את מס' הרשומות בטבלה כדי לקבוע תנאי עצירה וחוזרות בחזרה לתחילת הנתונים
שורות 6 עד 8 עושות את החישוב
שורה 10 מציבה את המספר לTextBox הנוסף שקיים.האפשרות השניה זה לעבוד עם Recordset ואז לא חייבים לבנות טופס מיוחד לזה בכלל אלא אפשר להכניס את זה בכל טופס אחר, אבל זה קצת יותר מסובך וצריך להכיר את כל הנושא של rs.
-----------------
בברכה,
e-do
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
