أبو امين

المثال : البحث بجزء من الكلمة.accdb

شكرا على مرورك استاذي الكريم : تحياتي القلبية

السلام عليكم و رحمة الله و بركاته : اسات\تي الكرام : قاعدة بيانات بها : 6 جداول : 01/ جدول معطيات التلاميذ : Tb_donnéesEleve 02 / جدول الشهائد الطبية : Tb_CertfMedcl 03 / جدول الاساتذة : Tb_Enseignant 04 / جدول المواد : Tb_Matiere 05/ جدول المؤسسة التربوية : Tb_Etablissement 06/ جدول الاقسام : Tb_class كل هذة الجداول في علاقة ببعضها من خلال جدول : تبرير الغيابات : Tb_JustificationAbcence الان : ماذا اريد من ذلك كله ؟ مثلا عندما يتغيب التلميذ مثلا : فلان الفلاني عن اجراء فرض يقدم الى الادارة شهادة طبية تغطي مدة الغياب يقوم العون المكلف بتسجيل هذه الشهادة بجدول : Tb_CertfMedcl عن طريق نموذج تسجيل الشهائد الطبية ثم يقوم بتسجيل تبرير الغياب بجدول : Tb_JustificationAbcence عن طريق نموذج اخر ثم يقوم بطباعة وثيقة تبرير الغياب المشكل : انني قمت بربط الجداول لكن محاولاتي لتجميعها بنموذج واحد بائت بالفشل ربما في عملية الربط خطئ ما . اساتذتي الكرام هل بالامكان مساعدتي في انشاء هذا النموذج لقد قمت بارفاق مثال يحتوي على المطلوب شكرا لكم على رحابت صدوركم و جعل الله اعمالكم في ميزان حسناتكم اخوكم عمار الدربالي "يوما ما ستدرك ان اقسى ما مررت به ، كان خيرا عظيما انق\ك ليجعلك اقوى مما كنت عليه " المثال المرفق.rar

