עזרה בתיכנות קובץ אקסס

[smk123]

יש לי קובץ אקסס שצריך לכתוב לו קוד לשני פקדים פשוטים יחסית אם יש משיהו שיכול לעזור לי שיפנה אלי בפרטי או במייל <לא ניתן לפרסם מיילים באופן פומבי>
אודה לו ויבוא על שכרו מן השמיים.

 

[מורדי]

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

 

[smk123]

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

 

[מורדי]

בבקשה:

לפקד הכניסה תכניס הקוד הבא:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("שעות")
rs.AddNew
rs![קוד לקוח] = Me.מזהה
rs!תאריך = Date
rs!משעה = Time
rs.Update
rs.Close
Set rs = Nothing

ולפקד יציאה תכניס הקוד הבא:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select * from שעות where [קוד לקוח]=" & Me.מזהה & " order by מזהה desc")
If rs.EOF Then GoTo closing
If Not IsNull(rs![עד שעה]) Then GoTo closing
rs.Edit
rs![עד שעה] = Time
rs!סכום = Me.סכום_ברירת_מחדל
rs.Update
closing:
rs.Close
Set rs = Nothing

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

 

[smk123]

בודק וחוזר

 

[smk123]

מעולה.
רק מה שעדיין חסר זה שבטופס ראשי שהוא בעצם ניהול הנתונים והפקת דוחות בטופס המשנה שם
יש שני שורות שלא מתמלאות יתרה לתשלום ושולם (שולם יכול להתמלא ב0 כי אם ישלמו אני מעדכן את זה באופן ידני.
אני רציתי דווקא טופס כזה כי לא אני ממלא את הנתונים אני מנהל אותם ורציתי טופס נקי.
אני רוצה גם לחלק את המסד לקובץ טבלאות ולקובץ טפסים והייתי רוצה איזשהו ממשק לשנות את הנתיב של הקובץ יש מצב?
בעיה נוספת ששמתי לב אליה עכשיו שכשאני פותח את הטופס במסך מלא הוא "מתבלגן" יש דרך להתגבר על זה?
תודה ענקית

 

[smk123]

אם אני זוכר טוב היתרה קשורה לשולם זה בעצם פעולת חשבון פשוטה בדו"ח לכן צריך להוסיף שם 0.

 

[smk123]

אולי עוד מישהו יכול לעזור ?

 

[מורדי]

רק מה שעדיין חסר זה שבטופס ראשי שהוא בעצם ניהול הנתונים והפקת דוחות בטופס המשנה שם
יש שני שורות שלא מתמלאות יתרה לתשלום ושולם (שולם יכול להתמלא ב0 כי אם ישלמו אני מעדכן את זה באופן ידני.

תגדיר 0 בטבלה בערך בררת מחדל בשדה "שולם".

אני רוצה גם לחלק את המסד לקובץ טבלאות ולקובץ טפסים והייתי רוצה איזשהו ממשק לשנות את הנתיב של הקובץ יש מצב

הנה מדריך.

בעיה נוספת ששמתי לב אליה עכשיו שכשאני פותח את הטופס במסך מלא הוא "מתבלגן" יש דרך להתגבר על זה?

בשביל שטופס יהיה מסודר טוב במצב מלא, צריך להגדיר את הפקדים באופן אחר, מאשר בטופס מודאלי.

 

[smk123]

בשביל שטופס יהיה מסודר טוב במצב מלא, צריך להגדיר את הפקדים באופן אחר, מאשר בטופס מודאלי.

תודה רבה !
סליחה על הבורות אבל איך עושים את זה?

 

[smk123]

ואיך אני מגדיר שלא יראו את כל המסביב של אקסס?
ראיתי שיש מסתיר מסך אבל אין לי מושג איך משתמשים בו.

 

[smk123]

בבקשה:

לפקד הכניסה תכניס הקוד הבא:

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

 

[smk123]

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

 

[מורדי]

יש מצב להוסיף בקוד פקד הכניסה שאם לא עשו יציאה על הכניסה האחרונה באותו התלמיד שלא יוסיף עוד כניסה ויעלה הודעת שגיאה בנוסח "עדיין לא בוצעה יציאה לכניסה האחרונה".

מה זה יעזור? בכל מקרה תצטרך להוסיף שעת יציאה באופן ידני בטופס הראשי. אז בשביל מה ההודעה?

כמו שעשית שלא מוסיף יציאה אם אין כניסה.

לא עשיתי כזה דבר.

 

[smk123]

אז למה התכוונת בזה?

(בקוד הגדרתי שאפשר לעשות יציאה, רק אם לא מוגדרת כבר שעת סיום, למניעת דריסה בטעות של נתונים, אבל זה כמובן לא מספיק).

 

[מורדי]

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

 

[smk123]

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

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

 

[smk123]

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

 

[אפקטיביות]

תעלה את התוכנה במצבה הנוכחי. אשתדל לעזור בלנ"ד.

 

[smk123]

תעלה את התוכנה במצבה הנוכחי. אשתדל לעזור בלנ"ד.

התוכנה מצ"ב.
השיפורים הנדרשים הם בטופס רישום אוטומטי חדש בלחצנים כניסה ויציאה
אני רוצה בעיקר להוסיף בקוד תנאי שיחפש בשורה האחרונה של אותו ילד בטבלת שעות כשאני לוחץ כניסה אם עדיין אין כניסה פתוחה דהיינו אם יש כניסה שלא ביצעתי עליה יציאה. וכמו"כ ביציאה למנוע כפילות נתונים עקב לחיצה שגויה. ובמידה ויש כבר כניסה שלא בוצעה עליה יציאה או אם יש כבר יציאה ואין כניסה להקפיץ הודעת שגיאה.
וכן עוד דבר אם אפשר שאחרי שמעדכנים כניסה או יציאה שתעלה הודעה בנוסח כזה "עדכנת כניסה ל-שם הילד- בשעה כך וכך" או עדכנת יציאה וכו'
וכן אם אפשר שלא יהי אפשר לערוך את הרשומה בטופס שזה רק יציג ויהיה קפוא
תודה רבה
קרדיט ליוני הלפרין שעל בסיס התוכנה שלו בניתי את זה ולמורדי על העזרה בקוד עד עכשיו.