السلام عليكم ورحمة الله وبركاته
لدي استفسار بسيط واتمنى ان اجد في قلوبكم متسع للاجابة عليه
لدي نموذج يحسب التاريخ بين حقلين بواسطة DateDiff
طريقة النموذج
حقل 1 تاريخ يتم ادخاله عن طريق المستخدم
حقل 2 تاريخ ولكن اريده ان يظهر بشكل تلقائي بتاريخ اليوم باستخدام Date() بمجرد ادخال قيمة التاريخ للحقل 1
حقل 3 يحسب عدد الايام بين التاريخين (( الفرق ))
واتمنى ان تشرح الطريقة بالتفصيل كوني مبتدأ
تقبلوا مني كل الاحترام والتقدير
السلام عليكم
هل الشرح تم فهمه اما هناك
صعوبة في هذا الشي
اتمنى الرد منكم
تقبلوا مني كل الاحترام والتقدير
وعليكم السلام ورحمة الله وبركاته
اخي الكريم..
افترض الحقل الاول A والثاني اسمه B والثالث اسمه C
ادخل الى خاصية القيمة الافتراضية للحقل B واجعلها:
=Date()
والحقل C اجعل مصدر عنصر التحكم :
=B-A
ويمكن الاستغناء تماما عن الحقل B وجعل مصدر التحكم للحقل C هو
=Date()-A
والسلام
تم تعديل هذه المشاركة بواسطة ايهاب عثمان في 6 نوفمبر 2007 في 16:20
طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة
اخي الغالي ايهاب عثمان
يعطيك العافيه واشكرك علي تجاوبك
ولكن ما اريده هو على النحو التالي
الحقل A تاريخ يدخل من قبل المستخدم وبمجرد دخوله يظهر في الحقل B تاريخ اليوم بشكل تلقائي
والحقل C يحسب عدد الايام للفرق بين التاريخين
اتمنى اني اوضحت الفكرة
تقبلوا مني كل الاحترام والتقدير
اسامر وحدتي كتب:اخي الغالي ايهاب عثمانيعطيك العافيه واشكرك علي تجاوبك
ولكن ما اريده هو على النحو التالي
الحقل A تاريخ يدخل من قبل المستخدم وبمجرد دخوله يظهر في الحقل B تاريخ اليوم بشكل تلقائي
والحقل C يحسب عدد الايام للفرق بين التاريخين
اتمنى اني اوضحت الفكرة
تقبلوا مني كل الاحترام والتقدير
أخي العزيز ... السلام عليكم ورحمة الله وبركاته
مع احترامي الكبير لأخي ايهاب عثمان
اليك هذه القاعدة التي تحسب أعمار الموظفين من حيث عدد الايام وعدد الاشهر وعدد السنين وذلك حسب تاريخ ميلادهم.
مع خالص تحياتي لك بالتوفيق
تم تعديل هذه المشاركة بواسطة kamal alnahhal في 6 نوفمبر 2007 في 21:17
[يمين]
إذا كـان تـرك الـدين يعــنــي تقــدمــاً
فـيا نفــس مـوتــي قبــل أن تتقـدمــي
[/يمين]
يعطيك العافيه اخي الغالي
لكن لم تكن بمثل ما اريد
فارجو المساعدة
غاليتي
زهرة
يعطيك الف الف عافية
وجزاك الله كل الخير
واشكرك كذلك اخواني الاعزاء من قاموا بالرد مسبقا
ولكن
اتمنى منك شرح الطريقة الاولى لانها تناسبني كثيرا وتفي بالغرض
حيث بطريقة النموذج تاريخ اليوم يظهر تلقائي وانا اريده عند ادخال تاريخ
معين يظهر تاريخ اليوم وبذلك تكون الطريقة الاولي هي الافضل بالنسبة لي
ولكن اتمنى ان يتسع صدرك لشرح تلك الطريقة
تقبلي مني كل الاحترام والتقدير
بارك الله فيك اختنا العزيزة زهرة
اخي السائل
القصد هو المساعدة مع ان الاستفسار موجه لاختنا الغالية زهرة فلتسمح لنا مشكورة
لا اعلم اي طريقة تقصد ( هل المرفق الخاص بي )
عموماً ... بالنسبة لحقل Date2 لابد ان يكون حقل بالجدول وضبط خاصية القيمة الافتراضية له بالقيمة ()Date
ثم يتم عمل استعلام تحديد بالحقلين واستخدام الدالة Datediff لحساب الفرق بين التاريخين بالحقل الثالث المحسوب( لمزيد من المعلومات عن هذه الدالة بامكانك البحث عنها )
ثم يتم عمل نموذج مبني على الاستعلام.
القيمة الافتراضية تظهر تلقائياً بالحقل للسجل الجديد حتى وان لم تدخل به قيم لذا تم وضع كود لتغيير لون الخط الخاص بحقل التاريخ الثاني ليصبح نفس لون مربع النص الخاص به في حدث في الحالي للنموذج.
If IsNull(Me.Date1.Value) Then Me.Date2.ForeColor = vbWhite Else Me.Date2.ForeColor = vbBlack End If
كما تم اضافة الكود ادناه الى زر الاضافة ليتحول لون الخط الى الاسود ويظهر عند ضغط زر الاضافة
Me.Date2.ForeColor =VbBlack
يضاف نفس الكود اعلاه بحدث بعد التحديث لحقل التاريخ الاول
يمكن الاستغناء عن بعض الاكواد المكررة وعمل اجراء خاص بها واستدعاؤه في مكانه
ارجو ان يفي بما تبحث عنه
يوسف احمد كتب:بارك الله فيك اختنا العزيزة زهرةاخي السائل
القصد هو المساعدة مع ان الاستفسار موجه لاختنا الغالية زهرة فلتسمح لنا مشكورة
لا اعلم اي طريقة تقصد ( هل المرفق الخاص بي )
عموماً ... بالنسبة لحقل Date2 لابد ان يكون حقل بالجدول وضبط خاصية القيمة الافتراضية له بالقيمة ()Date
ثم يتم عمل استعلام تحديد بالحقلين واستخدام الدالة Datediff لحساب الفرق بين التاريخين بالحقل الثالث المحسوب( لمزيد من المعلومات عن هذه الدالة بامكانك البحث عنها )
ثم يتم عمل نموذج مبني على الاستعلام.
القيمة الافتراضية تظهر تلقائياً بالحقل للسجل الجديد حتى وان لم تدخل به قيم لذا تم وضع كود لتغيير لون الخط الخاص بحقل التاريخ الثاني ليصبح نفس لون مربع النص الخاص به في حدث في الحالي للنموذج.
If IsNull(Me.Date1.Value) Then Me.Date2.ForeColor = vbWhite Else Me.Date2.ForeColor = vbBlack End Ifكما تم اضافة الكود ادناه الى زر الاضافة ليتحول لون الخط الى الاسود ويظهر عند ضغط زر الاضافة
Me.Date2.ForeColor =VbBlackيضاف نفس الكود اعلاه بحدث بعد التحديث لحقل التاريخ الاول
يمكن الاستغناء عن بعض الاكواد المكررة وعمل اجراء خاص بها واستدعاؤه في مكانه
ارجو ان يفي بما تبحث عنه
هناك طريقة اخرى وهي ضبط خاصية النموذج FetchDefaults على القيمة ( لا ) بدلاً من كتابة الاكواد السابقة
من خصائص النموذج ومن التبويب بيانات كما بالصورة المرفقة
حمداً لله على عودة منتدانا الغالي مجدداً
تم تعديل هذه المشاركة بواسطة يوسف احمد في 16 نوفمبر 2007 في 14:31
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
