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

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

قام بنشر

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

يشرفني إضمامي لهذا المنتدى المتميز والرائع

 

وأرجو ان افيد واستفيد من خبراتكم ومهاراتكم المتميزة 

 

اقوم بتصميم برنامج للموظفين وأرغب بإعداد رسالة تنبيه منبثقة ( قبل موعد انتهاء اقامة الموظف ) وايضاً ( قبل موعد انتهاء تأمين المركبة ) وفي حالة عدم وجود تنبيه عدم ظهور رسالة التنبيه .

 

 

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

 

 

mm.rar

قام بنشر (معدل)

تفضل الحل اخي الفاضل ( وانشاء الله) يكون هو المطلوب

 ملحوظه : من الافضل كتابة الاسماء في الجداول باللغة الانجليزية لتجنب الاخطاء البرمجية

mm.rar

تم تعديل بواسطه حسين العربي
  • Like 1
قام بنشر

شكرا جزيلا لك حسين العربي

 

على تعاونك وتجاوبك امنى نستفيد من خبراتكم المتميزة 

 

لاكن اريد تعديل او وضع كود لتقرير التنبيه  ( عرض التقرير ) لكي يقوم بالتنبيه في حالة وجود تاريخ معين ينتهي بعد شهر تقريباً  وعدم عرض التقرير عندما لا يوجد تاريخ على وشك الإنتهاء 

 

ارجو مساعدتي في وضع الكود بحيث يظهر عندما يكون هناك بيانات فقط .

 

لك من جزيل الشكر اخي الفاضل .

قام بنشر

اخي العزيز حسين

 

هل تفضلت بشرح الطريقة بالتفصيل لو تكرمت

 

لكي يتسني لنا تطبيقها علي الملفات 

 

ولكم جزيل الشكر

 

لو سمحت يا شباب افيدونا

قام بنشر

اسف اخي الفاضل علي عدم الرد  لكن والله غصب عني كان عندي ضغط شغل 

جاري تنفيذطلبك بأذن الله وسامحني علي التأخير

 

شكرا اخي العزيز حسين

واتمني ان لا تنساني

 

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

قام بنشر (معدل)

 

اسف اخي الفاضل علي عدم الرد  لكن والله غصب عني كان عندي ضغط شغل 

جاري تنفيذطلبك بأذن الله وسامحني علي التأخير

 

شكرا اخي العزيز حسين

واتمني ان لا تنساني

 

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

 

 اخي الفاضل طالب علم 1 
اول شي  عمل جدول ونسميه  اي اسم  ولنفترض اسماء الحقول به  ( num_Contract )اي رقم العقد (Nam_Contract) اي اسم المتعاقد (Date_start) اي تاريخ البداية (Date_End) اي تاريخ النهايه) ونضع مربع نص اخر ونسميه (check1) ونجعل قيمته (نعم) (لا) 
 
بعد ذالك عمل  استعلا م مبني علي هذا الجدول  وانفترض اسمه (Qry ) وفي عرض التصميم للاستعلام نضع  تحت مربع النص  في   (Date_End) هذا الكود (<=Date()+3) معني الكود انه قبل ما ينتهي تاريخ التعاقد ب 3 ايام يظهر لي رسالة تنبه وممكن تغيير العدد الي اي رقم تريده  _ ونضع تحت مربع النص  (check1)في خانة المعيار(0 )
وبعد ذالك ننشأ نموذج مستمر ونسميه مثلا (FrmView) مبني  علي استعلام (Qry)  ونختارفي الحقول الموجود في الاستعلام
 
 
بعد ذالك نضع هذا الكود في نموذج البدايه لديك اوفي اي نموذج تريده  ( في حدث عند التحمل ) للنموذج 

Dim intStore As Integer
intStore = DCount("[num_Contract]", "[Qry]", "[Date_End] <=Date()+3 AND [check1] =0 ") 
    If intStore = 0 Then
Exit Sub
Else
If MsgBox("يوجد شخص أو أكثر قاربت عقودهم على الانتهاء" & vbCrLf & _
"هل تريد رؤيتهم", _
vbExclamation + vbYesNo, _
"العقود المنتهية") = vbYes Then
DoCmd.Close acForm, "Indx", acSaveYes 
DoCmd.OpenForm "FrmView", acNormal
 Else
 Exit Sub
 End If 
End If
تم تعديل بواسطه أبـوخليل
لتحسين عرض الكود
  • Like 1
قام بنشر (معدل)

الأخ الفاضل حسين 

 

أشكرك جزيلا علي الرد 

 

ولكن طبقت علي المرفق ولم ينجح ، نأمل الإفادة 

 

