Access VBA实现文本框搜索：输入PO号查询对应运输公司

核心思路 #

你现在处于Access环境（前后端分离方案），无需像Excel那样通过ADODB连接外部数据库，直接利用Access内置的查询函数就能实现最简逻辑，省去冗余的连接、记录集操作。

最简实现代码 #

Private Sub SearchButton_Click()
    ' 清空结果文本框
    Me.txtTransporteur = ""
    
    ' 验证输入：确保PO号不为空
    If Trim(Me.txtBestelbon.Text) = "" Then
        MsgBox "请输入PO号", vbExclamation
        Exit Sub
    End If
    
    ' 使用DLookup直接查询目标字段，替代原有的ADODB记录集操作
    Dim transporteur As Variant
    transporteur = DLookup("[Transporteur]", "[Planning]", "[Bestelbon] = '" & Replace(Me.txtBestelbon.Text, "'", "''") & "'")
    
    ' 处理查询结果
    If Not IsNull(transporteur) Then
        Me.txtTransporteur = transporteur
    Else
        MsgBox "未找到对应PO号的运输公司信息", vbInformation
    End If
End Sub

关键改进说明 #

• 移除冗余连接：Access本身是数据库宿主，直接访问链接表/本地表即可，无需手动创建ADODB连接和记录集
• 简化控件引用：用Me指代当前窗体，比原代码的UserForm1更通用，也避免窗体名称变更导致的错误
• 提升健壮性：主动检查输入空值，处理查询无结果的情况，替代原代码中On Error Resume Next这种易隐藏问题的错误处理方式
• 规避SQL风险：用Replace处理输入中的单引号，防止SQL语法错误和注入风险

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