请各位高手解惑！实时错误424，要求对象。谢谢啦！

Yuki0512 2012-04-04 03:28:02

Private Sub Command3_Click()
If Text1.Text = "" Then
MsgBox "请输入岗位编号！", vbOKOnly + vbQuestion, "提示"
Text1.SetFocus
End If
inputJD_info '添加信息到数据库中
End Sub
Sub inputJD_info() '具体添加过程
Dim sql As String
sql = "select * from JD where 岗位编号='&trim(text1.text)&'"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open sql, conn, 1, 1
If rs.EOF = False Then
MsgBox "该岗位编号已存在！请重新输入！", vbOKOnly, "警告"
Command2_Click
Text1.SetFocus
Else
JD.AddNew ’实时错误424，要求对象！
JD.Fields(0) = Text1.Text
JD.Fields(1) = Text2.Text
JD.Fields(2) = Text3.Text
JD.Fields(3) = Text4.Text
JD.Fields(4) = Text5.Text
JD.Fields(5) = Text6.Text
JD.Fields(6) = Text7.Text
JD.Fields(7) = Text8.Text
JD.Update
DataGrid1.Refresh
MsgBox "信息添加成功！", vbOKOnly + vbInformation, "提示"
Command2_Click
Text1.SetFocus
End If
End Sub

...全文

257 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

饮水需思源 2012-04-04

打赏
举报

'把JD改为rs

rs.AddNew 

rs.Fields(0) = Text1.Text

rs.Fields(1) = Text2.Text

rs.Fields(2) = Text3.Text

rs.Fields(3) = Text4.Text

rs.Fields(4) = Text5.Text

rs.Fields(5) = Text6.Text

rs.Fields(6) = Text7.Text

rs.Fields(7) = Text8.Text

rs.Update