用户只能在MS Access 2013数据库中编辑和查看包含其电子邮件的记录

Question

我目前有一个Access数据库，其主表包含用户记录，主键是他们的电子邮件。与该用户相关的其他记录保存在与其电子邮件链接的辅助表中。目前我有一个数据输入的前端设置，但这允许任何人访问查看和编辑所有记录。

我想创建一个登录表单，要求他们的电子邮件和ID号登录（两者都是主表中的字段）。登录后，我希望数据库限制用户只能查看和编辑他们的记录以及链接到其电子邮件的辅助表中的记录。 MS Access是否可行？

Answer 1

当然。您需要创建一个登录表单（互联网上有很多用于登录表单的示例）。将此表单设置为Access数据库中的起始表单，并使其成为一个对话框。然后让用户输入他们的电子邮件和ID号。在他点击登录按钮后，你可以做这样的事情（检查现有的电子邮件地址或ID）：

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("TableWithEMailAdresses", dbOpenSnapshot)

rs.FindFirst "EMailAdressColumn = '" & Me!EMailTextboxInput.Value & "'"

If rs.NoMatch Then    
  Msgbox "No Login for you!"
  'Do stuff
Else
  Msgbox "Login success!"
  'Do other stuff  
End If

当然，您需要根据您的情况调整代码。