Ø 删除记录
当用户单击“删除”命令按钮时，为了防止用户误删除数据，程序将调用Msgbox（）函数以弹出对话框，询问用户是否真的要删除该记录。如果用户单击对话框上的“确定”按钮，程序调用记录集的Delete方法，将记录集的当前记录设置为空，并从原始的表中删掉当前记录。但是删除的记录仍然是当前记录，只是将其变为了无效的记录，任何对其的引用都会产生错误。
其主要程序如下：
Private Sub Command6_Click()
xg = True
Command3.Enabled = True
Command4.Enabled = True
'取消其他按钮功能
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
'对记录进行编辑
Data1.Recordset.Edit
Text1.SetFocus
End Sub
Private Sub Command7_Click()
ss = MsgBox("真的要删除吗？", vbYesNo + vbInformation, "删除记录")
'如果要删除
If (ss = vbYes) Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
Command2.Enabled = False
End If
End If
End Sub
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>