iT邦幫忙

0

Access 設定表單存取權限

  • 分享至 

  • xImage

想要在Access裡設定個別使用者存取不同表單的權限,請問使用VBA該怎麼寫?
例如
USER1 表單1(開啟,新增,修改,刪除),表單2(開啟),表單3(開啟,新增,修改,刪除)
USER2 表單1(開啟),表單2(開啟,新增,修改,刪除)
USER3 表單2(開啟,新增,修改,刪除),表單3(開啟,新增,修改,刪除)

不同使用者有不同權限,有辦法在Access裡實現嗎?
目前登入的帳號密碼是這樣設

Private Sub 登入_Click()

If IsNull(Me!員工編號) = True Or Me!員工編號 = "" Then
MsgBox "帳號欄空白!"
員工編號.SetFocus
Exit Sub
Else
If IsNull(Me!身份證號) = True Or Me!身份證號 = "" Then
MsgBox "密碼欄空白!"
身份證號.SetFocus
Exit Sub
End If
End If
If IsNull(DLookup("員工編號", "員工-1", "員工編號='" & 員工編號 & "'")) Then
MsgBox "帳號錯誤"
員工編號.SetFocus
Exit Sub
Else
If IsNull(DLookup("身份證號", "員工-1", "員工編號='" & 員工編號 & "' and 身份證號='" & 身份證號 & "'")) Then
MsgBox "密碼錯誤"
身份證號.SetFocus
Exit Sub
End If
End If
MsgBox "登入成功"
DoCmd.OpenForm "產品評估表表單"
DoCmd.Close acForm, "登入視窗"
End Sub

謝謝

圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

1 個回答

0
davidliu9116
iT邦研究生 2 級 ‧ 2023-09-04 14:07:52
請在每個表單內進行授權分配

新增權限:
Me.AllowAdditions = True

修改權限:
Me.AllowEdits = True

刪除權限:
me.AllowDeletions=True

我要發表回答

立即登入回答