06-10-25, 08:53 PM
السلام عليكم ورحمة الله و بركاته
الاجراء التالي يضغط ملف اكسس ويتحكم بكلمة المرور اذا موجودة يغيرها او يحذفها وفق المعطيات لكن كيف اجعل الاجراء يضيف كلمة مرور ان لم تكن موجودة في ملف الاكسس اقصد اذا كان ملف الاكسس غير محمي بكلمة مرور كيف اضع له كلمة مرور عن طريق الاجراء التالي:
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