אופיס 365 מעקב אחרי שינויים - אקסס

[עיטורים פלוס]

ברצוני
יש לי לדוגמא, 2 טבלאות.
1) טבלה רגילה.
2) טבלת שינויים בו מצויין: טבלה, שדה, מזהה שורה, ערך קודם, ערך נוכחי, תאריך שינוי, שעת שינוי, שונה ע"י, וכו'.

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

2 אופציות שחשבתי.
1) השדות בטופס לא יהיו מקושרים לטבלה, אלא באמצעות הקוד יעדכן בכניסה, וחזרה ביציאה. [ולפני היציאה ישווה האם יש שינויים וכו'].
2) בעת טעינת הרשומה, יעדכן משתנים בנתונים [ולפני היציאה ישווה האם יש שינויים וכו'].
החסרון בשניהם במידה וח"ו המחשב נופל.

האם יש פתרונות נוספים, או תיקונים.

בתודה מראש

 

[FullTime]

יש אפשרות בדיקה.
ככה:

txtBox.Value
txtBox.OldValue

תעשה IF אם הם שווים.

וזה עובד רק בתיבה עם מקור, לא בסתם תיבת טקסט.

 

[עיטורים פלוס]

תודה, מצויין....

דרך אגב, מה האופציה הקלה ביותר שגם אם השדה היה ריק ו/או הוחלף לריק, שיסמן שבוצע שינוי בIF

בתודה מראש...

 

[FullTime]

לא ניסיתי
אבל כנראה IF ISNULL...

 

[עיטורים פלוס]

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

 

[עיטורים פלוס]

לכאו' אפשר להשתמש עם NZ
כדלהלן:

    If (Nz([שם משפחה].Value, "{ריק}") <> Nz([שם משפחה].OldValue, "{ריק}")) Then

 

[עיטורים פלוס]

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

 

[עיטורים פלוס]

???

 

[FullTime]

משהו כזה

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("שם טבלת השינויים")
        rs.AddNew
        rs!FieldOldNameInTable = txtBox.oldValue
        rs!FieldNewNameInTable = txtBox.Value
        rs.Update
    Set rs = Nothing

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

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

 

[עיטורים פלוס]

משהו כזה

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tblName")
                rs.AddNew
            rs!value = txtBox.oldValue
            rs.Update

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

 

[FullTime]

ערכתי במקור.

 

[עיטורים פלוס]

מצויין, תודה רבה...

 

[domino]

גם אני מעונין באופציה של מעקב באקסס

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

 

[עיטורים פלוס]

הכנתי טבלה הכוללת את הנתונים הבאים:
טבלה;שדה;מזהה;ערך קודם;ערך חדש;שונה ע"י;תאריך;שעה

בטופס בעת שמירה בודק כל שדה במידה ובוצע שינוי מעדכן ע"י שאילתת הוספה, ולחילופין ע"פ הקוד שהועלה ע"י a26955

 

[domino]

תודה רבה על התגובה, יש לך אפשרות להעלות את הקובץ ריק מנתונים?

תודה מראש