الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تعديل كود تنبيه

مغلقمُجاب
بدأه أبا عمر في 15 أكتوبر 2013 · 6 رد · 773 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة _الل_ه وبركاته
كل عام وأنتم إخواني بخير وعافية
كل عام وأنتم الى _الله_ أقرب 
أسأل _الله_ في عليائه أن يعفر لكم أجمعين
الكود التالي كود للتنبيه  لا يعمل معي بهذه الطريقة الموضحة بالكود لكن في حال استبدال X برقم ( أي المدة المطلوبة يعمل ) أرجو إفادتي 
مثال / 
xx.rar

Public Function exp()Dim intStore As IntegerDim x As Integer("x = DLookup("", "SS("intStore = DCount("[SRYAL_]", "[amer]", "[DATE_AMER] <=Date()- x AND [ekaf] =0 If intStore = 0 ThenExit FunctionElseIf MsgBox("يوجد  " & intStore & "معاملة " & _          "تجاوزت موعدها " & vbCrLf & vbCrLf & _          "                                             " & _          " هل تريدالمعاينة الآن؟ " & _          " ", vbYesNo Or vbExclamation Or vbDefaultButton1, _          "تنبيه") = vbYes Then          DoCmd.OpenForm "FRM_AMER3"End IfEnd IfEnd Function

تم تعديل هذه المشاركة بواسطة أبا عمر في 15 أكتوبر 2013 في 14:49

عَنْ عَائِشَةَ ر ضي الله عنها قَالَتْ: سَمِعْتُ النَّبِيَ يَقُولُ: «الأَرْوَاحُ جُنُودٌ مُجَنَّدَةٌ؛ فَمَا تَعَارَفَ مِنْهَا ائْتَلَفَ، وَمَا تَنَاكَرَ مِنْهَا اخْتَلَفَ»

#2

اخي الفاضل : ابا عمر

 

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

 

وكل عام وانتم بخير

 

 

جرب هذا التعديل

 

 

Public Function exp()Dim intStore As IntegerDim X As IntegerX = DLookup("", "SS")intStore = DCount("[SRYAL_]", "amer", "[DATE_AMER] <= Date - X   And [ekaf] = 0")If intStore = 0 ThenExit FunctionElseIf MsgBox("  يوجد   " & intStore & "  معاملة   " & _          " تجاوزت موعدها  " & vbCrLf & vbCrLf & _          "                                             " & _          " هل تريد المعاينة الآن ؟ " & _          " ", vbYesNo Or vbExclamation Or vbDefaultButton1, _          "تنبيه") = vbYes Then          DoCmd.OpenForm "FRM_AMER3"End IfEnd IfEnd Function
 

 

 

بالتوفيق

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#3

السلام عليكم ورحمة الله وبركاته
أختي الفاضلة جزاكم _الله_ خيرا  لكن نفس المشكلة يعطي رسالة لقد قمت بإلغاء العملية السابقة

عَنْ عَائِشَةَ ر ضي الله عنها قَالَتْ: سَمِعْتُ النَّبِيَ يَقُولُ: «الأَرْوَاحُ جُنُودٌ مُجَنَّدَةٌ؛ فَمَا تَعَارَفَ مِنْهَا ائْتَلَفَ، وَمَا تَنَاكَرَ مِنْهَا اخْتَلَفَ»

#4

جرب هذا الآن

 

Public Function exp()Dim intStore As Integer'Dim X As Integer'X = DLookup("", "SS")intStore = DCount("[SRYAL_]", "amer", "[DATE_AMER] <= Date - DLookup('', 'SS')   And [ekaf] = 0")If intStore = 0 ThenExit FunctionElseIf MsgBox("  يوجد   " & intStore & "  معاملة   " & _          " تجاوزت موعدها  " & vbCrLf & vbCrLf & _          "                                             " & _          " هل تريد المعاينة الآن ؟ " & _          " ", vbYesNo Or vbExclamation Or vbDefaultButton1, _          "تنبيه") = vbYes Then          DoCmd.OpenForm "FRM_AMER3"End IfEnd IfEnd Function

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#5

أختي الفاضلة جزاكي ربي جنته 
أعتذر على إزعاجكم
عند التطبيق كما في الكود الأخير المعدل من قبلكم لوحظ وجود خطأ كما في المرفق بعد التطبيق
xx_2.rar
جزاكم _الله_ خيرا الجزاء ورفع قدركم ومن تحبون ومن تخصونهم بالدعاء

عَنْ عَائِشَةَ ر ضي الله عنها قَالَتْ: سَمِعْتُ النَّبِيَ يَقُولُ: «الأَرْوَاحُ جُنُودٌ مُجَنَّدَةٌ؛ فَمَا تَعَارَفَ مِنْهَا ائْتَلَفَ، وَمَا تَنَاكَرَ مِنْهَا اخْتَلَفَ»

#6 أفضل إجابة

تفضل اخي الكريم : ابا عمر

 

الملف بعد التعديل

 

post-15367-0-33485500-1381844220_thumb.g

 

راجع الكود البرمجي في الوحدة النمطية

 

za-XX-Up.rar

 

بالتوفيق

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#7

جزاكم _الله_ خيراً أختي الكريمة 
تم التعديل بنجاح 
أسأل _الله_ في عليائه أن يبشركِ بما تحبين ويمن عليكِ من فضله بما لم يخطر لكي ببال ومن تحبين ومن تخصينهم بالدعاء

عَنْ عَائِشَةَ ر ضي الله عنها قَالَتْ: سَمِعْتُ النَّبِيَ يَقُولُ: «الأَرْوَاحُ جُنُودٌ مُجَنَّدَةٌ؛ فَمَا تَعَارَفَ مِنْهَا ائْتَلَفَ، وَمَا تَنَاكَرَ مِنْهَا اخْتَلَفَ»

هذا الموضوع مغلق.

مواضيع مشابهة