البحث في الموقع
Showing results for tags 'تنبيه'.
تم العثور علي 2 نتائج
-
السلام عليكم ورحمة الله وبركاته استاذي الكريم / واجهت مشكلة ولم استطع حلها حيث ان الموظف قد عمل معي فترة من الزمن ، وحيث ان نظام العمل المعمول به من قبل الدولة يتم تجديد العقد تلقائي اذا ما تم اخطار الاخر باشعار خطي قبل 90 يوم من انتهاء العقد اريد عداد يقوم بعد الايام في حالة قرب انتهاء العقد ، ملاحظة هامة / يتم الاتفاق في بعض الاحيان على سنة أو سنة ونصف أو سنتان وهكذا حسب الاتفاق بالعقد بين الشركة والموظف بارك الله فيكم ووالديكم واعتقهم من النار وجازكم الله عنا خير الجزاء. وشكراً،،، طلب عداد بقرب انتهاء عقد.rar
-
السلام عليكم ورحمة الله وبركاته لدي نموذج يفتح مع بداية البرنامج وهو يحتوي على مواعيد محددة بالوقت لهذا اليوم سؤالي بالتحديد ... هل طريقتي بإستخدام هذا الكود صحيحه ولن تبسبب مشاكل للنظام لو فرضنا ان البرنامج يعمل طوال اليوم هذا هو الكود وفي المرفق توضيح اكثر Private Function sSA() On Error Resume Next Dim i, r As Integer Dim rs As Recordset Set rs = Me.RecordsetClone r = rs.RecordCount rs.MoveLast rs.MoveFirst For i = 1 To r If rs!mish_time = Time() Then DoCmd.OpenForm "alarm" End If rs.MoveNext Next rs.Close Set rs = Nothing End Function يتم استدعاء هذه الدالة عند حدث عداد الوقت كما هو موضح في النموذج frm_missions شكرا لكم AlartSysteM2003.rar