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

الحدث في الفورم لا يستجيب ولا ينفذ هذه الدالة

بدأه الازدي في 16 فبراير 2014 · 3 رد · 305 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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


 


الاخوة والاخوات بارك الله فيكم اعذروني اثقلت عليكم والله لا غنى لي عنكم في مساعدتكم لاني والله احاول ولم تنفع معي لقلة خبرتي في تنفيذ الاكواد


 


لا اطيل


 


لدي هذه الدالة وهي عند مضي اكثر من 15 يوم من تاريخ تسجيل الحالة فهناك رسالة تظهر تخبر بعدد السجلات المتأخرة الدالة تعمل وصحيحة لكن عند وضعها في حدث عند الفتح او التحميل او بعد التحديث او غيرها لاتعمل او قل لا تنشط الا في حدث الحالي وذلك بعد النقر على التاريخ المتأخر


 


هذه هي الدالة 


Dim intStore As Integer

 intStore = DCount("[vdate]", "[ÚÇã]", "[vdate] <=Date()-15 ")


  If [vdate] <= Date - 15 Then

   If MsgBox("íæÌÏ " & intStore & "ãä ÇáãÓÊÍÞÇÊ áã íÊã ÇÑÓÇáåÇ ÈÚÏ ", VBA.VbMsgBoxStyle.vbOKOnly) Then DoCmd.OpenForm "new", acNormal

Else

Exit Sub

DoCmd.OpenForm "new", acNormal

   End If

وفي المرفقات المثال :blush:


 


 


 


 


 


important .zip

#2

اتوقع ان المشكلة في عدم استخدام المتغير intstore في شرط المقارنة . عدل شرط المقارنة ليصبح

if intstore >0 then

1

خبير تحليل النظم

خبير Business Process ونظم ERPs

خبير قواعد بيانات وبرمجة اكسس

 

abc_2_me@hotmail.com

#3

شكرا لاستجابتكم اخي الكريم

 

لكن والله لا اعلم مالسبب انا الان احاول بما ذكرتم ولم اتوصل الى نتيجة حتى اذا وضعت زر ونقرت عليه لا يحدث شيْ

#4

بارك الله فيكم اخي

ramhan

 

نعم فعلا كلامك سليم الكود الان يعمل بعد التعديل 

Dim intStore As Integer

intStore = DCount("[vdate]", "[ÚÇã]", "[vdate] <=Date()-15 ")

 If intStore = 0 Then
 Exit Sub
 Else
  
   If MsgBox("íæÌÏ " & intStore & "ãä ÇáãÓÊÍÞÇÊ áã íÊã ÇÑÓÇáåÇ ÈÚÏ ", VBA.VbMsgBoxStyle.vbOKOnly) Then DoCmd.OpenForm "new", acNormal
   
Exit Sub
End If
   
   End Sub

هذا السطر لم يكن له داعي لا ادري لماذا وضعته من الاساس !؟

  If [vdate] <= Date - 15 Then

 حلت المشكلة اشكرك جزيل الشكر

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…