帮帮忙啊

jyp19851119

新手上路

Rank: 1

帖子：21
精华：0
积分：344
在线：17 小时
注册：2008-2-26

1^# 大中小发表于 2008-7-16 15:25 只看该作者

帮帮忙啊

Private Sub CmSearch_Click()
Prompt$ = "输入完整的姓名"
SearchStr$ = InputBox(Prompt$, "查找姓名")
职员档案.Recordset.Index = ""
职员档案.Recordset.Seek "=", SearchStr$
If 职员档案.Recordset.NoMatch Then
MsgBox ("对不起,不能发现要查找的姓名")
职员档案.Recordset.MoveFirst
End If
End Sub

TOP

jyp19851119

新手上路

Rank: 1

帖子：21
精华：0
积分：344
在线：17 小时
注册：2008-2-26

2^# 大中小发表于 2008-7-16 15:27 只看该作者

改错啊

Private Sub CmSearch_Click()
Prompt$ = "输入完整的姓名"
SearchStr$ = InputBox(Prompt$, "查找姓名")
职员档案.Recordset.Index = ""
职员档案.Recordset.Seek "=", SearchStr$
If 职员档案.Recordset.NoMatch Then
MsgBox ("对不起,不能发现要查找的姓名")
职员档案.Recordset.MoveFirst
End If
End Sub

报错“姓名”不是此表中的索引

TOP

l789123