البحث عن قيمة محدده من قاعدة بيانات اخرى باستخدام دوال الاكسس

[alcasir]

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

سؤالي باختصار توجد قاعدة بيانات باسم project موجود على هذا المسار

D:\backup\project.accdb

يوجد بهذا المشروع جدول باسم projectFiles ويحتوي على  الحقول التاليه

ID

Namme

Datte

 

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

طبعا الكود سيتم تشغيله من قاعدة بيانات اخرى

 

كيف يمكن كتابة الكود بالشكل الصحيح

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

طبعا السؤال واضح اتوقع وما يحتاج الى مرفق

[ابوخليل]

تفضل 

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  هو متغير رقمي / أو اسم حقل في النموذج

[alcasir]

بارك الله فيك استاذي الكريم / نعم هو عين المطلوب 

ولكني استبدلت العباره 

Dim db As Database

بالعباره 

Dim db As DAO.Database

لان ظهرت لي خطا compile error

والكود يعمل بنجاح

اكرر شكري

[رمهان]

اخي كاسر

اولا وقبل المشاركة مع اخي الفاضل ابو خليل العنوان يطلب بحث عن قيمه .. والمحتوى يطلب عد سجلات !!

فايهما المطلوب ؟

[alcasir]

اشكرك على المرور اخي رمهان

كنت اقصد معرفة عدد السجلات في ذلك الجدول.

ممكن تعديل عنوان الموضوع!

تم تعديل مارس 19, 2017 بواسطه alcasir

[رمهان]

جرب

MsgBox (CurrentDb.OpenRecordset("select count(*) from projectFiles in 'D:\backup\project.accdb'")(0))

بالتوفيق

تم تعديل مارس 19, 2017 بواسطه رمهان

[alcasir]

كود رائع ومختصر جدا

هل يفرق هذا الكود بالكود الذي تفضل به الاستاذ ابو خليل ؟

 

[رمهان]

1 دقيقه مضت, alcasir said:

كود رائع ومختصر جدا

هل يفرق هذا الكود بالكود الذي تفضل به الاستاذ ابو خليل ؟

 

الله اعلم ... الاجابه لدى الاكسس هذا من وجهة نظري

او يجي الاستاذ جعفر ويسوي اختبار بالاف السجلات 

عالعموم شوف اللي يناسبك والطرق كثيره وهذا من حظك

بالتوفيق

[alcasir]

اطمع بعمل اخرى لو سمحت

ارغب بكود ايضا يحذف لي جميع السجلات الموجوده بالجدول projectFiles

مع خالص شكري

 

[رمهان]

7 دقائق مضت, alcasir said:

ارغب بكود ايضا يحذف لي جميع السجلات الموجوده بالجدول projectFiles

بالتوفيق

[alcasir]

ممتاز

بارك الله فيكم جميعا