基于 Environ("Username") 限制对数据库的访问

Question

我的数据库在启动时打开一个特定的表单，它会检查用户名，如果它与 VBA 中的编码不匹配，那么它会记录用户信息并将他们踢出数据库。

我的问题是我可以使用 VBA 检查当前用户 -Environ("USERNAME")- 是否匹配 table 中的几个单元格之一，然后执行我的代码基于结果。

Table 名称是 "AccessListing"，行 "IDNUM" 包含少数成员 USERNAME。

我的理由是因为我不会一直在我的岗位上工作，所以我试图让它万无一失。这样我走的时候，下一个人就不会顶起来了。

Answer 1

if Dcount("IDNUM","AccessListing","IDNUM = '" & Environ("USERNAME") & "'") > 0 then 
'do something when user is in list
else
'do something when user not in list
endif

请注意 Environ("USERNAME") 不安全，它可能被操纵！

基于 Environ("Username") 限制对数据库的访问

Limiting access to database based on Environ("Username")

ms-access

vba

ms-access-2013