الدالة MsgBox Access لـ Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013 المزيد... في قاعدة بيانات Access لسطح المكتب، تعرض الدالة MsgBox رسالة في مربع حوار، وتنتظر أن ينقر المستخدم فوق زر، ثم ترجع عدد صحيح يشير إلى الزر الذي قام المستخدم بالنقر فوقه. بناء الجملة MsgBox ( مطالبة [، أزرار ] [ ،عنوان ] [، ملف تعليمات ] [، سياق ] ) بناء جملة الدالة MsgBox على هذه الوسيطات: الوسيطة الوصف مطالبة مطلوبة. يتم عرض تعبير السلسلة كرسالة في مربع الحوار. يبلغ الحد الأقصى لطول المطالبة 1024 حرفا تقريبا، استنادا إلى عرض الأحرف المستخدمة. إذا كانت المطالبة تتألف من أكثر من سطر واحد، يمكنك فصل الأسطر باستخدام حرف الرجوع إلى السطر (Chr(13) )أو حرف صفيف السطر (Chr(10 ))أو إرجاع السطر – مجموعة أحرف سطرية (Chr(13) & Chr(10)) بين كل سطر. الأزرار اختياري. تعبير رقمي هذا هو مجموع القيم التي تحدد عدد الأزرار التي تريد عرضها ونوعها ونمط الأيقونة الذي يجب استخدامه وهوية الزر الافتراضي ونمط مربع الرسالة. إذا تم حذفها، تكون القيمة الافتراضية للأزرار 0. العنوان اختياري. تعبير سلسلة معروض في شريط عنوان مربع الحوار. إذا حذفت العنوان،يتم وضع اسم التطبيق في شريط العنوان. helpfile اختياري. تعبير سلسلة يحدد ملف "تعليمات" لاستخدامه لتوفير تعليمات تتحسس السياق لمربع الحوار. إذا تم توفير ملف تعليمات، فيجب أيضا توفير السياق. سياق اختياري. تعبير رقمي هو رقم سياق "تعليمات" المعين إلى موضوع "تعليمات" المناسب من قبل كاتب "تعليمات". إذا تم توفير السياق، فيجب أيضا توفير ملف تعليمات. الإعدادات الأزرار وسيطة الإعدادات هي: ثابت القيمة الوصف vbOKOnly 0 الزر "عرض موافق" فقط. vbOKCancel 1 عرض الزرين "موافق"و"إلغاء الأمر". vbAbortRetryIgnore 2 أزرار "إيقاف العرض"و"إعادة المحاولة"و"تجاهل". vbYesNoCancel 3 أزرار "نعم" و"لا"و"إلغاء الأمر". vbYesNo 4 عرض الزرين "نعم"و"لا". vbRetryCancel 5 الزران "إعادة المحاولة" و"إلغاء الأمر". vbCritical 16 عرض أيقونة الرسالة الهامة. vbQuestion 32 أيقونة "عرض استعلام التحذير". vbExclamation 48 أيقونة "عرض رسالة تحذير". vbInformation 64 أيقونة "عرض رسالة المعلومات". vbDefaultButton1 0 الزر الأول افتراضي. vbDefaultButton2 256 الزر الثاني افتراضي. vbDefaultButton3 512 الزر الثالث افتراضي. vbDefaultButton4 768 الزر الرابع افتراضي. vbApplicationModal 0 مشروط التطبيق؛ يجب على المستخدم الرد على مربع الرسالة قبل متابعة العمل في التطبيق الحالي. vbSystemModal 4096 نظام مشروط؛ يتم إيقاف جميع التطبيقات مؤقتا حتى يستجيب المستخدم لمربع الرسالة. vbMsgBoxHelpButton 16384 الزر "إضافة تعليمات" إلى مربع الرسالة VbMsgBoxSetForeground 65536 تحديد نافذة مربع الرسالة كنافذة أمامية vbMsgBoxRight 524288 محاذاة النص لليمين vbMsgBoxRtlReading 1048576 تحديد النص يجب أن يظهر كقراءة من اليمين إلى اليسار على الأنظمة العبرية والعربية تلميح: في Access 2010، يكون "منشئ التعبير" لديه IntelliSense، حيث يمكنك معرفة الوسيطات التي يتطلبها التعبير. تصف المجموعة الأولى من القيم (0–5) عدد الأزرار المعروضة في مربع الحوار ونوعها؛ تصف المجموعة الثانية (16، 32، 48، 64) نمط الأيقونة؛ تحدد المجموعة الثالثة (0، 256، 512) الزر الافتراضي؛ والمجموعة الرابعة (0، 4096) تحدد طرة مربع الرسالة. عند إضافة أرقام لإنشاء قيمة نهائية ل وسيطة الأزرار، استخدم رقما واحدا فقط من كل مجموعة. ملاحظة: يتم تحديد هذه الثوابت بواسطة Visual Basic for Applications. ونتيجة لذلك، يمكن استخدام الأسماء في أي مكان في التعليمات البرمجية الخاصة بك مكان القيم الفعلية. إرجاع القيم ثابت القيمة الوصف vbOK 1 موافق vbCancel 2 إلغاء vbAbort 3 اجهاض vbRetry 4 إعادة المحاولة vbIgnore 5 IGNORE vbYes 6 نعم vbNo 7 لا ملاحظات عند توفير كل من ملف تعليمات وسياق، يمكن للمستخدم الضغط على F1 (Windows) أو HELP (Macintosh) لعرض موضوع "تعليمات" المطابق للسياب. تقوم بعض التطبيقات المضيفة، على سبيل المثال، Microsoft Excel، أيضا بإضافة زر تعليمات تلقائيا إلى مربع الحوار. إذا كان مربع الحوار يعرض الزر "إلغاء الأمر"، فإن الضغط على المفتاح ESC له نفس التأثير كالنقر فوق "إلغاء الأمر". إذا كان مربع الحوار يحتوي على زر تعليمات، يتم توفير تعليمات تتحسس السياق لمربع الحوار. ومع ذلك، لا يتم إرجاع أي قيمة حتى يتم النقر فوق أحد الأزرار الأخرى. ملاحظة: لتحديد أكثر من الوسيطة المسماة الأولى، يجب استخدام MsgBox في تعبير. لحذف بعض الوسيطات الموضعية، يجب تضمين تحديد الفاصلة المطابق. مثال ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية في Visual Basic for Applications (VBA). يستخدم هذا المثال الدالة MsgBox لعرض رسالة خطأ هامة في مربع حوار يحتوي على الزرين "نعم" و"لا". يتم تحديد الزر "لا" كالاستجابة الافتراضية. تعتمد القيمة التي يتم إرجاعها بواسطة الدالة MsgBox على الزر الذي اختاره المستخدم. يفترض هذا المثال أن DEMO.HLP هو ملف تعليمات يحتوي على موضوع مع رقم سياق تعليمات يساوي 1000. Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "Do you want to continue?" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "MsgBox Demonstration" Help = "DEMO.HLP" Ctxt = 1000 Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then ' User chose Yes. MyString = "Yes" ' Perform some action. Else ' User chose No. MyString = "No" ' Perform some action. End If الدالة InputBox Access لـ Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013 المزيد... يعرض مطالبة في مربع حوار، وينتظر حتى يقوم المستخدم بإدخال نص أو النقر فوق زر، وترجع سلسلة تحتوي على محتويات مربع النص. بناء الجملة InputBox ( مطالبة [ ,عنوان ] [ ,افتراضي ] [, xpos ] [, ypos ] [, helpfile ] [ ,context ] ) بناء جملة الدالة InputBox على هذه الوسيطات: الوسيطة الوصف مطالبة مطلوبة. يتم عرض تعبير السلسلة كرسالة في مربع الحوار. يبلغ الحد الأقصى لطول المطالبة 1024 حرفا تقريبا، استنادا إلى عرض الأحرف المستخدمة. إذا كانت المطالبة تتألف من أكثر من سطر واحد، يمكنك فصل الأسطر باستخدام حرف الرجوع إلى السطر (Chr(13) )أو حرف صفيف السطر (Chr(10 ))أو مجموعة أحرف الرجوع إلى السطر (Chr(13) & Chr(10)) بين كل سطر. العنوان اختياري. تعبير سلسلة معروض في شريط عنوان مربع الحوار. إذا حذفت العنوان،يتم وضع اسم التطبيق في شريط العنوان. افتراضي اختياري. يتم عرض تعبير السلسلة في مربع النص كالاستجابة الافتراضية إذا لم يتم توفير أي إدخال آخر. إذا حذفت الخيار الافتراضي،فيعرض مربع النص فارغا. xpos اختياري. تعبير رقمي يحدد، في حالة تويب، المسافة الأفقية من الحافة اليمنى لمربع الحوار من الحافة اليمنى للشاشة. إذا تم حذف xpos، يتم توسيط مربع الحوار أفقيا. ypos اختياري. تعبير رقمي يحدد، بالويب، المسافة العمودية الحافة العلوية لمربع الحوار من أعلى الشاشة. إذا تم حذف ypos، يتم وضع مربع الحوار عموديا على شكل ثلث المسافة تقريبا أسفل الشاشة. helpfile اختياري. تعبير سلسلة يحدد ملف "تعليمات" لاستخدامه لتوفير تعليمات تتحسس السياق لمربع الحوار. إذا تم توفير ملف تعليمات، فيجب أيضا توفير السياق. سياق اختياري. تعبير رقمي هو رقم سياق "تعليمات" المعين إلى موضوع "تعليمات" المناسب من قبل كاتب "تعليمات". إذا تم توفير السياق، فيجب أيضا توفير ملف تعليمات. ملاحظات عند توفير كل من ملف تعليمات وسياق، يمكن للمستخدم الضغط على F1 (Windows) أو HELP (Macintosh) لعرض موضوع "تعليمات" المطابق للسياب. تقوم تطبيق مضيف ، على سبيل Microsoft Office Excel 2007 ، بإضافة زر تعليمات إلى مربع الحوار تلقائيا. إذا قام المستخدم بالنقر فوق موافق أو الضغط على ENTER، ترجع الدالة InputBox كل ما هو في مربع النص. إذا نقر المستخدم فوق "إلغاءالأمر"، ترجع الدالة سلسلة ذات طول صفري (""). ملاحظة: لتحديد أكثر من الوسيطة المسماة الأولى، يجب استخدام InputBox في تعبير. لحذف بعض الوسيطات الموضعية، يجب تضمين تحديد الفاصلة المطابق. مثال ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية في Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد "مرجع المطور" في القائمة المنسدل إلى جانب "البحث" وأدخل مصطلحا واحدا أو أكثر في مربع البحث. يوضح هذا المثال طرقا متنوعة لاستخدام الدالة InputBox لمطالبة المستخدم بإدخال قيمة. إذا تم حذف الموضعين س وy، يتم توسط مربع الحوار تلقائيا للمحاور الخاصة بها. يحتوي MyValue المتغير على القيمة التي أدخلها المستخدم إذا قام المستخدم بالنقر فوق موافق أو الضغط على المفتاح ENTER. إذا نقر المستخدم فوق "إلغاءالأمر"، يتم إرجاع سلسلة ذات طول صفري. Dim Message, Title, Default, MyValue Message = "Enter a value between 1 and 3" ' Set prompt. Title = "InputBox Demo" ' Set title. Default = "1" ' Set default. ' Display message, title, and default value. MyValue = InputBox(Message, Title, Default) ' Use Helpfile and context. ' The Help button is added automatically. MyValue = InputBox(Message, Title,,,,"DEMO.HLP", 10) ' Display dialog box at position 100, 100. MyValue = InputBox(Message, Title, Default, 100, 100) Database3.accdb Database3.accdb

