السلام عليكم ...
اخواني الأعزاء
هل من الممكن في حقل تاريخ انتهاء الهوية وضع شرط يمنع إدخال تاريخ منتهي بمعنى أني لا أستطيع إدراج تاريخ تاريخ قبل تاريخ اليوم ..
طبعاً أنا أتحدث عن التاريخ الهجري لأن جميع الهويات يتم التعامل معها بالتاريخ الهجري ......
استطعت عمل ذلك فقط للتاريخ الميلادي أما الطريقة في التاريخ الهجري فإني لا أجيدها ..
أرجو ممن يعرف ذلك تنويرنا ولكم مني جزيل الشكر
تم تعديل هذه المشاركة بواسطة أبو مالك1 في 28 يناير 2010 في 20:49
السلام عليكم ورحمة الله وبركاته
أخي الكريم وعزيزي mrnooo2000
تستحق +1 بكل جدارة ، اليوم هو يومك الماراثوني لحل مشاكل الأعضاء
بارك الله فيك أخي mrnooo2000 على الجهد الرائع الذي تبذله
وجزاك الله عنا كل خير ورزقك الفردوس الأعلى من الجنة
ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم
تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .
بارك الله فيك أخي الحبيب وجمعة مباركة
المثال موفق كما أردته بالتمام ..... لكن هناك استفسار عندما أكتب بعض التواريخ السابقة تمشي الأمور ...
بمعنى أني حاولت كتابة التاريخ 1431/1/10 والمنتهي منذ 14 يوم تقريباً لايعطيني أي خطأ وتمشي الأمور جربته عدة مرات ولم يكن هناك أي منع ......
الشيء الآخر كنت اريده أيضاً أن يمنع إكمال إدراج السجل بالكامل في حين انتهاء الهوية ......
أرجو ان أكون وفقت في إيصال الاستفسار ...
لك مني أجمل التحية والاحترام
اشكركم اخوانى
و اتمنى من الله ان يوفق الجميع الى ما يحبه و يرضاه
اقتباسبارك الله فيك أخي mrnooo2000 على الجهد الرائع الذي تبذله
و بارك فيك اخى العزيز
اقتباسبمعنى أني حاولت كتابة التاريخ 1431/1/10 والمنتهي منذ 14 يوم تقريباً لايعطيني أي خطأ وتمشي الأمور جربته عدة مرات ولم يكن هناك أي منع ......
اخى الفاضل لقد جربت التاريخ الذى حددته و الكود يعمل معه بشكل جيد
ملحوظة:
يجب ان يكون format التاريخ متشابه بين التاريخين الذين تقارن بينهما
اقتباسالشيء الآخر كنت اريده أيضاً أن يمنع إكمال إدراج السجل بالكامل في حين انتهاء الهوية ......
بالنسبة لهذا الطلب فالامر بسيط ان شاء الله
فقط ضع الكود فى حدث قبل التحديث للنموذج
و استبدل السطر
me.txt=""
بالسطر
me.undo
أشكرك عزيزي على سرعة الرد والتواصل
سأجرب ما أخبرتني به وإن شاء الله يعمل بالشكل المطلوب وسوف أوافيك بالنتيجة
...
mrnooo2000 كتب:و استبدل السطر
me.txt=""بالسطر
me.undo
أخي الفاضل حاولت استبدال السطر كما ذكرت لكن النتيجة أنه لايقوم بمنع إكمال السجل .... ماالعمل برأيك ؟؟؟؟
ارفق اخر تعديل قمت به
و سنحاول المساعدة ان شاء الله
هذا هو الكود الذي وضعته في حدث بعد تحديث الحقل
Private Sub finish_date_AfterUpdate()
Application.SetOption "Use Hijri Calendar", True
Dim dd1, dd2 As Date
Dim Msg
dd1 = Format(date, "dd,mm,yyyy")
dd2 = Format(Me.finish_date, "dd,mm,yyyy")
If DateDiff("d", dd2, dd1) > 0 Then
Msg = " الهوية منتهية " & DateDiff("d", dd2, dd1) & " منذ"MsgBox Msg
Me.Undo
End IfEnd Sub
تم تعديل هذه المشاركة بواسطة أبو مالك1 في 29 يناير 2010 في 18:09
اخى الفاضل
لم تلاحظ ما قلته جيدا
اقتباسفقط ضع الكود فى حدث قبل التحديث للنموذجو استبدل السطر
على اى حال طلبك بالمرفق
يبدو أني أغضبتك كثيراً بترددي
أشكرك من خالص قلبي ولقد عملت ما أخبرتني به والنتيجة كانت 100%
جزاك الله خيرا وكثر الله من أمثالك
أبو مالك1 كتب:يبدو أني أغضبتك كثيراً بترددي
أشكرك من خالص قلبي ولقد عملت ما أخبرتني به والنتيجة كانت 100%
جزاك الله خيرا وكثر الله من أمثالك
كلا و الله ياخى لم اغضب
فمن يريد ان يتعلم يجب ان يسأل و الا فلن يتعلم
كل ما فى الامر اننى احببت ان اوضح لك ما قلته
السلام عليكم
أخي الفاضل المثال زبط معي بشكل جيد وسليم وممتاز لكن المشكلة أني تفاجأت أنه قام بتحويل جميع تواريخ البرنامج إلى التاريخ الهجري ...... وأنا لا أريده سوى في خانة الهوية فقط
هل من هناك من حل لتلك المشكلة بارك الله فيكم جميعاً ؟؟؟؟؟؟؟؟؟؟؟
أبو مالك1 كتب:السلام عليكم
أخي الفاضل المثال زبط معي بشكل جيد وسليم وممتاز لكن المشكلة أني تفاجأت أنه قام بتحويل جميع تواريخ البرنامج إلى التاريخ الهجري ...... وأنا لا أريده سوى في خانة الهوية فقط
هل من هناك من حل لتلك المشكلة بارك الله فيكم جميعاً ؟؟؟؟؟؟؟؟؟؟؟
اخى هل هناك حقول للتاريخ الميلادى فى نفس النموذج ام لا
اذا كان لا فالمرفق فيه الحل
السلام عليكم .....
أعتذر أخي على في التأخير على الرد ..... لكني بالفعل يوجد لدي في النموذج الواحد نوعين من التاريخ الهجري والميلادي ... فتاريخ كتابة الاستمارة بالميلادي وتاريخ انتهاء الهوية بالهجري .... لذلك تكمن المشكلة
أبو مالك1 كتب:السلام عليكم .....
أعتذر أخي على في التأخير على الرد ..... لكني بالفعل يوجد لدي في النموذج الواحد نوعين من التاريخ الهجري والميلادي ... فتاريخ كتابة الاستمارة بالميلادي وتاريخ انتهاء الهوية بالهجري .... لذلك تكمن المشكلة
لا يوجد مشكلة ان شاء الله اخى العزيز ................ فدائما لكل مشكلة حل
أخي الكريم والحبيب
نجحت العملية معي وهي تعمل بشكل أكثر من رائع .....
لك مني جزيل الشكر والاحترام ....
جُزيت خيراً وزوجت بكراً بكراً بكراً .... هههههههها
أبو مالك1 كتب:أخي الكريم والحبيب
نجحت العملية معي وهي تعمل بشكل أكثر من رائع .....
لك مني جزيل الشكر والاحترام ....
جُزيت خيراً وزوجت بكراً بكراً بكراً .... هههههههها
اشكرك اخى و بالتوفيق
لكن الجزء الثانى اتركه لاحد الاخوة غير المتزوجين ..... حتى لا تسبب مشاكل ( انا عندى يوسف و ريم ) رزقك الله
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…