Access lookup字段数据类型是否应与源表不同及VBA报错咨询

问题原因 #

你遇到的类型不一致是Access lookup字段的固有特性：

• 你在表设计里创建lookup字段时，Access只会把你选的「显示字段」（这里就是主表的Sample Name）作为界面展示值，实际存储的是lookup绑定列的内容，默认绑定主表的第一列（通常是自动编号类型的主键，对应数据类型就是dbLong），所以才会出现显示为文本、实际存储长整型的情况。
• 你的猜测完全正确：lookup字段的显示值是Access通过关联关系动态查询渲染的，写入数据表的真实值只有主表的索引键值。

报错根由 #

你直接将字符串类型的sampName赋值给实际为长整型的lookup字段，触发数据类型转换失败，赋值操作未生效，所以字段仍然保留新增记录时的默认Null值，不是记录集空字段的特殊默认值，就是赋值失败导致的。

修复方案 #

你需要先根据sampName查询到主表中对应记录的主键ID，再将ID赋值给子表的lookup字段即可，示例代码如下：

Case "Standard Image Reverse Lithography"
    ' 请将代码中的SampleMaster替换为你的主表名，SampleID替换为主表主键字段名
    Dim sampleID As Long
    sampleID = Nz(DLookup("SampleID", "SampleMaster", "Sample Name = '" & Replace(sampName, "'", "''") & "'"), 0)
    
    If sampleID > 0 Then
        revlitho.AddNew
        revlitho.Fields("Sample Name").Value = sampleID
        revlitho.Update
    Else
        ' 可选：新增样本不存在的异常处理逻辑
        MsgBox "未找到匹配的样本：" & sampName
    End If

代码中Replace函数是为了转义样本名中的单引号，避免查询语句报错，Nz函数处理无匹配记录时DLookup返回Null的问题。

避坑建议 #

非必要不建议使用表层面的lookup字段，该特性会隐藏实际存储结构，很容易在开发、维护时踩类似的类型问题。直接在Access关系窗口建立主表和子表的外键关联，需要展示文本值时通过JOIN查询关联主表获取即可，可控性更高。

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