对象变量或with块变量未设置求助

显示全部楼层 · 2011-1-4 14:53:31

Private Sub Command查询_Click()

If Trim(Text编号.Text) = "" Then

MsgBox "编号为空！", vbCritical, "错误信息"

objRs.Close

Exit Sub

End If

Dim txtSQL

txtSQL = "select * from 员工基本信息表视图 where 编号='" & Text编号.Text & "'"

Set objRs = ExecuteSQL(txtSQL, msg_Sql)

If objRs.EOF Then

MsgBox "不存在编号为的员工档案！", vbCritical, "错误信息"

objRs.Close

Exit Sub

End If

Text姓名.Text = Trim(objRs("姓名"))

Text性别.Text = Trim(objRs("性别"))

Text出生年月.Text = Trim(objRs("出生年月"))

Text籍贯.Text = Trim(objRs("籍贯"))

Text民族.Text = Trim(objRs("民族"))

Text联系电话.Text = Trim(objRs("联系电话"))

Text工作岗位.Text = Trim(objRs("工作岗位"))

Text参加工作时间.Text = Trim(objRs("参加工作时间"))

Text婚姻状况.Text = Trim(objRs("婚姻状况"))

Text学历.Text = Trim(objRs("学历"))

Text外语情况.Text = Trim(objRs("外语情况"))

objRs.Close
End Sub
Private Sub Form_Activate()
Text编号.SetFocus
End Sub
Private Sub Form_Unload(Cancel As Integer)

frmmain.Enabled = True
End Sub
Private Sub command返回_click()

Unload frm按编号查询

frmmain.Enabled = True
End Sub
出现错误的语句是：If objRs.EOF Then
求助..谢谢！

千问 · 2011-1-4 14:53:31

实时错误'91'对象变量或With块变量未设置我从图书馆借来的书带的光盘上拷下来一个系统,但是这个系统不完善,没有用户管理,我就做了添加用户和密码修改两个窗体添加到系统里,但是运行不了,我点添加读者种类那项，没问题，后来点修改读者种类就出来这个错误。实时错误'91'对象变量或With块变量未设置点调试光标停留在Do While Not mrc.EOF这是错误的代码 Private Sub ShowData()
Dim i As Integer
Set mrc = ExecuteSQL(txtSQL, MsgText)
With msgList

千问 · 2011-1-4 14:53:31

objRs记录集没有打开看看ExecuteSQL函数里的代码有没有出错

对象变量或with块变量未设置 求助

对象变量或with块变量未设置求助