التخطي إلى المحتوى الرئيسي

Dcount في اكسس كيفية استخدام الدالة


MS Access: Dcont Function

تقوم هذة الدالة باحتساب عدد السجلات الموجودة في جدول او استعلام معين
 قد نحتاج احتساب عدد السجلات الموجودة في جدول او استعلام عندما يكون التقرير او النموذج الذي نعمل علية مستند الى جدول او استعلام اخر، مثلا  ان نقوم باحتساب عدد المنتجات الموجودة في جدول الاصناف اثناء العمل على نموذج طلبات الشراء المستند الى جدول اوامر الشراء،  ويمكن استخدام هذة الدالة في محرر فجوال بيسك (VBA) او الماكرو او في الاستعلامات او في منشئ التعبير.

الصيغة
Dcount("FieldName" , "TableName" , "creteria")

FieldName = المتغير الذي نريد عدة .
TableName=  اسم الجدول او الاستعلام 
 Criteria = الشرط او المعيار


ولا بد من الانتباه ان هذة الدالة لا تقوم باحتساب السجلات الخالية (Null) اذا تم تم تحديد المتغير الذي نريد احتسابة (FieldName ) اما اذا تم وضع علامة النجمة (*) في اسم المتغير او تم استخدام حقل المفتاح الاساسي كاسم للمتغير فانه سيتم احتساب جميع السجلات.

   اذا كان الشرط = رقم

Dcount("FieldName" , "TableName" , "n")

=Dcount("nam","table1","id= 15")

اذا كان المعيار مستمد من مربع نص في نموذج او تقرير
=Dcount("nam","table1","id= " & [box1])
اذا كان المعيار مستمد من مربع نص في نموذج او تقرير اخر  (بشرط ان يكون مفتوح)
=Dcount("nam","table1","id= " & [Forms]![Form1]![box1])


 اذا كان الشرط = نص

Dcount("FieldName" , "TableName" , "Criteria= 'string'")
 يجب مراعاة الفاصلة العلوية/ علامة الاقتباس المفردة 
اذا كان المعيار مستمد من مربع نص في نموذج او تقرير
=Dcount("[dat]","[table1]","nam ='Ali'")
Dcount("[dat]", "[table1]", "nam ='" & [box2] & "'")

اذا كان المعيار مستمد من مربع نص في نموذج او تقرير اخر (بشرط ان يكون مفتوح)
Dcount("[dat]", "[table1]", "nam ='" & [Forms]![Form1]![box2] & "'")


 اذا كان الشرط = تاريخ

Dcount("FieldName" , "TableName" , "Criteria= #date#")
يتم وضع قيمة التاريخ بين علامتي # حتى يتم تعريفه انه تاريخ


Dcount("nam", "table1", "dat= #" & [box3] & "#")













تعليقات

  1. السلام عليكم ورحمة الله وبركاته
    ما هي طريقة كتابة الدالة اذا اردنا قراءة FieldName من مربع نص موجود بالتقرير

    ردحذف
  2. استاذي القدير السلام عليكم ورحمة الله وبركاته كل عام وأنت بخير وصحة وعافية فضلاً منك كيف استطيع التواصل معك لااتعلم الاكسس وعمل اي برنامج ولو حتى تريد مقابل لذلك ولك مني الشكر والتقدير ايميلي الخاص moh801060@gmail.com

    ردحذف
  3. شكرا لك

    هل بإمكاني وضع معيار لنص بجزء منه بغض النظر عن التكملة في دالة dcount مثل
    like 'عبد' & '*'
    جربت كتابة هذا المعيار ولم أنجح

    لك جزيل الشكر

    ردحذف

إرسال تعليق

المشاركات الشائعة من هذه المدونة

انشاء الجداول في اكسس

