紧急求助！！！请帮忙解决错误信息：91 对象变量或with块变量未设置

lisashar

Private Sub Room_NotInList(NewData As String, Response As Integer)
    ' Add item to list
On Error GoTo HandleErr

    If MsgBox("是否将此数据项添加到列表中？", _
     vbYesNo + vbQuestion, "数据项不在列表中") = vbYes Then
        Response = AddToList("房间", "房间", NewData)
    Else
        Response = acDataErrDisplay
    End If
   
ExitHere:
    Exit Sub

HandleErr:
    Select Case Err
        Case Else
            MsgBox Err & ": " & Err.Description, , _
              "Form_HouseholdInventory.Room_NotInList"
    End Select
    Resume ExitHere
    Resume
End Sub
[em24][em24][em24][em24][em24][em24][em24]

lisashar

已解决,将dao转为ado即可，谢谢各位

zyz

你到底是男还女？[em26]