Question

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

我的问题是我可以使用VBA来检查当前用户-Environ（＆＃34; USERNAME＆＃34;）是否匹配表中的一个单元格，然后根据结果执行我的代码。 / p>

表名是＆＃34; AccessListing＆＃34;和行＆＃34; IDNUM＆＃34;包含少数成员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（＆＃34; USERNAME＆＃34;）不安全，可能会被操纵！

限制基于Environ的数据库访问（＆＃34;用户名＆＃34;）

1 个答案: