وظيفة RecordsetClone و vbCrLf

[بو يوسف الراشد]

السلام عليكم ،،

سأرسرد لكم هذا الكود لتوضحو لي شيئا منه:

If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "لايوجد شرح حسب بحثك.", vbOKOnly, "تنبيه"
Me.FilterOn = False
Me!زر_البحث.Caption = "البحث عن شرح"
Else
نتيجة.Visible = True
Me.RecordsetClone.MoveLast
نتيجة.Caption = "عدد الشروحات حسب البحث :" & vbCrLf _
& Me.RecordsetClone.RecordCount
End If

ما هي وظيفة RecordsetClone في هذا الكود ؟

وماذا تعني كلمة vbCrLf ؟

وشكرا جزيلا لكم....

[egyptian_eg]

RecordsetClone

تعبر عن مجموعة السجلات التي تظهر حاليا فى نموذج

فلو قلنا

me.recordsetclone.recordcount

فهذا يعني عدد السجلات الموجود فى النموذج حاليا

و بالنسبة ل vbCrLf فهي لادراج سطر جديد فى الرسالة ( من أول السطر يعني )

[بو يوسف الراشد]

جزاك الله ألف خير....