ايقاف النموذج بمدة محددة (عنوان معدل)

[zero111330566]

اريد كود لاضافتة فى النموذج الرئيسى لعمل فترة محددة مثلا شهر و قبل الانتهاء باسبوع تعطيني رساله بعد تنازلي لانتهاء الفترة  و فى حاله تقديم او تاخير ساعة الكمبيوتر يعطينى رسالة ان الساعة تم تقديمها او تاخيرها ويغلق البرنامج 

مع مثال مرفق للنموذج 

إيقاف بالمدة.mdb

[محمد أبوعبدالله]

السلام عليكم

نقوم اولاً بتصميم جدول وليكن = ChickDate

وضنع فيه حقلين نوع تاريخ = XDate و XDate2

في حدث عند التحميل للنموذج الرئيسي نضع الكود التالي

Private Sub Form_Load()
Dim X1 As Date
        X1 = Format(Now(), "dd/mm/yyyy")
        
        Dim db As DAO.Database
        Dim Rs As DAO.Recordset

        Set db = CurrentDb
        
        Set Rs = db.OpenRecordset("SELECT ChickDate.*FROM ChickDate;")
        ' فحص السجلات اولاً
        If Rs.EOF Then
        '  في حالة انه لا يوجد سجلات يضع تاريخ اليوم في حقل XDate
            Rs.AddNew
            Rs("XDate") = X1
            Rs.Update
            Rs.Close
        Else
                ' نفحص حقل XDate2 الذي به حقل بداية تشغيل البرنامج
                If Format(Rs("XDate2"), "dd/mm/yyyy") < X1 Then
                    MsgBox "تم التلاعب بساعة الجهاز"
                Else
                    ' نفحص حقل XDate اذا كان اكبر من تاريخ اليوم يغلق النموذج
                    If Format(Rs("XDate"), "dd/mm/yyyy") < X1 + 5 Then
                    MsgBox "end"
        
                End If
            End If
        End If

End Sub

 

تحياتي

إيقاف بالمدة.rar

[zero111330566]

جميل المجهود دة بس انا غيرت تاريخ الجهاز لم يعطنى اى رسالة بتعديل الجهاز 

وانت عامل قبل التاريخ بخمس ايام بيغلق البرنامج انا عايزة يعطينى رساله بباقى الفترة

 

[محمد أبوعبدالله]

جرب الآن واعلمني بالنتيجة

إيقاف بالمدة.rar

تحياتي

 

[ابو ياسين المشولي]

مشاركة مع اخي ابو عبدالله

Dim X1 As Date
        X1 = Format(Now(), "dd/mm/yyyy")

        Dim db As DAO.Database
        Dim Rs As DAO.Recordset

        Set db = CurrentDb

        Set Rs = db.OpenRecordset("SELECT ChickDate.*FROM ChickDate;")
        ' فحص السجلات اولاً
        If Rs.EOF Then
        '  في حالة انه لا يوجد سجلات يضع تاريخ اليوم في حقل XDate
            Rs.AddNew
            Rs("XDate") = X1
            Rs.Update
            Rs.Close
          DoCmd.SetWarnings False
         DoCmd.RunSQL "UPDATE [ChickDate]  SET [XDate] = date()"
         DoCmd.RunSQL "UPDATE [ChickDate]  SET [XDate2] = date()+5"
         DoCmd.SetWarnings True

        Else
'                ' نفحص حقل XDate2 الذي به حقل بداية تشغيل البرنامج
'                If Format(Rs("XDate2"), "dd/mm/yyyy") < X1 Then
'                    MsgBox "تم التلاعب بساعة الجهاز"
 If X1 < Format(Rs("XDate"), "dd/mm/yyyy") Then
            MsgBox "تم التلاعب بساعة الجهاز"
            Exit Sub
        End If

'                Else
                    ' نفحص حقل XDate اذا كان اكبر من تاريخ اليوم يغلق النموذج
                    If Format(Rs("XDate"), "dd/mm/yyyy") < X1 + 5 Then
         MsgBox ("          عزيزي المستخدم لقد تم السماح لك بإستخدام البرنامج   " & Chr(13) & "  لمدة خمسة ايام تبدأ من   " & Format(DLookup("[XDate]", "ChickDate", "[id]"), "yyyy/mm/dd") & "  وتنتهي بتاريخ   " & Format(DLookup("[XDate2]", "ChickDate", "[id]"), "yyyy/mm/dd" & Chr(13) & "       وللعلم سيتم اقاف البرنامج بعد ذلك التاريخ ")), vbYes, "              ابو ياسين المشولي : فترة السماح "

                End If
            End If

 

إيقاف بالمدة.mdb

[zero111330566]

الف شكر اخ محمد ابوعبد الله واخ ابو ياسين المشولي مشكور ليكوا جدا 

بس انا عمل كود من الاخ العزيز احمد عبد المنعم واشاركوا معكم 

رسالة بتعديل وقت الجهاز.mdb