UC知道VB查找ACCESS的数据,这段编码有什么问题?
来源：百度知道 编辑：UC知道 时间：2024/05/04 15:27:36
VB查找ACCESS的数据,这段编码有什么问题?为什么它说错误?
Private Sub 查找_Click()
pronpt$ = "输入完整公司名称"
SEARCHSTR$ = InputBox(pronpt$, "查找,公司名称")
客户.RECORDEST.Index = "公司名称"
客户.RECORDEST.Seek "=", SEARCHSTR$
If 客户.RECORDEST.NOMATCH Then MsgBox ("对不起,不能发现要查找的姓名")
客户.RECORDEST.MoveFirst
End If
End Sub
Private Sub 查找_Click()
pronpt$ = "输入完整公司名称"
SEARCHSTR$ = InputBox(pronpt$, "查找,公司名称")
客户.RECORDEST.Index = "公司名称"
客户.RECORDEST.Seek "=", SEARCHSTR$
If 客户.RECORDEST.NOMATCH Then MsgBox ("对不起,不能发现要查找的姓名")
客户.RECORDEST.MoveFirst
End If
End Sub
"MsgBox ("对不起,不能发现要查找的姓名")"错了,应该放到"If 客户.RECORDEST.NOMATCH Then" 的下面
"客户.RECORDEST.Seek "=", SEARCHSTR$ "可能不对,后面不能加"$"