פקודת DLookUp
-
@הכוכב-שלנו אמר בפקודת DLookUp:
@chagold אמר בפקודת DLookUp:
@הכוכב-שלנו RS זה טכניקה לעבודה עם מסדי נתונים - טבלאות.
אני מצרף איזו תוכניתונת שעשיתי פעם לעזור לי בחישוב זמני עבודה, תבין את הפרנציפ, וכל שאלה תשאל.תסתכל בREFERENCES כדי שיצרף לך את הספריה הרלוונטית
אני יכול להשתמש גם בקוד של הלחצנים?
למה לא?
-
@הכוכב-שלנו
recordset וביקצור RS זו שיטה לעבור על הטבלה או חלק ממנה בקוד.
הרעיון הכללי הוא ככה:
אתה מצהיר על אובייקט recordset
וטען אליו נתונים
ואז אתה יכול לעבור על כל מה שקילת בלופ או בכל דרך אחרת.
לופ=ריצה בחזרה מספר פעמים שאתה מגדיר. לדוגמה, הקוד ירוץ כמספר הרשומות שיש בטבלה, וכל פעם המשתנה יחזיק את הרשומה הנוכחית.
ואז, אחרי שטענת את הנתונים, אתה יכול לבצע כל מיי פעולות
לדוגמא, לעדכן נתונים, למחוק, ועוד.
התייחסות לשדה בטבלה יכלה להעשות ב2 דרכים.rs!username
אוrs("username)אם יש לך רווח בשם השדה, או שהשדת שלך בעברית אז תשתמש באפשרות השנייה
(המלצה שלי, לא לעשות לא עברית ולא רוו בשמות השדות והטבלאות. זה יקשה עליך את החיים. במיוחד אם אתה עובד עם קוד.....)
-
@clickone כן כבר למדתי onlyenglish.
בכל אופן אז אם אני מבין נכון זה גם מציג נתונים וגם מכניס?
כלומר הקוד הוא לעבור על הנתונים אך זה אינו חלק מהצגתם או שזה כן חלק מהצגתם? -
@הכוכב-שלנו
אתה יכול לעבור על הקוד
אם אתה רוצה אתה יכול גם להציג בטופס או במסגבוקס או איך שתרצה
אתה יכול גם להוסיף ולעדכןאתה יכול לקבל בטופס בצורה ישירה את אובייקט ה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 Loop2 הדרכים נכונות
-
@clickone אמר בפקודת DLookUp:
הנה דוגמא שלוקחת את הRS של הטופס הנוכחי עם הסינון שלו, ומעדכנת את זמן העידכון הנוכחי לתאריך + שעה של עכשיו -- כמובן צריך שיהיה שדה כזה בטופס
אתה מתכווין שדה בטופס או מספיק בטבלה?
תודה לך -
@הכוכב-שלנו
בטבלה מספיק.
אבל במקרה ואתה מושך מהטופס, אז צריך שהשדה הזה יהיה בתוך מקור הרשומה. (לא חייב שיהיה שדה בטופס.) -
@הכוכב-שלנו
וככה אתה מושך מטבלה ולא מהטופס הנוכחיSet rs = CurrentDb.OpenRecordset("select * from tbl where userid=7") -
אני מוסיף קובץ ללימוד אקסס זה מלפני 20 שנה (ככה נראה לי)
יש שם הדרכות על מה שדנו פה...0_1528199053437_מדריך לאקסס - חלק ג מפתחים.pdf
תודה ל @yosi_m שהמציא לי את זה..
-
@אדרת אמר בפקודת DLookUp:
אני מוסיף קובץ ללימוד אקסס זה מלפני 20 שנה (ככה נראה לי)
יש שם הדרכות על מה שדנו פה...0_1528199053437_מדריך לאקסס - חלק ג מפתחים.pdf
תודה ל @yosi_m שהמציא לי את זה..
דבר ראשון זה תמיד דבר טוב
רק מה עם זכויות יוצרים?... -
@הכוכב-שלנו אמר בפקודת DLookUp:
רק מה עם זכויות יוצרים?...
אאל"ט זה היה מפורסם באתר אינטרנט שלו או משהו דומה. לפני שמישהו חשב שאפשר לעשות כסף מאינטרנט
-
כתוב על זה שמותר לשימוש אישי
