ابو ميرال

صباح الخير عندي اكثر من صندوق وكل صندوق يختلف وقت تغذيته بالنقد عن الاخر والمده المحددة 10 الى 13 يوم واحتاج رسالة تلقائيه تظهر مثلا : ان الصندوق رقم 10 يحتاج تغذية وايضا بعد كما يوم حان تغذية الصندوق رقم 11 وايضا يظهر رسالة ان الصندوق رقم 11 يحتاج تغذية وكذلك الصناديق الاخر بشكل دوري ومستمر ايضا طبقت الكود المرسل من ابو عبدالله لكن لايعمل او اني وضعته بشكل خاطي والف شكر لكم استاذتي الصندوق.rar

صباح الخير عندي اكثر من صندوق وكل صندوق يختلف وقت تغذيته بالنقد عن الاخر والمده المحددة 10 الى 13 يوم واحتاج رسالة تلقائيه تظهر مثلا : ان الصندوق رقم 10 يحتاج تغذية وايضا بعد كما يوم حان تغذية الصندوق رقم 11 وايضا يظهر رسالة ان الصندوق رقم 11 يحتاج تغذية وكذلك الصناديق الاخر بشكل دوري ومستمر ايضا طبقت الكود المرسل من ابو عبدالله لكن لايعمل او اني وضعته بشكل خاطي والف شكر لكم استاذتي الصندوق.rar

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

صباح الخير كود تلقائي ايضا عندي اكثر من صندوق وكل صندوق يختلف وقت تغذيته بالنقد عن الاخر والمده المحددة 10 الى 13 يوم واحتاج رسالة تلقائيه تظهر مثلا : ان الصندوق رقم 10 يحتاج تغذية وايضا بعد كما يوم حان تغذية الصندوق رقم 11 وايضا يظهر رسالة ان الصندوق رقم 11 يحتاج تغذية وكذلك الصناديق الاخر والف شكر لك

تمام الله يعطيك العافية استاذي في الحقيقة عمل القوائم المنسدلة رائع شكرا لك

البرنامج حجمه كبير ورفعته على رابط

نفس الكود طبقته ونفس المشكلة Private Sub b1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error GoTo err_Form_MouseMove '... Me.a1.Visible = True Me.a2.Visible = False Me.a3.Visible = False Me.a4.Visible = False Me.A5.Visible = False Me.a6.Visible = False Me.a7.Visible = False Me.a8.Visible = False Me.a9.Visible = False '... Exit_Form_MouseMove: Exit Sub err_Form_MouseMove: If Err.Number = 2165 Then 'ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Form_MouseMove End If End Sub

تمام ابعدل الكود واشوف

يعطيك العافية انا استخدم on error resume next وتمام الان الرسالة ماظهرت لكن عندما افتح النموذج واخرج منه وانتقل الى النموذج التالي لازال النموذج الاول مفتوح على اني وضعت كود واذا رجعت عليه بالفارة يختفي Private Sub تفصيل_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next Me.a1.Visible = False Me.a2.Visible = False Me.a3.Visible = False Me.a4.Visible = False Me.A5.Visible = False Me.a6.Visible = False Me.a7.Visible = False Me.a8.Visible = False Me.a9.Visible = False End Sub

مسا الخير استاذه عملت قوائم منسدلة وعندما انتقل ويمر موشر الفارة على الازرار في البداية تظهر رسالة لا يمكنك اخفاء عنصر تحكم يتضمن التركيز run-time error 2165 وش الحل شكرا

اريد وضع كود يظهر تلقائي بدون تدخل مني

الف شكر لك سوف اطبق الكود هل واشوف هل يعطي نفس النتيجة

مساء الخير يااستاذه عاوز كود يظهر اشعارات تلقائية مرتبط بالتاريح يظهر عند اقتراب انتهاء المهلة يعني غذيت الصندوق بمبلغ معين والصندوق محكوم كل 10 ايام يتغذى بالمبلغ اريد شعار او رسالة من اكسس قبل انتهاء ال 10 ايام تذكرني بتغذية الصندوق 🤗والف شكر لكم

صباح الخير جمعة مباركة اسف تم ارفاق اكسس نسخة - البرنامج العقاري برنامج عقاري.rar