Office中国论坛/Access中国论坛

标题: 请各位大侠帮忙看看，哪里错了 [打印本页]

作者: snryga 时间: 2015-10-7 21:23
标题: 请各位大侠帮忙看看，哪里错了
Option Compare Database
Private Sub 保存_Click()
On Error GoTo Err_保存_Click
Dim i As Integer
Dim STemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
STemp = "Select * From 选址派单"
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If IsNull(Me![选址派单]) = True Then
      MsgBox "带*号文本框不能为空", vbOKOnly, ""
      Me![选址派单].SetFocus
      Else
Rs.MoveFirst
For i = 1 To Rs.RecordCount
      If Rs("站址编号") = Me![选址派单子窗体]![站址编号] Then
         Rs("运营商提供站名") = Me![运营商提供站名]
         Rs("所属运营商") = Me![所属运营商]
         Rs("电信批次") = Me![电信批次]
         Rs("移动批次") = Me![移动批次]
         Rs("联通批次") = Me![联通批次]
         Rs("区域") = Me![区域]
         Rs("乡镇名称") = Me![乡镇名称]
         Rs("经度") = Me![经度]
         Rs("纬度") = Me![纬度]
         Rs("建设方式") = Me![建设方式]
         Rs("选址派单") = Me![选址派单]
         Rs.Update
         Me![选址派单子窗体].Requery
         MsgBox "信息修改完成！", vbOKOnly, ""
         Exit Sub
      Else
         Rs.MoveNext
      End If
Next i
End If
Set Rs = Nothing
Exit_保存_Click:
Exit Sub
Err_保存_Click:
MsgBox Err.Description
Resume Exit_保存_Click
End Sub

作者: snryga 时间: 2015-10-8 00:14
我引用了DAO3.6后，又出现“在对应所需名称或序数的集合中，未找到项目”。这是什么意思，整不懂了

作者: koutx 时间: 2015-10-8 09:47
你要引用ADO

作者: snryga 时间: 2015-10-8 19:04
引用ADO后还是出现，“在对应所需名称或序数的集合中，未找到项目”。请高手帮我看看，谢谢！

作者: koutx 时间: 2015-10-8 21:28
还是传实例吧。不然就把On Error GoTo Err_保存_Click
这一句改成On Error GOTO 0
再执行一下看哪句出问题了

作者: snryga 时间: 2015-10-9 18:46
谢谢，已搞定

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