VBA Label控件Caption属性代码执行完毕后显示FALSE的解决方法

问题原因 #

核心问题是Label的Caption属性被意外赋值为布尔值。大概率是初始Caption为Null，或者拼接字符串时遇到Null值，导致后续某个操作将布尔结果（比如函数返回FALSE）直接赋值给了Caption。此外，Access中对Null值做字符串拼接会返回Null，若后续代码误将布尔表达式结果赋值给Caption，就会显示FALSE。

解决方法 #

1. 初始化Caption为非空字符串

在代码执行前，确保Label的Caption不是Null，而是空字符串，避免拼接时出现异常：

' 代码开头添加初始化逻辑
If IsNull(Forms!Main!Message.Caption) Then
    Forms!Main!Message.Caption = ""
End If

2. 用Nz函数安全拼接字符串

每次更新Caption时，用Nz()函数将现有Caption的Null值转为空字符串，确保拼接始终是字符串操作：
把原代码中的拼接语句：

Forms!Main!Message.Caption = Forms!Main!Message.Caption & vbCrLf & "Downloading AP Data for System " & strSource_System & ". Please be patient..."

修改为：

Forms!Main!Message.Caption = Nz(Forms!Main!Message.Caption, "") & vbCrLf & "Downloading AP Data for System " & strSource_System & ". Please be patient..."

成功消息的拼接也做同样修改：

Forms!Main!Message.Caption = Nz(Forms!Main!Message.Caption, "") & vbCrLf & "AP Data Downloaded for System " & strSource_System & " Successfully."

3. 排查所有Caption赋值语句

检查代码中所有给Forms!Main!Message.Caption赋值的地方，确保没有直接将布尔值（比如函数返回的FALSE）或非字符串类型赋值给它。比如避免Forms!Main!Message.Caption = Download_AP_Data(...)这类写法（如果该函数返回布尔值）。

修改后的示例代码 #

' 初始化Caption，避免Null
If IsNull(Forms!Main!Message.Caption) Then
    Forms!Main!Message.Caption = ""
End If

If strSource_System <> "" Then

    '--Download AP Data
    Forms!Main!.ctrlProgressBar.Value = Timer - startTime
    Forms!Main!Message.Caption = Nz(Forms!Main!Message.Caption, "") & vbCrLf & "Downloading AP Data for System " & strSource_System & ". Please be patient..."
    SleepSec (1)
    Forms!Main!.ctrlProgressBar.Value = Timer - startTime
        Call Download_AP_Data(Source_CONNECTION, "SOURCE")
    Forms!Main!.ctrlProgressBar.Value = Timer - startTime
    'Reset Clock
    startTime = Timer
    Forms!Main!Message.Caption = Nz(Forms!Main!Message.Caption, "") & vbCrLf & "AP Data Downloaded for System " & strSource_System & " Successfully."
    SleepSec (1)
    Forms!Main!.ctrlProgressBar.Value = Timer - startTime

End If

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