البحث في الموقع
Showing results for tags 'alarm'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله وبركاته لدي نموذج يفتح مع بداية البرنامج وهو يحتوي على مواعيد محددة بالوقت لهذا اليوم سؤالي بالتحديد ... هل طريقتي بإستخدام هذا الكود صحيحه ولن تبسبب مشاكل للنظام لو فرضنا ان البرنامج يعمل طوال اليوم هذا هو الكود وفي المرفق توضيح اكثر 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
