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

[Ahmed Fahmy 2022]

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

ده ملف اكسس انا حاطط فيه جميع انواع الحماية

وزودت عليهم كود تفعيل للملف واسم وباسورد مستخدم

المطلوب: اظهار الجداول والاستعلامات واكواد النماذج او التعديل على الملف بأي طريقة ممكنة

هسيب رابط الملف في اول كومنت

*تعديل:

الملف اكسس اصدار ٢٠١٩ نسخة ٣٢ بت

الاكواد في الصورة في حالة انك ماعرفتش تفتحه بطرق غير شرعية

https://www.mediafire.com/file/f09h5q8ww19rd8l/InvoiXe-test.zip/file?fbclid=IwAR1z8nglRDu-8H8JEteS-WIXl-v0Aq-2qVrNmqoQge1-R-lqLN7w2DYjguI

منقول للاستفادة

تم تعديل أغسطس 8, 2021 بواسطه 200200ahmed

[kanory]

انت في منتدى كله خبراء وانا تلميذ لديهم انظر هل هذا جزء من اكوادك .....

Private Sub btnActivate_Click()
    Solved = CLng(Me.txtNum)
    If IsNumeric(Me.txtKey) = True Then
        If CLng(Nz(Me.txtKey, 0)) = 123456789 Then
            If Len(Me.txtCode) = 9 Then
                If Left(Me.txtCode, 1) = "i" Or Left(Me.txtCode, 1) = "c" Then
                    If Right(Me.txtCode, 1) = "x" Or Right(Me.txtCode, 1) = "o" Then
                        If IsNumeric(Mid(txtCode, 5, 1)) = True Then
                            If IsNumeric(Mid(Me.txtCode, 3, 1)) = True Then
                                If IsNumeric(Mid(Me.txtCode, 7, 1)) = True Then
                                    mNum = (Val(Mid(Me.txtCode, 3, 1)) + Val(Mid(txtCode, 5, 1)) + Val(Mid(Me.txtCode, 7, 1))) - 1
                                    DLOldKey = Nz(DLookup("[OldKey]", "tblSetting"), 0)
                                    If Me.txtCode <> DLOldKey Then
                                        DoCmd.SetWarnings False
                                        DoCmd.RunSQL "Update tblSetting Set tblSetting.BaseDate=#" & Format(Date, "yyyy/mm/dd") & "#"
                                        DoCmd.RunSQL "Update tblSetting Set tblSetting.ActiveDate=#" & Format(DateAdd("m", mNum, Date), "yyyy/mm/dd") & "#"
                                        DoCmd.RunSQL "Update tblSetting Set tblSetting.OldKey='" & Me.txtCode & "'"
                                        DoCmd.SetWarnings True
                                        MB = MsgBox("Êã ÊÝÚíá ÇáäÙÇã ÈäÌÇÍ" & vbNewLine & "ÓÇÑí ÍÊì: " & DateAdd("m", mNum, Date), vbInformation, "Êã ÇáÊÝÚíá!")
                                        DoCmd.Close
                                        DoCmd.OpenForm "frmMainLogin"
                                    Else
                                        Me.txtCode = ""
                                        MB = MsgBox("ßæÏ ÊÝÚíá ãäÊåí ÇáÕáÇÍíÉ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!")
                                        Me.txtCode.SetFocus
                                    End If
                                Else
                                    Me.txtCode = ""
                                    MB = MsgBox("ßæÏ ÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!")
                                    Me.txtCode.SetFocus
                                End If
                            Else
                                Me.txtCode = ""
                                MB = MsgBox("ßæÏ ÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!")
                                Me.txtCode.SetFocus
                            End If
                        Else
                            Me.txtCode = ""
                            MB = MsgBox("ßæÏ ÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!")
                            Me.txtCode.SetFocus
                        End If
                    Else
                        Me.txtCode = ""
                        MB = MsgBox("ßæÏ ÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!")
                        Me.txtCode.SetFocus
                    End If
                Else
                    Me.txtCode = ""
                    MB = MsgBox("ßæÏ ÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!")
                    Me.txtCode.SetFocus
                End If
            ElseIf Me.txtCode = "ÊÓÊ íÇ Úã" Then
                Me.txtCode = ""
                MB = MsgBox("Êã ÊÝÚíá ÇáäÙÇã ãÄÞÊÇ", vbInformation, "Êã ÇáÊÝÚíá!")
                DoCmd.Close
                DoCmd.OpenForm "frmMainLogin"
            Else
                Me.txtCode = ""
                MB = MsgBox("ßæÏ ÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!")
                Me.txtCode.SetFocus
            End If
        Else
            Me.txtKey = ""
            MB = MsgBox("ãÝÊÇÍ ÇáÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!")
            Me.txtKey.SetFocus
        End If
    Else
        Me.txtKey = ""
        MB = MsgBox("ãÝÊÇÍ ÇáÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!")
        Me.txtKey.SetFocus
    End If
End Sub

 

[ابوخليل]

لا نحب مثل هذه المواضيع

مع شديد الاعتذار لاستاذي kanory