MS Access创建多选下拉列表时遇‘变量未定义’编译错误

错误原因 #

你遇到的“变量未定义”编译错误，直接原因是代码中使用的变量i没有提前声明。VBA在强制变量声明模式下（通常推荐开启），所有变量必须先声明才能使用。

直接修复方法 #

在Sub开头的变量声明区域，添加i的声明语句。根据Bldglist表第一个字段的数据类型选择合适的类型，比如如果是长整型就用Long，不确定的话用Variant兼容所有类型：

Private Sub BLDlist_Click()
    Dim db As Database
    Dim rs As Recordset
    Dim i As Variant ' 或根据字段类型改为Long/Integer等
    Dim cbdg As Long ' 把循环内的变量声明移到开头，更规范
    
    Set db = CurrentDb
    ' 后续代码...

额外优化建议 #

1. 处理空记录集：如果Bldglist表为空，rs.MoveFirst会触发运行时错误，添加判断避免：

   Set rs = db.OpenRecordset("Bldglist")
   If Not rs.EOF Then
       rs.MoveFirst
       Do Until rs.EOF
           ' 循环逻辑
       Loop
   End If
   

2. 安全清空表数据：用db.Execute替代DoCmd.RunSQL，避免弹出删除确认弹窗，同时添加错误处理：

   db.Execute "Delete * from MultipleSite", dbFailOnError
   

3. 释放资源：记录集和数据库对象使用完后要关闭并释放，防止内存泄漏：

   rs.Close
   Set rs = Nothing
   Set db = Nothing
   

4. 避免直接调用按钮Click事件：直接调用btnchange_Click这类事件可能引发意外问题，建议把事件内的逻辑提取成独立的Sub，再调用这个Sub。

修改后的完整代码 #

Private Sub BLDlist_Click()
    Dim db As Database
    Dim rs As Recordset
    Dim i As Variant ' 根据Bldglist表第一个字段类型调整
    Dim cbdg As Long
    
    Set db = CurrentDb
    
    ' 安全清空MultipleSite表
    db.Execute "Delete * from MultipleSite", dbFailOnError
    
    Set rs = db.OpenRecordset("Bldglist")
    
    ' 仅当记录集有数据时执行循环
    If Not rs.EOF Then
        rs.MoveFirst
        Do Until rs.EOF
            i = rs(0)
            Me.cbobuilding.Value = i
            
            ' 调用按钮事件逻辑（建议后续重构为独立Sub）
            Call btnchange_Click
            Call Select_All_Click
            Call Command78_Click
            
            DoCmd.OpenQuery "appMultipleSite"
            
            rs.MoveNext
        Loop
    End If
    
    ' 释放资源
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    DoCmd.OpenTable "MultipleSite"
End Sub

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