تقوم بإرجاع متغير (نوع بيانات طويل) يحدد عدد الفواصل الزمنية بين تاريخين محددين. بناء الجملة DateDiff ( فاصل زمني، تاريخ1، تاريخ2 [، أول أيام الأسبوع] [، أولweekofyear] ) بناء جملة الدالة DateDiff على هذه الوسيطات: تلميح: في Access 2010، يكون "منشئ التعبير" به IntelliSense، حيث يمكنك معرفة الوسيطات التي يتطلبها التعبير. الوسيطة الوصف فاصل مطلوبة. تعبير السلسلة هو الفاصل الزمني للوقت الذي تستخدمه لحساب الفرق بين التاريخ 1والتاريخ 2. date1, date2 مطلوبة. متغير (تاريخ). تاريخان تريد استخدامهم في العملية الحسابية. أول أيام الأسبوع اختياري. جزء ثابت يحدد اليوم الأول من الأسبوع. إذا لم يكن محددا، فيفترض أن يوم الأحد. أولweekofyear اختياري. ثابت يحدد الأسبوع الأول من السنة. إذا لم يكن محددا، فيفترض أن الأسبوع الأول هو الأسبوع الذي يقع فيه التاريخ 1 يناير. الإعدادات الفاصل وسيطة الإعدادات التالية: الإعداد الوصف yyyy السنة q ربع السنة m الشهر y يوم في السنة d يوم w Weekday ww الأسبوع h الساعة د الدقيقة s الثانية وسيطة أول أيام الأسبوع لها هذه الإعدادات: ثابت القيمة الوصف vbUseSystem 0 استخدم إعداد NLS API. vbSunday 1 الأحد (افتراضي) vbMonday 2 الاثنين vbTuesday 3 الثلاثاء vbWednesday 4 الأربعاء vbThursday 5 الخميس vbFriday 6 الجمعة vbSaturday 7 السبت ثابت القيمة الوصف vbUseSystem 0 استخدم إعداد NLS API. vbFirstJan1 1 تبدأ الأسبوع الذي يقع فيه 1 يناير (افتراضي). vbFirstFourDays 2 ابدأ الأسبوع الأول الذي له أربعة أيام على الأقل في السنة الجديدة. vbFirstFullWeek 3 ابدأ بأسبوع كامل أول من السنة. ملاحظات يمكنك استخدام الدالة DateDiff لتحديد عدد الفواصل الزمنية المحددة الموجودة بين تاريخين. على سبيل المثال، يمكنك استخدام DateDiff لحساب عدد الأيام بين تاريخين، أو عدد الأسابيع بين اليوم ونهاية السنة. لحساب عدد الأيام بين التاريخ1 والتاريخ 2،يمكنك استخدام يوم من السنة ("y") أو يوم ("d"). عندما يكون الفاصل الزمني يوم الأسبوع ("w")، ترجع DateDiff عدد الأسابيع بين التاريخين. إذا كان التاريخ1 يقع في يوم الاثنين، تحسب DateDiff عدد الاثنين حتى التاريخ 2. تحسب التاريخ 2 وليس التاريخ 1. إذا كان الفاصل الزمني الأسبوع ("ww")، فإن الدالة DateDiff ترجع عدد أسابيع التقويم بين التاريخين. تحسب عدد أيام الأحد بين التاريخ 1 والتاريخ 2.تحسب DateDiffالتاريخ2 إذا كان يقع يوم الأحد؛ ولكنه لا يحتسب التاريخ1،حتى لو كان يقع في يوم الأحد. إذا كانت date1 تشير إلى نقطة زمنية لاحقة من التاريخ 2،ترجع الدالة DateDiff رقما سالبة. تؤثر الوسيطة firstdayofweek على العمليات الحسابية التي تستخدم رمزي الفاصل "w" و"ww". إذا كان التاريخ 1أو التاريخ 2أحرف التاريخ ، تصبح السنة المحددة جزءا دائما من ذلك التاريخ. ومع ذلك، إذا كان التاريخ1 أو التاريخ2 محاطا بين علامات اقتباس مزدوجة (" ")، وأحذفت السنة، يتم إدراج السنة الحالية في التعليمات البرمجية في كل مرة يتم فيها تقييم تعبير التاريخ1 أو التاريخ2. هذا يجعل من الممكن كتابة التعليمات البرمجية التي يمكن استخدامها في سنوات مختلفة. عند مقارنة 31 ديسمبر إلى 1 يناير من السنة التالية مباشرة، ترجع DateDiff for Year ("yyyy") 1، على الرغم من مرور يوم واحد فقط. ملاحظة: بالنسبة إلى التاريخ1 والتاريخ 2،إذا كان إعداد خاصية التقويم ميلاديا، فيجب أن يكون التاريخ الذي تم توفيره ميلاديا. إذا كان التقويم هو الهجري، فيجب أن يكون التاريخ الذي تم توفيره هو الهجري. أمثلة على استعلام DateDiff التعبير النتائج SELECT DateDiff("yyyy",#01/01/2010#,[DateofSale]) AS Expr1 FROM ProductSales; ترجع الفرق بين التاريخ2 والتاريخ1 (يعتبر التاريخ 1 أقدم وتاريخ2 كالاحدث) كعدد "السنوات". النتيجة: الفرق بين القيم في الحقل "DateofSale" والتاريخ "01/01/2010" كعدد "السنوات". SELECT DateDiff("q",[DateofSale],Date()) AS DaysSinceSale FROM ProductSales; ترجع الفرق بين تاريخ النظام و"DateofSale" كعدد "أرباع السنة" (استنادا إلى السنة المحدثة) وتعرض في العمود "DaysSiنسSale". ترجع الفرق بين تاريخ النظام و"DateofSale" كعدد "الأشهر" وتعرض في العمود "DaysSiنسSale". SELECT DateDiff("y",[DateofSale],Date()) AS DaysSinceSale FROM ProductSales; ترجع الفرق بين تاريخ النظام و"DateofSale" كعدد "الأيام" وتعرض في العمود "DaysSiنسSale". SELECT DateDiff("d",[DateofSale],Date()) AS DaysSiواSale FROM ProductSales; ترجع الفرق بين تاريخ النظام و"DateofSale" كعدد "الأيام" وتعرض في العمود "DaysSiنسSale". SELECT DateDiff("w",[DateofSale],Date()) AS DaysSinceSale FROM ProductSales; ترجع الفرق بين تاريخ النظام و"DateofSale" كعدد "أيام الأسبوع" وتعرض في العمود "DaysSiنسSale". إذا وقعت "DateofSale" يوم الاثنين، تحسب DateDiff عدد الاثنين حتى تاريخ النظام. فهي تحسب تاريخ النظام وليس القيمة في "DateofSale". SELECT DateDiff("ww",[DateofSale],Date()) AS DaysSiنسSale FROM ProductSales; ترجع الفرق بين تاريخ النظام و"DateofSale" كعدد "أسابيع Calender" وتعرض في العمود "DaysSiنسSale". تحسب عدد أيام الأحد بين "DateofSale" و"تاريخ النظام". سيتم حساب تاريخ النظام إذا كان يقع يوم الأحد؛ ولكن لا تحتسب "DateofSale"، حتى لو كان يقع يوم الأحد. SELECT DateDiff("h",[DateTime],Date()) AS DaysSiنسSale FROM ProductSales; ترجع الفرق بين تاريخ النظام و"DateTime" كعدد "الساعات" وتعرض في العمود "DaysSiنسSale". SELECT DateDiff("n",[DateTime],Date()) AS DaysSiواSale FROM ProductSales; ترجع الفرق بين تاريخ النظام و"DateTime" كعدد "الدقائق" وتعرض في العمود "DaysSiنسSale". SELECT DateDiff("s",[DateTime],Date()) AS DaysSiنسSale FROM ProductSales; ترجع الفرق بين تاريخ النظام و"DateTime" كعدد "الثواني" وتعرض في العمود "DaysSinceSale". مثال لتعبير استخدام الدالة DateDiff في تعبير يمكنك استخدام الدالة DateDiff أينما يمكنك استخدام التعبيرات. على سبيل المثال، لنفترض أن لديك نموذجا تستخدمه لتنفيذ طلبات العملاء. في جدول "الطلبات"، لديك حقل يسمى ReceiveBefore يحتوي على التاريخ الذي يحتاج العميل إلى تلقي الطلب حسبه. يمكنك استخدام الدالة DateDiff مع مربع نص في النموذج لعرض عدد الأيام التي تبقى قبل أن يتم شحن الطلب. إذا افترضنا أن شحن أي طلب يستغرق عشرة أيام، يمكنك تعيين خاصية "مصدر عنصر التحكم" لمربع النص كما يلي: =DateDiff("d", Now(), [Orders].[ ReceiveBefore])-10 عند فتح النموذج في طريقة عرض النموذج، يعرض مربع النص عدد الأيام التي تبقى قبل أن يتم شحن الطلب. إذا بقي أقل من 10 أيام قبل أن يحتاج العميل إلى تلقي الطلب، فإن الرقم في مربع النص سالب ويشير إلى عدد الأيام المتأخرة في الطلب إذا تم شحنه على الفور. مثال VBA استخدام الدالة DateDiff في التعليمات البرمجية ل VBA يستخدم هذا المثال الدالة DateDiff لعرض عدد الأيام بين تاريخ معين واليوم. Dim TheDate As Date ' Declare variables. Dim Msg TheDate = InputBox("Enter a date") Msg = "Days from today: " & DateDiff("d", Now, TheDate) MsgBox Msg

الدالة DateAdd تقوم بإرجاع متغير ‏(تاريخ) يحتوي على التاريخ الذي تم إضافة فاصل زمني محدد له. بناء الجملة DateAdd ( فاصل زمني، رقم، تاريخ) بناء جملة الدالة DateAdd على هذه الوسيطات: الوسيط الوصف فاصل مطلوبة. تعبير السلسلة هو الفاصل الزمني للوقت الذي تريد إضافته. number مطلوبة. تعبير رقمي هو عدد الفواصل الزمنية التي تريد إضافتها. يمكن أن تكون إيجابية (للحصول على التواريخ في المستقبل) أو سالبة (للحصول على التواريخ في الماضي). تاريخ مطلوبة. متغير (تاريخ) أو حرف يمثل التاريخ الذي يتم إضافة الفاصل الزمني له. الإعدادات الفاصل وسيطة الإعدادات التالية: الإعداد الوصف yyyy السنة q ربع السنة m الشهر y يوم في السنة d يوم w Weekday ww الأسبوع h الساعة د الدقيقة s الثانية ملاحظات يمكنك استخدام الدالة DateAdd لإضافة فاصل زمني معين أو طرحه من تاريخ. على سبيل المثال، يمكنك استخدام DateAdd لحساب تاريخ بعد 30 يوما من اليوم أو 45 دقيقة من الآن. لإضافة أيام إلى تاريخ،يمكنك استخدام يوم من السنة ("y") أو يوم ("d") أو يوم من أيام الأسبوع ("w"). لن ترجع الدالة DateAdd تاريخا غير صالح. يضيف المثال التالي شهرا واحدا إلى 31 يناير: DateAdd("m", 1, "31-Jan-95") في هذه الحالة، ترجع DateAdd 28 - فبراير - 95، وليس 31 - فبراير - 95. إذا كان التاريخ هو 31 يناير- 96، فإنه يرجع 29 - فبراير - 96 لأن 1996 سنة كبيسة. إذا كان التاريخ المحسوب يسبق السنة 100 (أي أنك تطرح سنوات أكثر مما هي عليه في التاريخ)، فيحدث خطأ. إذا لم تكن قيمة الرقم قيمة طويلة، فيقرب الرقم إلى أقرب عدد صحيح قبل تقييمه. ملاحظة: يتم تحديد تنسيق القيمة المرجعة ل DateAdd من خلال إعدادات لوحة التحكم، وليس حسب التنسيق الذي يتم تمريره في وسيطة التاريخ. ملاحظة: بالنسبة إلى التاريخ،إذا كان إعداد خاصية التقويم ميلاديا، فيجب أن يكون التاريخ الذي تم توفيره ميلاديا. إذا كان التقويم هو الهجري، فيجب أن يكون التاريخ الذي تم توفيره هو الهجري. إذا كانت قيم الشهر أسماء، فيجب أن يكون الاسم متناسقا مع إعداد خاصية التقويم الحالية. لتقليل إمكانية تعارض أسماء الشهر مع إعداد خاصية التقويم الحالي، أدخل قيم الشهر رقمي (تنسيق التاريخ القصير). أمثلة على الاستعلام التعبير النتائج SELECT DateAdd("YYYY",1,[DateofSale]) AS Expr1 FROM ProductSales; ترجع النتائج بإضافة سنة واحدة إلى قيم تاريخ الحقل "DateofSale". SELECT DateAdd("YYYY",-1,[DateofSale]) AS Expr1 FROM ProductSales; ترجع النتائج عن طريق طرح سنة واحدة لقيم تاريخ الحقل "DateofSale". SELECT DateAdd("d",10,[DateofSale]) AS NewDate FROM ProductSales; ترجع النتائج في العمود "NewDate" بإضافة 10 أيام إلى قيم تاريخ الحقل "DateofSale". SELECT DateAdd("ww",-1,[DateofSale]) AS NewDate FROM ProductSales; ترجع النتائج في العمود "NewDate" عن طريق طرح أسبوع واحد (7 أيام) من قيم تاريخ الحقل "DateofSale". مثال VBA ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية في Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد "مرجع المطور" في القائمة المنسدل إلى جانب "البحث" وأدخل مصطلحا واحدا أو أكثر في مربع البحث. يأخذ هذا المثال تاريخا كمدخل ويستخدم الدالة DateAdd لعرض تاريخ مقابل لعدد محدد من الأشهر في المستقبل. Dim FirstDate As Date ' Declare variables. Dim IntervalType As String Dim Number As Integer Dim Msg IntervalType = "m" ' "m" specifies months as interval. FirstDate = InputBox("Enter a date") Number = InputBox("Enter number of months to add") Msg = "New date: " & _ DateAdd(IntervalType, Number, FirstDate) MsgBox Msg

01/ فتح نموذج في طريقة العرض : ' لفتح نموذج في طريقة العرض Private Sub Commande1_Click() DoCmd.OpenForm "fram2 ", acNormal End Sub ' acNormal هو اداة لعرض طريقة الفتح و هنا الفتح عادي 02/ فتح نموذج في طريقة التصميم : ' لفتح نموذج في طريقة التصميم Private Sub Commande1_Click() DoCmd.OpenForm "fram2 ", acDesign End Sub ' acDesign هو اداة لفتح النموذج في طريقة التصميم 03 لفتح النموذج في طرقة المعاينة للطباعة مثل التقرير : ' لفتح النموذج في طريقة المعاينة كالتقرير للطباعة Private Sub Commande13_Click() DoCmd.OpenForm "fram2", acPreview End Sub ' acPreview هذه الاداة هي المسؤولة على فتح النموذج في طريقة المعاينة كالتقرير 04 / لفتح النموذج في طريقة الشارت للرسوم البيانية : ' لفتح النموذج في طريقة الشارت لعرض الرسوم البيانية Private Sub Commande10_Click() DoCmd.OpenForm "fram2", acFormPivotChart End Sub 'acFormPivotChart هذه الاداة هي المسؤولة عن طريقة عرض النموذج كواجهة للرسوم البيانية

ما شاء الله عليك استاذي الكريم : شكرا على المرور و الطلعة البهية و على المساعدة نجح الامر و الحمد لله جعله الله في ميزان حسناتك

المثال.rar

ربي يحفظك ان شاء الله افتح الحاسوب و اجرب المثال . شكرا على الرد و التفاعل

استيراد نص.mdb

عيدكم مبروك و كل عام و انتم بالف خير

ما شاء الله عليكم اساتذتي حياكم الله و جعل تدخلاتكم في صالح اعمالكم

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

شكرا استاذي العزيز بارك الله فيك و في اعمالك جعلها الله في ميزان حسناتك الان يعتبر العمل ان شاء الله اكتمل

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

السلام عليكم و رحمة الله و بركاته : كلمة السر و اسم المستعمل هو : 12345 اما بالنسبة للمكتبة الناقصة فقد حصلت معي ايضا و اضفت لها المكتبة التالية و اضنها نجحت معي و اشتغل البرنامج وهي في المرفقات : لحضات و انزل لك المكتبة التي قمت باظافتها اسم المكتبة : Selenium Basic يجب تحميلها و تثبيتها مع ضرورة تحميل : chromedriver ووضعه على المسار التالي :C:\Windows\System32 بارك الله فيك استاذي الكريم فعلا كلمة السر و المستعمل هي 12345 و يسرني انك حولت البرنامج الى النوات 64 : يا ريت لما تنتهي منها انشرها حتى نستفيد و شكرا لك مسبقا

اضع اليوم بين ايديكم مشروعي الذي عملت عليه اكثر من 04 اشهر ايام و ليالي باحثا منقبا بين المنتديات مجمعا للمعلومات سائلا اسات\تي الكرام و مرهقا لهم المشروع هو نظام ادارة شؤون التلاميذ : كل ما بتعلق بالاعمال الادارية الخاصة بالقيم العام او المشرف العام في بعض الدول " تجدون فيه العديد من الاعمال التي قام بها الاسات\ة الكرام في ه\ا المنتدى : تجدون به ايضا جملة من الامكثلة في ه\ا المنتدى و غيره جمعتها و نسقتخا و اخرجت منها مشروع الحقيقة افادني كثيرا في عملي بالادارة و اراحني من هموم الوثائق : المهم لي طلب واحد ووحيد اضع المشروع بين يديكم و طالبا منكم و راجيا تطويره : 01/ اطلب بكل ود من الاسات\ة الكرام جعله يعمل على 32/ 64 بايت 02/ تحسينه و ازالة بعض الاخ\اء الموجودة به 03/ اذا فيه مجال تحسين واجهاته و لكم مني كل الشكر و الامتنان : مع العلم كل من يقوم بتحسين البرنامج ينشره بالمنتدى مفتوح المصدر : شكرا تلميذكم عمار دربالي تونس كلمة السر و اسم المستعمل هو : 12345 تشتغل على ونداوز 10.rar

البرنامج بقتخ على فورم login ة لا يةجد عندي فورم باسم aire

ه\ه رسالة الخطا لكن لما قمت بفتح برنامج اكسيس جديد و سحبت كل الملفات من البرنامج القديم اشتغل عال العال : الا ان المشكلة تبقى قاءمة مع البرنامج القديم و قد جربت كل الحلول التي اقترحها الاسات\ة الكرام الا انها لم تنجح

نعم استاذي الكريم تظهر الرسالة الاولى

بعدما انهيت انشاء البرنامج و كان شغال عال العال على ونداوز 7 استبدلت النظام الى ونداوز10 حيث كانت الكارثة تعطل برنامجي نهائيا لا ادري لماذا . علما انني انشات البرنامج على اوفس 2010..32 بايت وهو نفس الاوفس الذي نزلته على ونداوز 10 رجاءا هل يوجد حل

السلام عليكم احبائي . لو سمحتم اريد معرفة ازاي نسوي المثال البسيط التالي : مثلا مدرسة بها : 4فصول دراسية 10 مدرسين 13مادة تدريس اريد مثال لتوزيع حصص المراقبة آليا بارك الله في جهودكم . ولو فيه مثال بالمنتدى يا ريت لاني بحثت و لم اجد

الشيء من ماتاه لا يستغرب / شكرا لك استاذي الكريم على الرد مع العلم ان موضوعك جيد جدا لكنني للاسف لم استطع استيعابه ربما لكوني مبتدئ و عصامي التكوين */* على كل امتعتنا بمشاركاتك

اردت اضافة جدول الاصدار لقاعدة البيانات التي انجرها لكن اريد الاستفسار : يحتوي الجدول على : 01/ IDVersion 02/ NamProg 03/DateVesion هل اربط هذا الجدول بجميع الجداول الموجودة بقاعدة البيانات ام هناك كود معين وجب اضافته حتى انني اذا اردت اصدار تحديث يستطيع قراءته ؟؟؟ شكرا لكم جميعا على ما تبذلوه من جهد لاجل نشر المعلومة و تعميمها