close
以用獨佔式開啟方式，設定資料庫密碼，再設計一表單，管理資料庫密碼。
eakfix">
用獨佔式開啟方式開啟所設定的密碼，好像無法建立表單去管理修改
提供建立密碼表，建立多人密碼
建立密碼表資料表
檢視圖片
開啟密碼表，輸入姓名及密碼
開啟表單設計畫面
檢視圖片
建立密碼設定按鈕的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
儲存表單設計
*可利用隱藏功能區及功能窗格，隱藏密碼表
開啟表單輸入員工姓名及密碼後就可開啟資料庫維護，去修改管理密碼
請試試看有問題再聯絡
提供建立密碼表，建立多人密碼
建立密碼表資料表
檢視圖片 開啟密碼表，輸入姓名及密碼
開啟表單設計畫面
檢視圖片 建立密碼設定按鈕的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
儲存表單設計
*可利用隱藏功能區及功能窗格，隱藏密碼表
開啟表單輸入員工姓名及密碼後就可開啟資料庫維護，去修改管理密碼
請試試看有問題再聯絡
全站熱搜
留言列表
