Access表格中基于书名和作者自动生成哈希索引的实现问题

第一步：修改GenerateHash函数以接收双参数 #

先调整函数，让它能接收书名和作者两个字段值，合并后生成哈希。以下是适配的VBA代码示例（包含基础哈希逻辑，可替换为你需要的强哈希实现）：

Function GenerateHash(strTitle As String, strAuthor As String) As String
    Dim combinedStr As String
    ' 用分隔符合并字段，避免不同组合的字符串产生冲突
    combinedStr = strTitle & "|" & strAuthor
    
    ' 基础哈希计算逻辑，可替换为MD5/SHA等强哈希实现
    Dim hash As Long
    Dim i As Integer
    hash = 0
    For i = 1 To Len(combinedStr)
        hash = ((hash And &HFFFFFFF0) Xor Asc(Mid(combinedStr, i, 1))) + (hash And &HF)
    Next i
    ' 转换为十六进制字符串作为馆藏索引
    GenerateHash = Hex(hash)
End Function

第二步：三种调用与批量应用方式 #

1. 表内计算字段（实时自动生成） #

适合需要实时同步哈希值的场景（修改书名/作者时哈希自动更新）：

• 打开图书馆表格的设计视图
• 添加新字段，命名为馆藏索引，数据类型选择计算
• 在表达式生成器中输入：GenerateHash([书名], [作者])（替换[书名]/[作者]为你表中实际字段名）
• 保存后，所有现有记录和新增记录都会自动生成对应哈希值

2. 更新查询（批量固定哈希值） #

适合需要存储固定哈希值（后续修改书名/作者不影响已生成的索引）的场景：

• 先在表中新增一个文本类型的馆藏索引字段
• 创建更新查询，选择你的图书馆表格
• 在馆藏索引字段的更新到行中输入：GenerateHash([书名], [作者])
• 运行查询，批量为所有现有记录生成并保存哈希值

3. VBA批量处理（灵活控制） #

适合需要筛选特定记录处理的场景：

Sub UpdateAllHashValues()
    Dim rs As Recordset
    ' 替换为你的图书馆表名
    Set rs = CurrentDb.OpenRecordset("图书馆表")
    
    rs.MoveFirst
    Do While Not rs.EOF
        rs.Edit
        ' 替换为实际字段名
        rs!馆藏索引 = GenerateHash(rs!书名, rs!作者)
        rs.Update
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    MsgBox "馆藏索引批量更新完成"
End Sub

• 按Alt+F11打开VBA编辑器，将代码粘贴到模块中
• 替换表名和字段名后，运行该子过程即可完成批量更新

注意事项 #

• 确保函数中引用的字段名与表中实际字段名完全一致
• 合并字符串时的分隔符（示例中用|）可根据需求调整，避免不同字段组合产生重复哈希
• 如果需要强哈希（如MD5），可通过引用Microsoft Scripting Runtime或调用Windows API实现

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