alcasir قام بنشر مارس 19, 2017 قام بنشر مارس 19, 2017 السلام عليكم ورحمة الله وبركاته,, سؤالي باختصار توجد قاعدة بيانات باسم project موجود على هذا المسار D:\backup\project.accdb يوجد بهذا المشروع جدول باسم projectFiles ويحتوي على الحقول التاليه ID Namme Datte ارغب في استخدم الداله dcount لمعرفة عدد السجلات الموجوده بهذا الجدول. طبعا الكود سيتم تشغيله من قاعدة بيانات اخرى كيف يمكن كتابة الكود بالشكل الصحيح ولكم جزيل الشكر طبعا السؤال واضح اتوقع وما يحتاج الى مرفق
ابوخليل قام بنشر مارس 19, 2017 قام بنشر مارس 19, 2017 تفضل Dim rs As Recordset Dim db As Database Set db = OpenDatabase("D:\backup\project.accdb") Set rs = db.OpenRecordset("projectFiles", dbOpenDynaset) rs.MoveFirst rs.MoveLast Rcont = rs.RecordCount Set rs = Nothing Set db = Nothing باعتبار Rcont هو متغير رقمي / أو اسم حقل في النموذج 1
alcasir قام بنشر مارس 19, 2017 الكاتب قام بنشر مارس 19, 2017 بارك الله فيك استاذي الكريم / نعم هو عين المطلوب ولكني استبدلت العباره Dim db As Database بالعباره Dim db As DAO.Database لان ظهرت لي خطا compile error والكود يعمل بنجاح اكرر شكري
رمهان قام بنشر مارس 19, 2017 قام بنشر مارس 19, 2017 اخي كاسر اولا وقبل المشاركة مع اخي الفاضل ابو خليل العنوان يطلب بحث عن قيمه .. والمحتوى يطلب عد سجلات !! فايهما المطلوب ؟
alcasir قام بنشر مارس 19, 2017 الكاتب قام بنشر مارس 19, 2017 (معدل) اشكرك على المرور اخي رمهان كنت اقصد معرفة عدد السجلات في ذلك الجدول. ممكن تعديل عنوان الموضوع! تم تعديل مارس 19, 2017 بواسطه alcasir
رمهان قام بنشر مارس 19, 2017 قام بنشر مارس 19, 2017 (معدل) جرب MsgBox (CurrentDb.OpenRecordset("select count(*) from projectFiles in 'D:\backup\project.accdb'")(0)) بالتوفيق تم تعديل مارس 19, 2017 بواسطه رمهان
alcasir قام بنشر مارس 19, 2017 الكاتب قام بنشر مارس 19, 2017 كود رائع ومختصر جدا هل يفرق هذا الكود بالكود الذي تفضل به الاستاذ ابو خليل ؟
رمهان قام بنشر مارس 19, 2017 قام بنشر مارس 19, 2017 1 دقيقه مضت, alcasir said: كود رائع ومختصر جدا هل يفرق هذا الكود بالكود الذي تفضل به الاستاذ ابو خليل ؟ الله اعلم ... الاجابه لدى الاكسس هذا من وجهة نظري او يجي الاستاذ جعفر ويسوي اختبار بالاف السجلات عالعموم شوف اللي يناسبك والطرق كثيره وهذا من حظك بالتوفيق 1
alcasir قام بنشر مارس 19, 2017 الكاتب قام بنشر مارس 19, 2017 اطمع بعمل اخرى لو سمحت ارغب بكود ايضا يحذف لي جميع السجلات الموجوده بالجدول projectFiles مع خالص شكري
رمهان قام بنشر مارس 19, 2017 قام بنشر مارس 19, 2017 7 دقائق مضت, alcasir said: ارغب بكود ايضا يحذف لي جميع السجلات الموجوده بالجدول projectFiles بالتوفيق
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.