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

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

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

什么意思我不太明白









































" border="0" />
[url=http://www.]不灭星辰诀[/url]

得请高手搭救你，我看不懂了。。。

真是的搞這麼得雜，直接if rs.RecordCount<=0 then msgbox "找不到你要的人"