המאפיין RecordSource

חל על

אובייקט Form
אובייקט Report

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

ביטוי.RecordSource

ביטוי נדרש. ביטוי שמחזיר אחד מהאובייקטים ברשימה חל על.

הערות

הגדרת המאפיין RecordSource יכולה להיות שם טבלה, שם שאילתה או משפט SQL. לדוגמה, באפשרותך להשתמש בהגדרות הבאות.

הגדרה לדוגמה	תיאור
עובדים	שם טבלה המציין את הטבלה 'עובדים' כמקור הנתונים.
SELECT Orders!OrderDate FROM Orders;	משפט SQL המציין את השדה OrderDate בטבלה 'הזמנות' כמקור הנתונים. ניתן לאגד פקד בטופס או בדוח לשדה OrderDate בטבלה 'הזמנות' על-ידי הגדרת המאפיין ControlSourceשל הפקד ל- OrderDate.

הערה: באפשרותך להגדיר את המאפיין RecordSource על-ידי שימוש ב- גליון מאפיינים של הטופס או הדוח, ב- מאקרו, או בקוד Visual Basic for Applications‏ (VBA).

ב- VBA, השתמש ב- ביטוי מחרוזת כדי להגדיר מאפיין זה.

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

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

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

דוגמה

הדוגמה הבאה מגדירה את המאפיין RecordSource של טופס לטבלה 'לקוחות':

Forms!frmCustomers.RecordSource = "Customers"

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

Sub cmboCompanyName_AfterUpdate()
    Dim strNewRecord As String
    strNewRecord = "SELECT * FROM Customers " _
        & " WHERE CustomerID = '" _
        & Me!cmboCompanyName.Value & "'"
    Me.RecordSource = strNewRecord
End Sub

חל על

הערות

דוגמה

זקוק לעזרה נוספת?

מעוניין באפשרויות נוספות?

האם מידע זה היה שימושי?

תודה על המשוב!