[求助]数据库建立时,添加命令按钮,添加代码后不能执行!!
下面是三段代码,用的是查找、添加和删除 但是程序运行后,单击按钮没有反应!不知道为什么! Private Sub cmsearch_Click() Dim prompt As String, searchstr As String prompt$ = "输入完整姓名" searchstr$ = InputBox(prompt$, "查找姓名") 职员档案.Recordset .Index = "姓名" 职员档案.Recordset.Seek "=", searchstr$ If 职员档案.Recordset.NoMatch Then MsgBox ("对不起,不能发现要查找的姓名") 职员档案.Recordset.MoveFirst End If End Sub
Private Sub cmadd_Click() str1$ = "输入新的记录" str2$ = MsgBox(str1$, vbOKCancel, "添加记录") If str2$ = vbOK Then Text1.SetFocus 职员档案.Recordset.AddNew End If End Sub
Private Sub cmdelete_Click() On Error Resume Next str1$ = "您确定要删除一条记录吗?" str2$ = MsgBox(ste1$, vbOKCancel, "删除记录") If str2$ = vbYes Then 职员档案.Recordset.Delete 职员档案.Recordset.MoveNext End If End Sub