كيف يمكن معرفة عدد السجلات ب ADO

تفضل أخي الكريم

Dim Rec As New ADODB.Recordset

Dim sql As String

sql = "select * from tbl1 "

Rec.Open sq, CurrentProject.Connection, adOpenKeyset, adLockReadOnly

MsgBox Rec.RecordCount

Set Rec = Nothing

مشكور أخوي أحمد الحربي على الكود .

وعساك ما نسيت الوعد .

وإذا ناسي شوف ها الموضوع وتبي تذكر الوعد وتعرف سر القربة .

http://www.arabteam2000.com/vb/showthread....s=&threadid=752

مع تحيات أخوك عبدالله سليمان ( الغريب سابقاً ) .

الله الله الله .. أخوي الغريب

والله لو ما شفت الموضوع ما تذكرت

فعلاً أنا وعدتك .. لكني والله تركت العمل في البرنامج منذ ذلك اليوم .. لأنه أعجزني .. والإخوة الذين كانوا يريدونه رغبوا عنه .. ولا أدري هل هو في الجهاز أم لا ..

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

وأما الآن فإني مشغول ببرنامجين لإحدى الدوائر الحكومية أحدهما قارب على الانتهاء والآخر كنت عملته وأرادوا إضافة أشياء أخرى ..

لذا .. اعذرني الآن .. وإن شاء الله حالما أنتهي منهما سأعطيك خبراً لنبدأ بالبرنامج

تحياتي لك أيها الصديق القديم

مشكور أخوي أحمد على التجاوب ، وما شاء عليك صرت خبير .

وعندما أبدء في إكمال البرنامج الذي سبق لي أن بدأت به حول تقسيط السيارات ، ربما أقوم بإرسال نسخة لك لتقوم بإبداء رأيك بها ، وعند إكتمالها سنقوم بطرحها بالمنتدى عرفاناً بالجميل لكن لا أتوقع أن يكون ذلك قريباً لإرتباطاتي العملية والدراسية وقلة دخولي على الأنترنت واستخدام الاكسس في البرمجة .

مرة أخرى اشكرك واتمنى لك مزيداً من الخبرة والتوفيق .