شرح الدالة Dfirst والدالة Dlast في برنامج ميكروسوفت أكسس Microsoft access

دالة تجميع المجال Dfirst

وظيفة الدالة Dfirst

تقوم هذه الدالة بجلب واسترجاع قيمة أول سجل فى حقل معين فى جدول أو استعلام محدد

يمكن جلب او استرجاع أو احضار قيمة  أول سجل فى حقل معين فى الجدول بشروط معينة أو بدون شروط أو معايير

صيغة الدالة Dfirst

dfirst("المعيار أو الشرط ";"اسم الجدول";";"اسم الحقل")

ملحوظة هامة
يجب عدم ترك أى مسافات بين علامتي الاقتباس واسم الحقل أو اسم الجدول او الشروط والمعايير

مثال عملي

نعرض في هذا الجدول المسمى products اسماء الأصناف products وسعر كل صنف price  وكذلك كمية كل صنف بالمخزنquantity

والان نقوم بإنشاء نموذج form في وضع التصميم Design view ونقوم بوضع مربع نص  text box في هذا النموذج ومن مصدر البيانات data source نضغط على ...لنفتح expression builder أو منشئ التعبير

ثم من الدوال functions نضغط على built-in functions  وبعد ذلك نضغط على domain aggregate أو تجميع المجال ونضغط على Dfirst فتظهر الدالة كما هو موضح

 ثم نقوم بكتابة الدالة ونلاحظ أننا نريد أن نحضر فى هذا المثال أول سجل فى حقل المنتجات products لذا نكتب الحقل الذى نبحث بداخله وهو حقل productname ثم نكتب اسم الجدول الذى به الحقل وهو جدول المنتجات products

ملاحظة هامة

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

ثم نقوم بوضع الحقل الذى نبحث عنه في هذا المثال (نريد أن يتم جلب أول صنف في جدول الأصناف) بدون أي معايير ولذا نكتب الدالة بدون معايير

فنحن نبحث عن أول صنف في جدول الأصناف

فنكتب الدالة بهذه الصيغة الموجودة بالمثال

 نلاحظ عند عرض النموذج في وضع العرض form view انه تم عرض أول صنف في  جدول الأصناف وهو هنا keyboard



دالة تجميع المجال Dlast

وظيفة الدالة Dlast

تقوم هذه الدالة بجلب واسترجاع قيمة آخر سجل فى حقل معين فى جدول أو استعلام محدد

يمكن جلب او استرجاع أو احضار قيمة  آخر سجل فى حقل معين فى الجدول بشروط معينة أو بدون شروط أو معايير

صيغة الدالة Dfirst

dlast("المعيار أو الشرط ";"اسم الجدول";";"اسم الحقل")

مثال عملى 

 عند الرغبة في عرض أخر صنف في جدول الأصناف نستخدم دالة dlast بنفس الطريقة التي تم استخدام دالة dfirst  بها حيث نكتب اسم المنتج productname وفى المجال أو dmain نكتب جدول المنتجات products

 نلاحظ انه تم عرض اسم اخر صنف في حقل أسماء الأصناف في جدول الأصناف كما هو موضح بالمثال

 نريد الان أنه عند اختيار اسم صنف معين يظهر سعره في مربع النص السعر ..فكيف يتم ذلك

أولاً: نقوم بتسمية القائمة التي تحتوى على أسماء الأصناف وذلك باختيارها ثم من other نختر من name  الاسم المناسب لها وليكن cboname كما هو موضح بالشكل

 ثم نختر الاسم المناسب لمربع النص  السعر وليكن txtprice

الان نريد أنه عند اختيار اسم صنف معين يتم تلقائيا ظهور السعر الخاص به في خانة السعر فنختر الصنف ومن الاحداث نختر after update ثم نضع على 000 ثم نختر code builder لفتح صفحة vba لكتابة الكود الخاص

الان نكتب هذا الكود وهو

Me تعود للنموذج الذى نقف عليه

Txtprice اسم مربع النص الموجود في النموذج

ثم نكتب الدالة dfirst ويكون المعيار ان رقم المنتج pid في جدول الأصناف products=اسم المنتج في النموذج واسم النموذج الذى نعمل عليه frmproducts

ومعنى الكود ان مربع السعر في النموذج يساوي دالة dfirst والتي تبحث عن السعر في جدول الأسعار بشرط أن يكون رقم المنتج في الجدول يساوى اسم المنتج في النموذج

نلاحظ هنا انه عند اختيار صنف معين من الأصناف يظهر تلقائيا السعر الخاص به في النموذج كما هو موضح.

يمكن استخدام الدالة dlast بنفس المعيار والأسلوب الذى تم كتابة الدالة dfirst  به

نلاحظ انه عند اختيار أي صنف من الأصناف يتم ظهور السعر الخاص به تلقائيا في النموذج

وضع علامة مائية water mark في برنامج الوورد Microsoft word

 ماهى العلامة المائية water mark

العلامة المائية هى عبارة عن نص أو صور توضع فى خلفية المستند لغرض معين (قد يكون الغرض اثبات ملكية المستند- أو تأمين المستند من النسخ والتصويرأو لأغراض أخرى

أنواع العلامات المائية

يمكن تقسيم العلامات المائية إلى صورة أو نص أو علامات مائية مخصصة وعلامات مائية جاهزة  

لإنشاء علامة مائية water mark اذهب إلى التبويب  design أو تصميم ومنه اختر علامة مائية واضغط على الأيقونة فتظهر قائمة بها العديد من النماذج الجاهزة للعلامات المائية كما هو موضح بالشكل

وعند الرغبة في إضافة علامة مائية من القوالب الجاهز الموجودة بالقائمة الظاهرة ما عليك سوى الضغط بالماوس ضغطة واحدة على العلامة المائية التي تريدها فتظهر بالصفحة أمامك

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

العلامة المائية صورة

وإذا أردت أن تكون العلامة المائية صورة قم بالضغط على صورة العلامة المائية ثم اضغط على تحديد صورة وهنا امامك اختياران إما صورة من على الانترنت إذا كان جهازك متصل بالانترنت أو صورة من على جهاز الكمبيوتر الخاص بك فاختر الصورة من المكان الذى تريده

في هذا المثال نريد ادراج صورة من جهاز الكمبيوتر فنضغط على الصورة المراد إدراجها كعلامة مائية ثم نضغط على ادراج

شكل الصورة فى صورة الوورد بعد أن تم وضعها كعلامة مائية

العلامة المائية نص

أما إذا أردنا أن تكون العلامة المائية نص فيمكن ذلك باختيار نص العلامة المائية ثم نختر اللغة التي نريد أن يكون بها النص ومن النص يمكن اختيار أحد النصوص الموجودة في القائمة المنسدلة ومن الخط نختر نوع الخط ومن الحجم نختر حجم العلامة المائية ومن اللون نختر اللون المناسب ثم يمكن إزالة الخيار شبه شفاف لو أردنا ذلك ومن التخطيط نختر شكل النص سواء افقي أو قطري ثم نضغط تطبيق

ويمكن كتابة النص الذى نريده بدلا من اختيار أحد النصوص الموجودة بالقائمة المنسدلة فنكتب هنا مثلا مدرسة الويب لوضعها كعلامة مائية ثم نزيل الخيار الموجود أمام شبه شفاف ثم نضغط تطبيق

نلاحظ أنه تم وضع كلمة مدرسة الويب كعلامة مائية باللون والخط والتنسيق الذى تم اختياره من الخيارات السابقة

شكل العلامة المائية وهى اسفل النص وهو الشكل الذى ستظهر عليه العلامة المائية بعد كتابة النص في الصفحة  

 إزالة العلامة المائية

عند الرغبة في إزالة العلامة المائية من المستند اضغط من التبويب تصميم أو design – إذا كانت نسخة الأوفيس عندك واجهة انجليزية- ثم من علامة مائية اضغط على إزالة العلامة المائية 

الحلقة التكرارية do while والحلقة التكرارية do until وحل حسبة برما باستخدام VBA access

الحلقة التكرارية Do..While

بناء الحلقة

Do While condition
   [statement 1]
   [statement 2]
   ...
Loop    

وهذه الحركة معناها ..قم بالدوران طالما الشرط محقق 

مثال على الحركة التكرارية do while 
في هذا المثال نقول له قم بالدوران طالما ان المتغير X أقل من أو يساوي 10

Dim x, i As Integer

i = 0

x = 0

Do While x <= 10

i = i + x

x = x + 1

Loop

MsgBox "sum of numbers is " & i

الحركة التكرارية do until ...loop

والمعنى قم بتنفيذ هذه الحركة التكرارية حتى تحقق الشرط 

بناء الحلقة

Do Until condition
   [statement 1]
   [statement 2]
   ...
  
Loop 

ماهى حسبة برما

 برما هى عبارة عن قرية تتبع محافظة الغربية 
وجاءت حسبة برما حين اصطدم أحد الأشخاص بسيدة كانت تحمل سلة بها مجموعة من البيض فتحطم البيض بأكمله فأراد الشخص تعويضها عما فقدته من البيض وقال لها:
– كم بيضه كانت بالقفص؟
– فقالت: لو أحصيت البيض بالثلاثة تبقى بيضة، ولو بالأربعة تبقى بيضة، ولو بالخمسة تبقى بيضة، ولو بالستة تبقى بيضة، ولو احصيته بالسبعة فلا يبقى شيئا.


والأن نريد أن نقوم بحل هذه المسألة من خلال الحركة التكرارية do until

Dim x, i As Integer

x = 7

Do Until (x Mod 2 = 1) And (x Mod 3 = 1) And (x Mod 4 = 1) And (x Mod 5 = 1) And (x Mod 6 = 1) And (x Mod 7 = 0)

x = x + 1

Loop

MsgBox "the true number of berma is " & x

ملحوظة 

Mod  يعنى باقى القسمة

أعطينا المتغير X القيمة الابتدائية 7 على افتراض أنه أقل عدد للبيض يمكن ان نبدأ به ولا يوجد أى مانع إذا اعطينا المتغير X قيمة ابتدائية 1 أو 0 .

إدراج الحواشي السفلية insert foote note فى برنامج الوورد Microsoft word وطرق تنسيقها

ماهي الحواشي السفلية

الحواشي السفلية عبارة عن ملاحظة توضع في الهامش السفلي للصفحة وتُستخدم للعديد من الأغراض مثل (الاستشهاد،التفسير، الإشارة إلى المراجع، التعليق/التعقيب على جزء معيّن من النص).

ادراج الحواشي السفلية insert footenote في برنامج الوورد Microsoft word

لإدراج حاشية سفلية نقف فى نهاية الجملة أوالفقرة التي نريد وضع حاشية سفلية لها ثم ننتقل إلي التبويب Reference أو مراجع ونضغط على الأمر insert footnote

نلاحظ أنه تم إدراج حاشية سفلية وتم عمل ترقيم تلقائي لها وأخذت الرقم 1

 وتم  وضع خط كما هو موضح ونقوم بكتابة مرجع او تفسير للفقرة

خصائص الحواشي السفلية وتنسيقاتها

وللوصول إلى خصائص الحواشي السفلية  وتنسيقاتها المختلفة نضغط بالسهم على السهم الصغير الموجود أسفل مجموعة الحواشي السفلية فى التبويب Reference كما هو موضح بالمثال حيث تظهر نافذة بها خصائص الحواشي السفلية

ويمكن وضع الحواشي السفلية اسفل النص وليس أسفل الصفحة وذلك باختيار below text  كما هو موضح بالمثال

كما يمكن عمل ترقيم الحواشي السفلية بحيث يبدا من جديد مع كل صفحة  وذلك باختيار restart each page

وضع الحواشي السفلية بين قوسين

لا توجد طريقة رسمية من قبل برنامج الوورد Microsoft word لوضع ترقيم الحواشي السفلية بين قوسين لذا توجد عدة طرق يمكن بها الوصول إلى هذا الغرض نذكر منها هذه الطرق

الطريقة الأولى

باستخدام خيارات التصحيح التلقائي 

وعند الرغبة في وضع الحواشي السفلية بين قوسين نضع قوسين بين ترقيم الحاشية  ثم نحدد القوسين كما هو موضح بالمثال ومن التبويب home نضغط على رمز الكتابة العلوية super script

كما نقوم بوضع قوسين ايضا بين ارقام الحواشي السفلية فى اسفل الصفحة كما هو موضح نحددهم كما عملنا من قبل ونضغ على رمز الكتابة العلوية super script

  ثم من التبويب file   نضغط على خصائص properties ثم نختر proofing او تدقيق ثم نضغط على   auto correct options بحيث نقوم باختيار حرف معين أورمز معين عند الضغط عليه يتم عمل الأقواس تلقائيا للحواشي السفلية

نقوم بوضع حرفين غير مستخدمين وليكن حح مثلا عند كتابتهم يتم ادراج الحواشي السفلية بالاقواس تلقائيا 

نقف فى  نهاية اى جملة او فقرة نريد وضع حاشية سفلية لها ونكتب الحرفين حح فنلاحظ انه تم عمل حاشية سفلية بالاقواس كما هو موضح بالمثال
ملاحظة: 
يعيب هذه الطريقة أنه لابد من أخذ مسافة عند الرغبة فى كتابة حرفي حح حتى يتم تحويلها باستخدام خيارات التصحيح التلقائي إلى حاشية سفلية وبعد ذلك يمكن حذف المسافة .

الطريقة الثانية
باستخدام البحث والاستبدال نبحث عن الرمز f^ وهو يمثل الحواشي السفلية ونستبدله بالرمز (&^) ثم نضغط على استبدال الكل فيتم استبدال كل الحواشي السفلية التى بدون أقواس إلى حواشي سفلية بأقواس
وننتقل إلى المثال العملي للتوضيح أكثر
كما يوجد طريقة اخرى لعمل الأقواس للحواشي السفلية وهو من التبويب Home   نضغط على الأمر replace ونختر Advanced replace  او  نضغط على لوحة المفاتيح  ctrl+H ثم نبحث عن foot note وذلك بكتابة الرمز الخاص بها ^f ولاستبدالها بالحواشي  السفلية بالاقواس نكتب فى الاستبدال (&^)

ثم نضغط على  replace all لاستبدال كل الحواشي السفلية التى ليس لها قوس بالحواشي السفلية بالاقواس

نلاحظ انه تم تغيير كل الحواشي السفلية الموجود بالنص إلى حواشي سفلية بالاقواس

الطريقة الثالثة
باستخدام الماكرو ونقوم بتسجيل خطوات عمل حواشي سفلية بالأقواس بالماكرو

كما يمكن ادراج الحواشي السفلية بالأقواس باستخدام الماكرو وذلك بالوقوف على التبويب macro  ثم نضغط على record macro

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

 ثم نقوم بكل خطوات انشاء الحواشي السفلية من انشاء الأقواس وتنسيقها باستخدام الخط العلوي فوق النص

ونقوم بادراج الحواشي السفلية من خلال الامر inset foot note

 ثم نختر  stop recordingلايقاف تسجيل الماكرو وعند الرغبة بعد ذلك في ادراج حاشية سفلية بالاقواس نقوم بتشغيل الماكرو بلوحة المفاتيح او من خلال الامر view macro  واختيار الماكرو المراد تشغيله