在access中运行下面的代码,出现错误提示Private Sub Command12_Click() Dim rs As DAO.Recordset Dim db As DAO.Database Dim Shu As Integer Set db = CurrentDb Set rs = db.OpenRecordset("table1") Shu = 40 rs.FindFirst "语文=" & Shu If rs.NoMatch Then MsgBox "无此记录" End IfEnd Sub
1 回答
- 1 回答
- 0 关注
- 674 浏览
添加回答
举报
0/150
提交
取消