我用的 “ On Error GoTo TZ查询出错”方法来处理的。
如何我想换种写法怎么写?
能不能不用 On Error GoTo 方法
就是 当查询的到的时候,执行填写命令
当查不到的时候怎么办?
原代码
Private Sub Command依ID查询_Click()
On Error GoTo TZ查询出错
Adodc人事档案.Refresh '刷新一次,否则,在第一次找到之后,再FIND就会从之前找到的位置往后找。
Adodc人事档案.Recordset.Find ("ID='" & Text依ID查询.Text & "'")
Text编号.Text = Adodc人事档案.Recordset.Fields("ID")
Text姓名.Text = Adodc人事档案.Recordset.Fields("姓名")
Text年龄.Text = Adodc人事档案.Recordset.Fields("年龄")
Text部门.Text = Adodc人事档案.Recordset.Fields("部门")
Text职位.Text = Adodc人事档案.Recordset.Fields("职位")
Exit Sub
TZ查询出错:
MsgBox "未找到该ID编号的职工"
End Sub
=========================================
以下两种方式都不行。
If Adodc人事档案.Recordset.Find("ID='" & Text依ID查询.Text & "'") Then或If Adodc人事档案.Recordset.Find("ID='" & Text依ID查询.Text & "'") =TRUE Then
请提供你的联系方式,我传文件给你,谢谢。
if not Adodc人事档案.EOF then
Sorry,这里写错了 是if not Adodc人事档案.ReordSet.EOF then
试试...
你好像落掉了一行代码。不过还是谢谢你了。
Adodc人事档案.Recordset.Find ("ID='" & Text依ID查询.Text & "'")