Environ（ "Username"）に基づいてデータベースへのアクセスを制限する

Question

データベースが起動時に特定のフォームに開き、ユーザー名をチェックし、VBAでコード化されたものと一致しない場合は、情報を収集し、それらをデータベースから取り出す。

私の質問は、現在のユーザー-Environ（ "USERNAME"）がテーブルのいくつかのセルの1つと一致するかどうかをチェックし、その結果に基づいてコードを実行することができます。

テーブル名は「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"）は安全ではないことに注意してください、それが操作することができます！