معرفة عدد السجلات في جدول ما ؟

بدأه kafi في 12 سبتمبر 2012 · 4 رد · 1,736 مشاهدة · في قواعد بيانات Microsoft Access

#112 سبتمبر 2012 في 20:02 صاحب الموضوع

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

لدي جدول اسمه Beda ارغب بمعرفة عدد السجلات داخله برمجيا

قمت باستخدام الكود التالي

Dim i, x As Integer
Dim R As Recordset

Set R = CurrentDb.OpenRecordset("select * from Beda;")

 x = R.RecordCount
 MsgBox (x)
 R.Close

ولكن النتيجة كانت خاطئة....

حيث اعطى قيمة 1 ولكن القيمة الصحيحة هي 6

- قمت باستخدام اسلوب اخر

Dim sCount As Integer
Dim R As Recordset

sCount = DCount("[Beda-id]", "Beda")

 MsgBox (sCount)

كانت النتيجة صحيحة

سؤالي :

اين الخطأ في استخدام التعليمة recordcount

ارجو تعديل المثال المرفق بحيث يتم اصلاح الكود المتعلق ب recordcount

والف شكر

Q96.rar

تم تعديل هذه المشاركة بواسطة kafi في 12 سبتمبر 2012 في 20:04

#212 سبتمبر 2012 في 20:12

وعليكم والسلام ورحمة الله و بركاته

جرب كود التالي

MsgBox DCount("*", "Beda")

#312 سبتمبر 2012 في 20:42

شكرا اخي ابو شفيق على اجابتك

بالنسبة الى الحل فقد وجدته، وذكرته كما ترى بمثالي المرفق Dcount

ولكنني استغرب بشدة لماذا لم تعمل التعليمة RecordCount

وابحث عن تفسير لعدم عمل تلك التعليمة

وشكرا

#413 سبتمبر 2012 في 02:39

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

بالنسبة للخاصية RecordCount اذا كانت داخل مجموعة السجلات Recordset ولم يتم اضافة اي معاملات لمجموعة السجلات قبلها مثل MoveFirst او MoveLast فإنها ترجع فقط القيمة 1 اذا كان الجدول يحتوي على سجلات وترجع القيمة 0 اذا كان الجدول فارغ من السجلات .

ولهذا فإن خاصية RecordCount ليست لإظهار مجموع عدد السجلات في الجدول ولكنها تظهر فقط رقم السجل

اذن سيكون الكود الخاص بك بعد التعديل بعد اضافة MoveLast قبل الخاصية RecordCount بهذه الطريقة

Private Sub Command245_Click()
Dim  x As Integer
Dim R As Recordset

Set R = CurrentDb.OpenRecordset("select * from Beda;")
 R.MoveLast
 x = R.RecordCount
 MsgBox (x)
 R.Close

End Sub

لاحظ معي في الكود اننا اضفنا R.MoveLast لكي تظهر لنا الخاصية RecordCount أخر سجل في مجموعة السجلات