أبو امين

تقوم بإرجاع متغير (نوع بيانات طويل) يحدد عدد الفواصل الزمنية بين تاريخين محددين. بناء الجملة 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 هل اربط هذا الجدول بجميع الجداول الموجودة بقاعدة البيانات ام هناك كود معين وجب اضافته حتى انني اذا اردت اصدار تحديث يستطيع قراءته ؟؟؟ شكرا لكم جميعا على ما تبذلوه من جهد لاجل نشر المعلومة و تعميمها

شكرا جزيلا على الابداع انار الله دربك مثلما انرت عقولنا

المطلوب مثلما هو مبين على العنوان : برنامج وقع برمجته على اوفيس 32 بايت اريد اضافة اكواد 64 بايت ليشتغل عليهما معا اي على ( 32 و 64 )

السلام عليكم رجاءا مراجعة الصورة المرفقة و تمكيني من بعض الملاحظات

شكرا استاذي تعبناك معانا الله اينورك يارب ======================)(====================