如何用IsNull函数检测文本框是否为空以简化VBA代码？

把Null检测逻辑封装成独立函数确实是个好主意，能有效简化主代码、提升可读性，尤其在代码量较大的场景下。以下是你的实现代码整理：

主窗体点击事件代码 #

Private Sub Command0_Click()
    Dim textbox1 As String
    textbox1 = Forms![Form1].Text1
    MsgBox CheckTextbox(textbox1)
End Sub

公共检测函数代码 #

Public Function CheckTextbox(textboxA As String)
    If IsNull(textboxA) Then
        CheckTextbox = "Yes"
    Else
        CheckTextbox = textboxA
    End If
End Function

简单说明 #

• 主代码里通过Forms![Form1].Text1获取文本框的值，调用CheckTextbox函数完成检测
• 函数会判断传入的值是否为Null：如果是，返回字符串"Yes"；否则返回文本框的实际内容，最后通过MsgBox展示检测结果

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