פקודת DLookUp

[clickone]

@הכוכב-שלנו
recordset וביקצור RS זו שיטה לעבור על הטבלה או חלק ממנה בקוד.
הרעיון הכללי הוא ככה:
אתה מצהיר על אובייקט recordset
וטען אליו נתונים
ואז אתה יכול לעבור על כל מה שקילת בלופ או בכל דרך אחרת.
לופ=ריצה בחזרה מספר פעמים שאתה מגדיר. לדוגמה, הקוד ירוץ כמספר הרשומות שיש בטבלה, וכל פעם המשתנה יחזיק את הרשומה הנוכחית.
ואז, אחרי שטענת את הנתונים, אתה יכול לבצע כל מיי פעולות
לדוגמא, לעדכן נתונים, למחוק, ועוד.
התייחסות לשדה בטבלה יכלה להעשות ב2 דרכים.

rs!username
או

rs("username)

אם יש לך רווח בשם השדה, או שהשדת שלך בעברית אז תשתמש באפשרות השנייה

(המלצה שלי, לא לעשות לא עברית ולא רוו בשמות השדות והטבלאות. זה יקשה עליך את החיים. במיוחד אם אתה עובד עם קוד.....)

[הכוכב שלנו]

@clickone כן כבר למדתי onlyenglish.

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

[clickone]

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

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

Dim rs As Recordset
Set rs = Me.Recordset.Clone

For i = 0 To rs.RecordCount - 1
rs.Edit
rs!LastUpdate = Now
rs.update
rs.MoveNext
Next

עריכה. שחכתי להוסיף את rs.MoveNext אז הוספתי עכשיו. אחרת הכל יהיה על הרשומה הראשונה.

ויש עוד דרך

Dim rs As Recordset
Set rs = Me.Recordset.Clone

Do Until rs.EOF
rs.Edit
rs!LastUpdate = Now
rs.update
rs.MoveNext
Loop

2 הדרכים נכונות

[הכוכב שלנו]

@clickone אמר בפקודת DLookUp:

@הכוכב-שלנו

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

אתה מתכווין שדה בטופס או מספיק בטבלה?
תודה לך

[clickone]

@הכוכב-שלנו
בטבלה מספיק.
אבל במקרה ואתה מושך מהטופס, אז צריך שהשדה הזה יהיה בתוך מקור הרשומה. (לא חייב שיהיה שדה בטופס.)

[clickone]

@הכוכב-שלנו
וככה אתה מושך מטבלה ולא מהטופס הנוכחי

Set rs = CurrentDb.OpenRecordset("select * from tbl where userid=7")

[The shadow]

אני מוסיף קובץ ללימוד אקסס זה מלפני 20 שנה (ככה נראה לי)
יש שם הדרכות על מה שדנו פה...

0_1528199053437_מדריך לאקסס - חלק ג מפתחים.pdf

תודה ל @yosi_m שהמציא לי את זה..

[הכוכב שלנו]

@אדרת אמר בפקודת DLookUp:

אני מוסיף קובץ ללימוד אקסס זה מלפני 20 שנה (ככה נראה לי)
יש שם הדרכות על מה שדנו פה...

0_1528199053437_מדריך לאקסס - חלק ג מפתחים.pdf

תודה ל @yosi_m שהמציא לי את זה..

דבר ראשון זה תמיד דבר טוב
רק מה עם זכויות יוצרים?...

[clickone]

@הכוכב-שלנו אמר בפקודת DLookUp:

רק מה עם זכויות יוצרים?...

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

[The shadow]

כתוב על זה שמותר לשימוש אישי