المساعدة فى حل مشكلة التلاعب بتاريخ الجهاز

[سامر محمود]

الاخوة الكرام الافاضل 

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

عندي كود انتهاء تاريخ البرنامج محدد بتاريخ طبعا بس كنت محتاج مساعدة حضراتكم في تعديله في حالة مستخدم لعب في تاريخ الجهاز

اكون شاكر لحضراتكم جدا علي المساعدة 

Private Sub Form_Open(Cancel As Integer)
If Date > #12/28/2023# Then
 MsgBox " حدث عطل فني  " & vbCrLf & vbCrLf & _

" يرجي الاتصال علي مصمم البرنامج " & vbCrLf & vbCrLf & _
"  سامر محمود تليفون  ", vbOKOnly + vbMsgBoxRight + vbExclamation
DoCmd.Quit

end if

End Sub

[ابوخليل]

اعتمد على تاريخ الانترنت

 

[طاهر الوليدي]

السلام عليكم 

الاستاد خليل

ماهو الكود الاعتماد على تاريخ الانترنت . وكيف اذا كان الانترنت مفصول.

[Foksh]

مشاركة جانبية ،،

جرب هذه الفكرة اعتماداً على كودك

Private Sub Form_Open(Cancel As Integer)
    Dim expirationDate As Date
    expirationDate = #12/28/2023#

    If Not IsDateValid(expirationDate) Then
        MsgBox "تم اكتشاف تلاعب بتاريخ الجهاز." & vbCrLf & vbCrLf & _
               "يرجى الاتصال بمصمم البرنامج." & vbCrLf & vbCrLf & _
               "سامر محمود تليفون", vbOKOnly + vbMsgBoxRight + vbExclamation
        DoCmd.Quit
    End If

    If Now > expirationDate Then
        MsgBox "حدث عطل فني" & vbCrLf & vbCrLf & _
               "يرجى الاتصال بمصمم البرنامج." & vbCrLf & vbCrLf & _
               "سامر محمود تليفون", vbOKOnly + vbMsgBoxRight + vbExclamation
        DoCmd.Quit
    End If
End Sub

Function IsDateValid(testDate As Date) As Boolean
    ' تحقق من أن التاريخ لم يتم تلاعب به بشكل كبير (تأخير طويل جدا)
    Const MaxDelayDays As Integer = 7
    IsDateValid = Abs(DateDiff("d", Now, testDate)) <= MaxDelayDays
End Function

الكود الأول بالإعتماد على مدة محددة للتلاعب ،،

والكود التالي بدون تحديد مدة

Private Sub Form_Open(Cancel As Integer)
    Dim expirationDate As Date
    expirationDate = #12/28/2023#

    If Not IsDateValid(expirationDate) Then
        MsgBox "تم اكتشاف تلاعب بتاريخ الجهاز." & vbCrLf & vbCrLf & _
               "يرجى الاتصال بمصمم البرنامج." & vbCrLf & vbCrLf & _
               "سامر محمود تليفون", vbOKOnly + vbMsgBoxRight + vbExclamation
        DoCmd.Quit
    End If

    If Now > expirationDate Then
        MsgBox "حدث عطل فني" & vbCrLf & vbCrLf & _
               "يرجى الاتصال بمصمم البرنامج." & vbCrLf & vbCrLf & _
               "سامر محمود تليفون", vbOKOnly + vbMsgBoxRight + vbExclamation
        DoCmd.Quit
    End If
End Sub

Function IsDateValid(testDate As Date) As Boolean
    ' التحقق من أن التاريخ لم يتم تلاعب به
    IsDateValid = (DateDiff("d", Now, testDate) >= 0)
End Function

 

تم تعديل ديسمبر 29, 2023 بواسطه Foksh
إضافة

[سامر محمود]

2 ساعات مضت, Foksh said:

مشاركة جانبية ،،

جرب هذه الفكرة اعتماداً على كودك

Private Sub Form_Open(Cancel As Integer)
    Dim expirationDate As Date
    expirationDate = #12/28/2023#

    If Not IsDateValid(expirationDate) Then
        MsgBox "تم اكتشاف تلاعب بتاريخ الجهاز." & vbCrLf & vbCrLf & _
               "يرجى الاتصال بمصمم البرنامج." & vbCrLf & vbCrLf & _
               "سامر محمود تليفون", vbOKOnly + vbMsgBoxRight + vbExclamation
        DoCmd.Quit
    End If

    If Now > expirationDate Then
        MsgBox "حدث عطل فني" & vbCrLf & vbCrLf & _
               "يرجى الاتصال بمصمم البرنامج." & vbCrLf & vbCrLf & _
               "سامر محمود تليفون", vbOKOnly + vbMsgBoxRight + vbExclamation
        DoCmd.Quit
    End If
End Sub

Function IsDateValid(testDate As Date) As Boolean
    ' تحقق من أن التاريخ لم يتم تلاعب به بشكل كبير (تأخير طويل جدا)
    Const MaxDelayDays As Integer = 7
    IsDateValid = Abs(DateDiff("d", Now, testDate)) <= MaxDelayDays
End Function

الكود الأول بالإعتماد على مدة محددة للتلاعب ،،

والكود التالي بدون تحديد مدة

Private Sub Form_Open(Cancel As Integer)
    Dim expirationDate As Date
    expirationDate = #12/28/2023#

    If Not IsDateValid(expirationDate) Then
        MsgBox "تم اكتشاف تلاعب بتاريخ الجهاز." & vbCrLf & vbCrLf & _
               "يرجى الاتصال بمصمم البرنامج." & vbCrLf & vbCrLf & _
               "سامر محمود تليفون", vbOKOnly + vbMsgBoxRight + vbExclamation
        DoCmd.Quit
    End If

    If Now > expirationDate Then
        MsgBox "حدث عطل فني" & vbCrLf & vbCrLf & _
               "يرجى الاتصال بمصمم البرنامج." & vbCrLf & vbCrLf & _
               "سامر محمود تليفون", vbOKOnly + vbMsgBoxRight + vbExclamation
        DoCmd.Quit
    End If
End Sub

Function IsDateValid(testDate As Date) As Boolean
    ' التحقق من أن التاريخ لم يتم تلاعب به
    IsDateValid = (DateDiff("d", Now, testDate) >= 0)
End Function

 

الاخ الكريم الغالي @Foksh

دايما ليك لمساتك اللي بنتعلم منها بشكرك بجد علي المساعدة الكريمة الغالية 

[Foksh]

3 ساعات مضت, سامر محمود said:

الاخ الكريم الغالي @Foksh

دايما ليك لمساتك اللي بنتعلم منها بشكرك بجد علي المساعدة الكريمة الغالية 

بعض ما عندكم أخي سامر 🤗