Access表单VBA设置默认值时字符串"1484-002"被解析为数值1482

这个问题我之前也碰到过！Access对默认值的表达式解析有时候会有点“自作聪明”，尤其是带特殊符号的字符串，这里的核心问题是你设置默认值时没明确告诉Access这是纯文本，导致它把1484-002里的减号当成了减法运算符，最终计算出1484-2=1482。

关键原因 #

虽然数据表字段是短文本类型，但表单控件的DefaultValue属性本质是一个表达式，如果直接赋值不带引号的字符串，Access会自动尝试将其解析为数值/逻辑表达式，而非纯文本常量。

解决方案 #

1. 在VBA中给字符串添加单引号包裹

这是最直接的修复方法，通过单引号强制Access将值识别为文本常量。修改你的VBA代码，在获取到的目标值前后加上单引号：

Private Sub Form_Load()
    Dim latestRecordValue As String
    ' 假设你通过DMax或记录集获取最新记录的字段值
    latestRecordValue = DMax("你的字段名", "你的数据表名")
    
    ' 给值添加单引号，作为文本类型的默认值
    Me.你的文本框控件名.DefaultValue = "'" & latestRecordValue & "'"
End Sub

注意：这里的单引号是英文半角单引号，不能用中文引号。

2. 确认表单控件的格式设置

检查表单上对应文本框的格式属性：

• 打开表单设计视图，选中目标文本框
• 在属性窗口的“格式”选项中，设置为@（文本格式），确保控件强制以文本形式显示内容

3. 手动验证默认值（可选）

如果你不确定代码是否正确，可以先在设计视图中手动设置默认值为'1484-002'（带单引号），切换到表单视图看是否正常显示1484-002，以此验证逻辑是否有效。

额外提醒 #

如果你的字段值里本身包含单引号（比如1484-'002'），那还需要转义单引号，把单个单引号改成两个单引号，比如：

latestRecordValue = Replace(latestRecordValue, "'", "''")
Me.你的文本框控件名.DefaultValue = "'" & latestRecordValue & "'"

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