Access表如何引用指定单元格 实现SHA1哈希密码登录校验

你不需要单独找「指定单元格引用」的特殊写法，Access本身没有Excel那种单元格定位逻辑，直接用你已经在用的DLookup函数，或者用Recordset对象就能拿到指定行的字段值，具体实现如下：

方法1：直接复用DLookup函数（最简方案） #

DLookup的第一个参数就是你要取值的目标字段名，你之前判断用户名存在时第一个参数传的是UserName，所以只返回用户名，只要把第一个参数替换成你存储SHA1哈希值的密码字段名（示例中假设字段名为PasswordHash，请替换为你实际的字段名），就能直接拿到对应用户的存储哈希值，不需要分两次查询。
完整校验逻辑参考：

Dim storedHash As Variant
Dim inputHash As String

' 对用户输入的明文密码做SHA1哈希计算，此处替换为你项目中实际使用的SHA1计算函数
inputHash = GetSHA1(Me.PwdInput.Value)

' 查询对应用户名的存储哈希，转义单引号避免语法错误
storedHash = DLookup( _
    "PasswordHash", _
    "UserID", _
    "UserName='" & Replace(Me.Userbox.Value, "'", "''") & "'" _
)

If IsNull(storedHash) Then
    MsgBox "用户名不存在，请检查输入"
Else
    ' 统一转小写比对，避免存储时大小写规则不一致导致校验失败
    If LCase(storedHash) = LCase(inputHash) Then
        ' 校验通过，写登录成功后的跳转/权限逻辑
        MsgBox "登录成功"
    Else
        MsgBox "密码错误，请重新输入"
    End If
End If

方法2：使用Recordset对象（适合多字段取值场景） #

如果你后续需要同时取该用户的其他信息（比如权限等级、昵称等），用Recordset查询整行数据更方便，直接通过字段名就能取到对应值：

Dim rs As DAO.Recordset
' 按用户名查询匹配行
Set rs = CurrentDb.OpenRecordset( _
    "SELECT * FROM UserID WHERE UserName='" & Replace(Me.Userbox.Value, "'", "''") & "'", _
    dbOpenSnapshot _
)

If rs.EOF Then
    MsgBox "用户名不存在"
Else
    ' 直接读取该行的密码哈希字段值
    Dim storedHash As String
    storedHash = rs!PasswordHash
    ' 此处写和上面一致的哈希比对逻辑即可
End If

' 收尾释放对象
rs.Close
Set rs = Nothing

关键注意点

• 代码中PasswordHash、控件名（Userbox/PwdInput）请替换为你实际项目中的命名
• 输入密码的SHA1计算规则必须和存储时完全一致：包括是否加盐、字符编码格式、输出十六进制的大小写规则，否则会出现正确密码比对失败的问题
• 拼接查询条件时必须转义单引号，避免用户输入带单引号的内容触发语法错误，同时降低注入风险

内容的提问来源于stack exchange，提问作者walid761