השדות מתעדכנים לבד

[smk123]

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

 

[smk123]

מישהו?
שוב תודה

 

[FullTime]

אפשר לראות את הקוד לא בקובץ מצורף?

 

[smk123]

אפשר לראות את הקוד לא בקובץ מצורף?

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

ואגב זה קורה גם כשאין קוד על השדה ברגע שאני מוסיף נתון בשדה זה נרשם בכל הרשומות באותו שדה

 

[smk123]

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

 

[FullTime]

הקוד שהבאת מוסיף רשומה חדשה.
לא הוא מעדכן את כל הרשומות.

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

 

[smk123]

הקוד שהבאת מוסיף רשומה חדשה.
לא הוא מעדכן את כל הרשומות.

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

אני יודע שהוא מוסיף רשומה חדשה
וגם בלי הקוד זה קורה ואני לא מצליח להבין למה

 

[עמיק]

כי הפקד נקודות לא מאוגד לטופס שמבוסס על טבלת תלמידים

 

[smk123]

כי הפקד נקודות לא מאוגד לטופס שמבוסס על טבלת תלמידים

אז אחרי שאני יוצר כזה שדה בטבלה ומאגד אותו
איך אני יכול לעשות שזה יתרוקן ורק ישמש לצורך ערך בשביל הrecordset
כמובן בלי ליצור רשומות חדשות בטבלה המתעדכנת (כי הרי ברגע שהנתון נמחק השדה התעדכן)

 

[עמיק]

me.נקודות=" "
(me.refresh)

 

[smk123]

me.נקודות=" "
(me.refresh)

איפה לשים את זה

 

[עמיק]

" " =נקודות .Me
"נקודות" ,DoCmd.SelectObject acTable
DoCmd.Requery
End Sub

 

[עמיק]

" " =נקודות .Me
DoCmd.Requery
End Sub

 

[smk123]

" " =נקודות .Me
DoCmd.Requery
End Sub

מתי הוא אמור לעשות את זה?

 

[עמיק]

הקוד לא מסודר (בגלל היישור בפורום ),אבל זה הקוד המקורי + התוספת בסוף הקוד.
Private Sub נקודות_AfterUpdate()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("נקודות")
rs.AddNew
rs![קוד לקוח] = Me.מזהה
rs!תאריך = Date
rs!נקודות = נקודות
rs.Update
rs.Close
Set rs = Nothing
Me.נקודות = " "
DoCmd.Requery
End Sub

 

[smk123]

הקוד לא מסודר (בגלל היישור בפורום ),אבל זה הקוד המקורי + התוספת בסוף הקוד.
Private Sub נקודות_AfterUpdate()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("נקודות")
rs.AddNew
rs![קוד לקוח] = Me.מזהה
rs!תאריך = Date
rs!נקודות = נקודות
rs.Update
rs.Close
Set rs = Nothing
Me.נקודות = " "
DoCmd.Requery
End Sub

עובד מעולה.
יש דרך שהוא ישמור את הערכים עד שאני יסגור את הטופס?

 

[עמיק]

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

 

[smk123]

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

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

 

[עמיק]

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

 

[smk123]

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

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