تفضل :
كود لكلمة مرور قاعدة بيانات بعيدة
يمكنك من خلاله
1-الغاء كلمة المرور
2- تعديل كلمة المرور
3- انشاء كلمة مرور جديدة
Private Sub ChangeAccessPassword(OldPass As String, NewPass As String)
Dim Db As Database
' opens the databse, using the old password.
' replace "C:\MyDir\Mydb1.mdb" with your database file name
Set Db = OpenDatabase("C:\MyDir\Mydb1.mdb", True, False, ";pwd=" & OldPass)
' setthe new password
Db.NewPassword OldPass, NewPass
' close the database
Db.Close
End Sub
Private Sub Command1_Click()
' replace "oldPassword" with the current database password, and
' "newPassword" with the new password you want the database will have.
Call ChangeAccessPassword("oldPassword", "newPassword")
End Sub