資料庫密碼設計－猜猜我是誰??

以用獨佔式開啟方式，設定資料庫密碼，再設計一表單，管理資料庫密碼。

用獨佔式開啟方式開啟所設定的密碼，好像無法建立表單去管理修改
提供建立密碼表，建立多人密碼
建立密碼表資料表

檢視圖片
開啟密碼表，輸入姓名及密碼

開啟表單設計畫面

檢視圖片
建立密碼設定按鈕的OnClick事件程序
Private Sub Command11_Click()
Dim pwd, Nm
    Me!Text0 = ""
    Nm = InputBox("請輸入姓名:", "資料庫修改管制")
    Text0 = DLookup("密碼", "密碼表", "姓名='" & Nm & "'")
    If IsNull(Text0) Then
    MsgBox "姓名錯誤!!! 非資料庫維護人員請勿開啟!"
    Exit Sub
    Else
    pwd = InputBox("請輸入密碼:", "資料庫修改管制")
    If pwd = Text0 Then '密碼自行設定
    DoCmd.OpenForm "資料庫維護"
    Else:
    MsgBox "密碼錯誤!!! 非資料庫維護人員請勿開啟!"
    End If
    End If
End Sub
儲存表單設計
*可利用隱藏功能區及功能窗格，隱藏密碼表
開啟表單輸入員工姓名及密碼後就可開啟資料庫維護，去修改管理密碼
請試試看有問題再聯絡