وعذرا - انا لدي اكثر من عمود به تاريخ النهاية ( وعمود بالتاريخ الهجري والأخر بالتاريخ الميلادي)، كيف يتم العمل عليهم جميعا ليعطي تنبيه لهم مع تحديد القئمة او التقرير لكل عمود 

 

ولكم جزيل الشكر

Expiry.rar

تم تعديل بواسطه طالب علم 1
قام بنشر

تفضل اخي  المرفق بعد التعديل 

يوجد خطأ في اسم الاستعلام   في الكود لانك غير اسم الاستعلام ولم تغيره في الكود 

وتوجد مشكله في نموذج  FrmExpiryView لم ادري ما هي عند فتحه تحدث مشكله تم الاصلاح

وفي الاستعلم وضعت  المعيار تحت خانة Check_Expiry  وضعت  0 بدل من flah

tast3.rar

قام بنشر

تفضل اخي  المرفق بعد التعديل 

يوجد خطأ في اسم الاستعلام   في الكود لانك غير اسم الاستعلام ولم تغيره في الكود 

وتوجد مشكله في نموذج  FrmExpiryView لم ادري ما هي عند فتحه تحدث مشكله تم الاصلاح

وفي الاستعلم وضعت  المعيار تحت خانة Check_Expiry  وضعت  0 بدل من flah

 

الأخ العزيز حسين

 

ارجو ان لا اكون قد اثقلت عليك، ولكن 

- ارجو الشرح لأني مبتدىء وكل الموجود هو عبارة عن نسخ ولصق 

-بالنسبة للتاريخ الهجري لم تحل ففي Resident_Expiry_Date ومهما غيرت للتاريخ المتقدم تظهر العشر اسماء ( فهو اعتقد يعتمد علي التاريخ الميلادي

- وبالنسبة ل Pass_Expiry_Date  وهو بالتاريخ الميلادي فاريد ايضا انشاء تنبيه علي الأثنين  يظهر في البداية ( واحد بالتاريخ الهجري ، والثاني بالتاريخ الميلادي)

وفضلا شرح الكود لأنني في مرحلة النسخ واللصق .

 

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

قام بنشر (معدل)

جرب هذ ا اولا علي التاريخ الميلادي التنبيه يكون قبل الانتهاء ب 30 يوم جرب ارجاع التاريخ الي الخلف 30 يوم

تم تعديل بواسطه حسين العربي
قام بنشر

اخي الكود مطبق  مطبق علي التاريخ الهجري

الأخ العزيز حسين

 

انا قصدي اذا وضعت التنبيه يكون علي كلا من التااريخ الهجري والتاريخ الميلادي ، 

بحيث اذا فتحت البرنامج يظهر رسالة تنبيه بإنتهاء المستندات التالية ،و يكون ( للهوية بالتاريخ الهجري ، والجواز بالتاريخ الميلادي)

فما هي الطريقة المناسبة  ، وكيف يتم ( وضعت Date() ( i  هو لتاريخ اليوم +30 فهل يقراء اي التاريخين

 

وشكرا علي سعة صدرك وذوقك

قام بنشر (معدل)

 

اخي الكود مطبق  مطبق علي التاريخ الهجري

الأخ العزيز حسين

 

انا قصدي اذا وضعت التنبيه يكون علي كلا من التااريخ الهجري والتاريخ الميلادي ، 

بحيث اذا فتحت البرنامج يظهر رسالة تنبيه بإنتهاء المستندات التالية ،و يكون ( للهوية بالتاريخ الهجري ، والجواز بالتاريخ الميلادي)

فما هي الطريقة المناسبة  ، وكيف يتم ( وضعت Date() ( i  هو لتاريخ اليوم +30 فهل يقراء اي التاريخين

 

وشكرا علي سعة صدرك وذوقك

 

اريد ان افهم هذا الجزء

وكيف يتم ( وضعت Date() ( i  هو لتاريخ اليوم +30 فهل يقراء اي التاريخين .

تم تعديل بواسطه حسين العربي
  • Like 1
قام بنشر (معدل)

اخي الفاضل حسين

 

 

كبفية معالجة انتهاء عمودين أو اكثر احدهما بتاريخ هجري والاخرين بتاريخ ميلاد ي

وذلك لعمل تنبيه بإنتهاء الوثائق 

 

وتكون في فورم واحد عند فتحه ( لديك عدد 5 جوزات قارت علي الإنتهاء- 6 هويات قاربت علي انتهاء- 2 رخصة قارت علي انتهاء )

 

ولكن حتي الأن لم تشرح طريقة التنبيه لي ، أأمل توضيح الطريقة بالتفصيل مع الخطوات واحدة بواحده اذا تفضلت

 

وشكرا جزيلا

تم تعديل بواسطه طالب علم 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information