انشاء الجداول في اكسس بعد انشاء ملف اكسس جديد فان الخطوة الاولى ستكون انشاء الجداول، ولانشاء الجداول نتبع ما يلي: 1- اختيار create  كما في الصورة 2- نقوم باختيار Table او Table Design والامر متروك للمستخدم، وانا بشكل شخصي افضل Table Design 3- بعد اختيار Table Design ستفتح لنا نافذة تصميم الجدول كما في الصورة 4- الحقل الاول Field Name يتم فية ادخال عناوين الاعمدة (الحقول) 5- الحقل الثاني Data Type يتم فية تحديد نوع المتغير (رقم ، نص ، تاريخ ...الخ) 6- الحقل الثالث Description وهو حقل اختياري ويتم فية ادخال وصف لهذا العمود 7- في كل جدول يجب تحديد المفتاح الاساسي ويجب ان يحتوي هذا الحقل على قيمة فريدة لا تتكرر مع اي حقل اخر. 8 - بعد الانتهاء نقوم باغلاق الجدول وعندها ستظهر نافذة لتحديد اسم الجدول وحفظة . 9- بعد فتح الجدول سيكون شكله كما في الصورة 10- نلاحظ ان عنوان العمود الاول ظهر كما تم كتابتة في التصميم اما العمود الثاني فقد ظهر اسمة باللغة العربية والسبب انه تم اضافة تسمية للعمود من خصائص الحقل اثناء تصميم الجدول كما في الصورة وبذلك يكو...

انشاء نموذج للدخول باسم مستخدم وكلمة مرور الى برنامج اكسس

انشاء نموذج للدخول باسم مستخدم وكلمة مرور الى برنامج اكسس عندما يكون البرنامج متاح لاكثر من شخص للعمل علية فلا بد من حماية البرنامج من المستخدمين غير المصرح لهم من خلال اضافة نموذج للدخول الى قاعدة الببيانات، ولانشاء نموذج الدخول الى البرنامج نتبع الخطوات التالية: انشاء جدول للمستخدمين يتم فيه تخزين اسماء المستخدمين وكلمات مرورهم ويحتوي على حقل لاسم المستخدم وحقل لكلمة المرور انشاء نموذج للدخول ويحتوي على مربعي نص غير مستندة الى مصدر بيانات، وزري امر واحد للالغاء والثاني للدخول  اضافة الكود التالي في حدث عند النقر في زر موافق   VBA   If pas = DLookup("userpass", "tusers", "usernam='" & [usr] & "'") Then DoCmd.OpenForm "Form1" Else MsgBox "يوجد خطأ في اسم المستخدم او كلمة المرور" End If

Combo Box & List Box القائمة المنسدلة / مربع التحرير والسرد / مربع قائمة في اكسس خطوة بخطوة

 القائمة المنسدلة /  مربع التحرير والسرد / مربع القائمة   في مايكروسوفت اكسس  Combo Box & List Box ملاحضة : ما ينطبق على القائمة المنسدلة (Combo Box) ينطبق على مربع القائمة (List Box) في هذا الموضوع القائمة المنسدلة اومربع التحرير والسرد هي احدى الكائنات التي تستخدم في نماذج الاكسس وتظهر فيها مجموعة من القيم يحددها المبرمج للتسهيل على المستخدم في عملية الاختيار او لاجبارة على مجموعة من الخيارات فقط توجد اكثر من طريقة لاضافة قائمة منسدلة الى النماذج ومنها: الطريقة الاولى: - من خلال خصائص الحقل في الجدول، فاذا تم تغيير نوع الحلقل الى Combo Box في الجدول فانه عند اضافة هذا الحقل الى النماذج  سيقوم الاكسس باضافة قائمة منسدلة الى النموذج وبشكل تلقائي ولها نفس الخصائص الموجودة في الجدول.   الطريقة الثانية :- من خلال اضافة قائمة منسدلة من خلال تصميم النموذج ،ويتم ذلك من خلال اضافة القائمة المنسدلة من القائمة Design  ومن ثم ادراج القائمة في النموذج  1- بعد ادراج القائمة المنسدلة سيفتح المعالج وذلك للتحكم بخصائص...