اذهب الي المحتوي
أوفيسنا

المسج بوكس


حسن سعيد

الردود الموصى بها

السلام عليكم ورحمة الله وبركاته

اساتذتي الكرام

تحية طيبة وبعد ....

ارجو مساعدتي في هذا الامر 

 

المطلوب ...

أولاً : اظهار عدد السجلات في المسج بوكس

بمعنى عند وجود اقامتين قاربت على الانتهاء يظهر بالمسج بوك

(  توجد 2 اقامات قاربت على الانتهاء )

 

ثانياً : اظهار بالمسج بوكس أيضاً خيارين

" عرض " و " إلغاء الامر "

وعند الضغط على عرض يتم عرض النموذج وعند الإلغاء يتم الالغاء

بدلا من خيار " موافق " كما هو موضح  بالصورة .

 

سائلاً المولى عزوجل ان يزيد في علمكم

ولكم جزيل الشكر والعرفان .

 

مسج بوكس.rar

2015.jpg

رابط هذا التعليق
شارك

6 ساعات مضت, عبدالرحمن هاشم said:

وعليكم السلام ورحمة الله

جرب أخي التعديل ووافني بالنتيجة

مسج بوكس.rar

شكرا لك عبد الرحمن

تم تنفيد الجزء الاول من الطلب بشكل ممتاز

باقي الجزء الثاني من الطلب

ثانياً : اظهار بالمسج بوكس أيضاً خيارين

" موافق " و " إلغاء الامر "

وعند الضغط على موافق يتم عرض النموذج وعند الإلغاء يتم الالغاء

بدلا من خيار " موافق " كما هو موضح  بالصورة .

رابط هذا التعليق
شارك

4 ساعات مضت, حسن سعيد said:

شكرا لك عبد الرحمن

تم تنفيد الجزء الاول من الطلب بشكل ممتاز

باقي الجزء الثاني من الطلب

ثانياً : اظهار بالمسج بوكس أيضاً خيارين

" موافق " و " إلغاء الامر "

وعند الضغط على موافق يتم عرض النموذج وعند الإلغاء يتم الالغاء

بدلا من خيار " موافق " كما هو موضح  بالصورة .

بعد اذن استاذى الحبيب  "  عبدالرحمن هاشم "

اتفضل جرب التعديل ده كده يا استاذ  "حسن سعيد "

مسج 3بوكس.rar

  • Like 3
رابط هذا التعليق
شارك

1 ساعه مضت, محمد عصامـے said:

بعد اذن استاذى الحبيب  "  عبدالرحمن هاشم "

اتفضل جرب التعديل ده كده يا استاذ  "حسن سعيد "

مسج 3بوكس.rar

نعم هذا المطلوب واللي توصلت له ايضا بس بطريقة ثانية

شكرا استاذ محمد

بس اللي مدوخني

عند عدم وجود اقامات قاربت على الانتهاء

يظهر لي عدد الاقامات 0 المسج الاول

وانا ابي يظهر المسج الثاني

لا توجد اقامات قاربت على الانتهاء

 

 

رابط هذا التعليق
شارك

مشاركة مع الاساتذة

ماهو المدة التي هي مقياس لان تصبح الاقامات قاربة على الانتهاء ! مثلا التي بقي عليها 5 ايام فاقل ؟

وبعد كذا ساشارك بجواب للمطلوب ؟ سطر واحد ..:wink2:

تحياتي

  • Like 3
رابط هذا التعليق
شارك

منذ ساعه, رمهان said:

مشاركة مع الاساتذة

ماهو المدة التي هي مقياس لان تصبح الاقامات قاربة على الانتهاء ! مثلا التي بقي عليها 5 ايام فاقل ؟

وبعد كذا ساشارك بجواب للمطلوب ؟ سطر واحد ..:wink2:

تحياتي

  • دائما وابدا هناك لمسة رمهانية :wub:
رابط هذا التعليق
شارك

1 ساعه مضت, رمهان said:

مشاركة مع الاساتذة

ماهو المدة التي هي مقياس لان تصبح الاقامات قاربة على الانتهاء ! مثلا التي بقي عليها 5 ايام فاقل ؟

وبعد كذا ساشارك بجواب للمطلوب ؟ سطر واحد ..:wink2:

تحياتي

المدة هي 31 يوم :smile:

رابط هذا التعليق
شارك

تفضل 

If MsgBox(" لديك  " & DCount("*", "الاقامات", "[تاريخ نهاية الاقامة]-date()<=31") & "  قاربت على الانتهاء  ", vbOKCancel) = vbOK Then DoCmd.OpenForm "التحقق من الاقامات", acFormDS

وهنا عليك مسح جميع اكواد النموذج "التحقق من الاقامات" وعند الفتح !

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

بالتوفيق للجميع

  • Like 2
رابط هذا التعليق
شارك

15 دقائق مضت, رمهان said:

تفضل 


If MsgBox(" لديك  " & DCount("*", "الاقامات", "[تاريخ نهاية الاقامة]-date()<=31") & "  قاربت على الانتهاء  ", vbOKCancel) = vbOK Then DoCmd.OpenForm "التحقق من الاقامات", acFormDS

وهنا عليك مسح جميع اكواد النموذج "التحقق من الاقامات" وعند الفتح !

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

بالتوفيق للجميع

جزاك الله خيرا يا استاذ رمهان

هذا هو المطلوب تماما لقد اسعدتني اسعدكم الله جميعا :clapping:

رمهان .... محمد عصام ...... عبد الرحمن هاشم :fff:

  • Like 1
رابط هذا التعليق
شارك

13 ساعات مضت, رمهان said:

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

بالتوفيق للجميع

شهادة اعتز بها من علمى القدير واستاذى الجليل واخى الحبيب :wub: :jump:

  • جزاكم الله خيرا :signthankspin: :fff:
    وبخصوص الكود
    If MsgBox(" لديك  " & DCount("*", "الاقامات", "[تاريخ نهاية الاقامة]-date()<=31") & "  قاربت على الانتهاء  ", vbOKCancel) = vbOK Then DoCmd.OpenForm "التحقق من الاقامات", acFormDS
    مشتاق لتجربته فدائما وابدا يشغلنى بلهفة مشتاق تطبيق ما تتفضل به من لمسات ساحرة وخلابه فمنتديات اوفيسنا هى مدينة للعلم وحضرتك باب من ابوابها ولك مدرسة خاصة 
    اسال الله العلى العظيم ان يبارك لك فى علمك وعملك ويرزقكم الجنة انت ومن تحب 
  • Like 1
رابط هذا التعليق
شارك

استاذ رمهان بعد تجربة الكود لاحظت عند ظهور الرسالة الزر  ok , cancel    كل منهما يفتح النموذج 
 

مسج4بوكس - .rar

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

مسج5بوكس.rar

تم تعديل بواسطه محمد عصامـے
  • Like 1
رابط هذا التعليق
شارك

6 ساعات مضت, محمد عصامـے said:

استاذ رمهان بعد تجربة الكود لاحظت عند ظهور الرسالة الزر  ok , cancel    كل منهما يفتح النموذج 
 

مسج4بوكس - .rar

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

مسج5بوكس.rar

حياك الله استاذ محمد ! 

طبعا اكيد انت لم تركز هنا :

21 ساعات مضت, رمهان said:

   هنا عليك مسح جميع اكواد النموذج "التحقق من الاقامات" وعند الفتح !

 

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

تحياتي واشواقي

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information