Office中国论坛/Access中国论坛

标题: 紧急求助！！！请帮忙解决错误信息：91 对象变量或with块变量未设置 [打印本页]

作者: lisashar 时间: 2002-9-10 06:55
标题: 紧急求助！！！请帮忙解决错误信息：91 对象变量或with块变量未设置
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 时间: 2002-9-17 22:13
已解决,将dao转为ado即可，谢谢各位

作者: zyz 时间: 2002-9-17 23:47
你到底是男还女？[em26]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)