السلام عليكم ورحمة الله و بركاته
الاجراء التالي يضغط ملف اكسس ويتحكم بكلمة المرور اذا موجودة يغيرها او يحذفها وفق المعطيات لكن كيف اجعل الاجراء يضيف كلمة مرور ان لم تكن موجودة في ملف الاكسس اقصد اذا كان ملف الاكسس غير محمي بكلمة مرور كيف اضع له كلمة مرور عن طريق الاجراء التالي:
PHP كود :
Private Sub compact(ByVal olddb As String, ByVal newdb As String, Optional ByVal dbpass As String = "", Optional ByVal Alock As Boolean = False, Optional ByVal newpassword As String = "")
Dim comp As New Microsoft.Office.Interop.Access.Dao.DBEngine
If dbpass.Trim = "" Then
comp.CompactDatabase(olddb, newdb)
Else
If Alock Then
comp.CompactDatabase(olddb, newdb, ";pwd=" & dbpass,, ";pwd=" & dbpass)
Else
comp.CompactDatabase(olddb, newdb, ";pwd=",, ";pwd=" & dbpass)
End If
End If
End Sub
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير