الخاصية "مجموعة_السجلات"

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

ينطبق على

كائن مربع تحرير و# سرد

نموذج الكائن

كائن مربع القائمه

كائن تقرير

ارجاع او تعيين ADO مجموعه السجلات او الكائن DAO مجموعه السجلات يمثل مصدر السجلات ل# النموذج المحدد او تقرير، و# عنصر تحكم مربع قائمه او عنصر تحكم مربع تحرير و# سرد. القراءه / الكتابه.

تعبير. مجموعه السجلات

تعبير مطلوب. تعبير يرجع احد الكائنات في القائمه "ينطبق علي".

ملاحظات

ارجاع الخاصيه مجموعه السجلات كائن مجموعه السجلات الذي يوفر البيانات اثناء استعراضه في نموذج او تقرير، و# عنصر تحكم مربع قائمه، او عنصر تحكم مربع تحرير و# سرد. اذا كان نموذج يستند الي استعلام، علي سبيل المثال، تشير الي ان الخاصيه مجموعه السجلات يعادل استنساخها كائن مجموعه سجلات ب# استخدام الاستعلام نفسه. و# مع ذلك، ب# خلاف ب# استخدام الخاصيه RecordsetClone ، تغيير ما هو السجل هو الحالي في مجموعه السجلات المرجعه ب# الخاصيه مجموعه السجلات ل# النموذج ايضا تعيين السجل الحالي ل# النموذج.

تتوفر هذه الخاصيه فقط ب# استخدام Visual Basic for Applications (VBA) التعليمات البرمجيه.

يتم تحديد سلوك القراءه / الكتابه الخاصيه مجموعه السجلات ب# حسب نوع مجموعه السجلات (ADO او DAO) و# نوع البيانات (Access او SQL) الموجوده في مجموعه السجلات المعرفه من قبل الخاصيه.

مجموعه السجلات نوع

استنادا الي بيانات SQL

استنادا الي بيانات Access

ADO

القراءه / الكتابه

القراءه / الكتابه

DAO

غير متوفر

القراءه / الكتابه

المثال التالي ل# فتح نموذج و# يفتح مجموعه سجلات و# ربط النموذج ثم الي مجموعه السجلات عن طريق تعيين خاصيه مجموعه السجلات ل# النموذج الي كائن سجلات الذي تم انشاؤه حديثا.

Global rstSuppliers As ADODB.RecordsetSub MakeRW()DoCmd.OpenForm "Suppliers"Set rstSuppliers = New ADODB.RecordsetrstSuppliers.CursorLocation = adUseClientrstSuppliers.Open "Select * From Suppliers", _CurrentProject.Connection, adOpenKeyset, adLockOptimisticSet Forms("Suppliers").Recordset = rstSuppliersEnd Sub

استخدام الخاصيه مجموعه السجلات :

  • ل# ربط نماذج متعدده ل# مجموعه بيانات شائعه. يتيح هذا الخيار مزامنه نماذج متعدده. على سبيل المثال

    Set Me.Recordset = Forms!Form1.Recordset

  • ل# استخدام اساليب مع كائن مجموعه السجلات معتمده مباشره علي النماذج. علي سبيل المثال، يمكنك استخدام الخاصيه مجموعه السجلات ب# استخدام ADO البحث عن او DAO البحث عن اساليب في مربع حوار مخصص ل# البحث عن سجل.

  • ل# التفاف حركه (الذي يمكن ان يتم التراجع عن) حول مجموعه من عمليات التحرير التي تؤثر في نماذج متعدده.

تغيير الخاصيه مجموعه السجلات ل# النموذج قد تغيير خصائص مصدر _ السجلو# نوعتامين ايضا. ايضا، بعض الخصائص ذات الصله ب# بيانات قد يتم تجاوز، علي سبيل المثال، و# تصفيه، و# تشغيل، و# ترتيب _ حسبوخصائص تشغيل .

قد يؤدي استدعاء اسلوب اعاده الاستعلام عن مجموعه السجلات ل# النموذج (علي سبيل المثال، Forms(0).Recordset.Requery) النموذج ل# كي تصبح غير منضم. ل# تحديث البيانات في نموذج مرتبط ب# مجموعه سجلات، ب# تعيين خاصيه مصدر السجلات ل# النموذج ب# حد ذاته (Forms(0).RecordSource = Forms(0).RecordSource).

عند ربط نموذج الي مجموعه سجلات، ف# سيحدث خطا اذا كنت تستخدم عامل التصفيه عن طريق الامر نموذج.

مثال

تستخدم الخاصيه مجموعه السجلات ل# انشاء نسخه جديده من كائن مجموعه السجلات من النموذج الحالي المثال التالي، و# ثم طباعه اسماء الحقول في النافذه التصحيح.

Sub Print_Field_Names()
Dim rst As DAO.Recordset, intI As Integer
Dim fld As Field
Set rst = Me.Recordset
For Each fld in rst.Fields
' Print field names.
Debug.Print fld.Name
Next
End Sub

يستخدم المثال التالي الخاصيه مجموعه السجلات و# كائن مجموعه السجلات ل# مزامنه مجموعه سجلات ب# استخدام السجل ل# النموذج الحالي. عند تحديد اسم شركه من مربع التحرير و# سرد، يتم استخدام الاسلوب فيندفيرست ل# تحديد موقع السجل ل# تلك الشركه التي تتسبب في النموذج ل# عرض سجل تم العثور عليها.

Sub SupplierID_AfterUpdate()
Dim rst As DAO.Recordset
Dim strSearchName As String
Set rst = Me.Recordset
strSearchName = CStr(Me!SupplierID)
rst.FindFirst "SupplierID = " & strSearchName
If rst.NoMatch Then
MsgBox "Record not found"
End If
rst.Close
End Sub

يساعد التعليمه البرمجيه التاليه ل# تحديد نوع مجموعه السجلات يتم ارجاعها ب# واسطه الخاصيه مجموعه السجلات ضمن حالات مختلفه.

Sub CheckRSType()
Dim rs as Object
Set rs=Forms(0).Recordset
If TypeOf rs Is DAO.Recordset Then
MsgBox "DAO Recordset"
ElseIf TypeOf rs is ADODB.Recordset Then
MsgBox "ADO Recordset"
End If
End Sub

ملاحظة: إقرار إخلاء المسؤولية للترجمة الآلية: تمت ترجمة هذه المقالة بواسطة نظام كمبيوتر دون تدخل العامل البشري. توفر Microsoft هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×