مثال مبسط لإضافة أسماء المستخدمين من خلال الكود

السلام/

تم اعداد الإجراءات التالية:

إضافة مستخدم
addNewUser(userName As String, ID As String, Optional password As String)
حذف مستخدم
deleteUser(userName As String)
تغير الرقم السري لمستخدم
changePassword(userName As String, oldPass As String, NewPass As String)

ولعمل هذه الإجراءات يجب نسخ ما يلي في وحده نمطية ويتم حفظها داخل ملف Access

Sub addNewUser(userName As String, ID As String, Optional password As String)
On Error GoTo han
   DBEngine.Workspaces(0).Users.Append DBEngine.Workspaces(0).CreateUser(userName, ID, password)
   MsgBox "User: " & userName & " was added"
Exit Sub
han:
	MsgBox Err.Description
End Sub

Sub deleteUser(userName As String)
On Error GoTo han
DBEngine.Workspaces(0).Users.Delete userName
 MsgBox "User: " & userName & " was deleted"
Exit Sub
han:
	MsgBox Err.Description
End Sub

Sub changePassword(userName As String, oldPass As String, NewPass As String)
On Error GoTo han
	DBEngine.Workspaces(0).Users(userName).NewPassword oldPass, NewPass
 MsgBox "Change password for: " & userName
Exit Sub
han:
	MsgBox Err.Description
End Sub

ولضيق الوقت لم اتم باقي الأوامر مثل إضافة مستخدم إلى مجموعة، تحديد الصلاحيات وغيرها من الأمور.

وبأذن الله في وقت لاحق سأقوم بتطبيق باقي الأوامر للحصول على وحدة نمطية كاملة لتنظيم عملية الدخول لأي نظام Access ويمكن استخدامة في أكثر من مشروع عن طريق الكود

أخوك/ فراس فهد ناصر