[求助]点击修改按钮说对象变量和with变量未设置
<P>本人初次接触ACCESS，做了一个客户管理的界面，但在修改这个按钮上出错，希望大家给予指正。万分感谢！<BR>运行时弹出对话框：对象变量和with变量未设置<BR><BR>Private Sub 修改客户_Click()<BR>On Error GoTo Err_修改客户_Click<BR>Dim i As Integer<BR>Dim stemp As String<BR>Dim rs As ADODB.Recordset<BR>stemp = "select * from 客户"<BR>rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic</P><P>If IsNull(Me![客户ID]) = True Then<BR>MsgBox "请输入客户ID，此项不能为空！", vbOKOnly, "信息"<BR>Me![客户ID].SetFocus<BR>ElseIf IsNull(Me![客户名称]) = True Then<BR>MsgBox "请输入客户名称，此项不能为空", vbOKOnly, "信息"<BR>Me![客户名称].SetFocus<BR>ElseIf IsNull(Me![客户地址]) = True Then<BR>MsgBox "请输入客户地址，此项不能为空", vbOKOnly, "信息"<BR>Me![客户地址].SetFocus<BR>ElseIf IsNull(Me![客户性质]) = True Then<BR>MsgBox "请输入客户性质，此项不能为空", vbOKOnly, "信息"<BR>Me![客户性质].SetFocus<BR>ElseIf IsNull(Me![客户类别]) = True Then<BR>MsgBox "请输入客户类别，此项不能为空", vbOKOnly, "信息"<BR>Me![客户类别].SetFocus<BR>ElseIf IsNull(Me![级别]) = True Then<BR>MsgBox "请输入级别，此项不能为空", vbOKOnly, "信息"<BR>Me![级别].SetFocus<BR>ElseIf IsNull(Me![联系人]) = True Then<BR>MsgBox "请输入联系人，此项不能为空", vbOKOnly, "信息"<BR>Me![联系人].SetFocus<BR>ElseIf IsNull(Me![联系电话]) = True Then<BR>MsgBox "请输入联系电话，此项不能为空", vbOKOnly, "信息"<BR>Me![联系电话].SetFocus<BR>ElseIf IsNull(Me![备注]) = True Then<BR>MsgBox "请输入备注，此项不能为空", vbOKOnly, "信息"<BR>Me![备注].SetFocus<BR>ElseIf IsNull(Me![省]) = True Then<BR>MsgBox "请输入省，此项不能为空", vbOKOnly, "信息"<BR>Me![省].SetFocus<BR>ElseIf IsNull(Me![市]) = True Then<BR>MsgBox "请输入市，此项不能为空", vbOKOnly, "信息"<BR>Me![市].SetFocus<BR>Else<BR>rs.MoveFirst<BR>For i = 1 To rs.RecordCount<BR>If rs("客户ID") = Me![客户ID] Then<BR>rs("客户名称") = Me![客户名称]<BR>rs("客户地址") = Me![客户地址]<BR>rs("客户性质") = Me![客户性质]<BR>rs("客户类别") = Me![客户类别]<BR>rs("级别") = Me![级别]<BR>rs("联系人") = Me![联系人]<BR>rs("联系电话") = Me![联系电话]<BR>rs("省") = Me![省]<BR>rs("市") = Me![市]<BR>rs("备注") = Me![备注]<BR>rs.Update<BR>MsgBox "修改完成！", vbOKOnly, "信息"<BR>Exit Sub<BR>Else<BR>rs.MoveNext<BR>End If<BR>Next i<BR>End If<BR>Me![客户 子窗体].Requery<BR>Set rs = Nothing<BR> ' DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70</P>
<P>Exit_修改客户_Click:<BR> Exit Sub</P>
<P>Err_修改客户_Click:<BR> MsgBox Err.Description<BR> Resume Exit_修改客户_Click<BR> <BR>End Sub<BR></P>
页:
[1]