删除”按钮的事件代码 Private Sub Command Click Dim s As String On error goto delerr s= Msg Box("确定删除这组记录吗?", quEstion+ vbOK Cancel,"删除确 Ifs= 1 Then Data l Recordset. Delete Datal Recordset Movenext If Datal Recordset Record Count >0 Then If Datal Recordset EOF Then Datal recordset. movelast End if End If End if Exit Sub Delerr Msg Box Err. Description End sub“删除”按钮的事件代码 Private Sub Command7_Click() Dim s As String On Error GoTo DelErr s = MsgBox("确定删除这组记录吗？", vbQuestion + vbOKCancel, "删除确定 If s = 1 Then Data1.Recordset.Delete Data1.Recordset.Movenext If Data1.Recordset.RecordCount > 0 Then If Data1.Recordset.EOF Then Data1.Recordset.Movelast End If End If End If Exit Sub DelErr: MsgBox Err.Description End Sub