以下是删除按钮代码...rec要定义...dim rec as new recordset
If rec.RecordCount < 1 Then
MsgBox ("未找到数据信息,请确认!"), vbOKOnly, "错误"
Exit Sub
Else
If MsgBox("数据删除不可恢复,请确认!", vbYesNo) = vbYes Then
rec.Delete
rec.MoveNext
rec.Requery
End If
End If
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024