设置为修改模式及查看模式有助于降低查看数据时,对数据的无意识修改。
思路是设置窗体的记录类型,在一个按钮控件上操作完成切换。
代码如下:
1 设置窗体打开时记录集为快照,按钮控件名[模式]的标题为查询模式
Private Sub Form_Open(Cancel As Integer)
Me.RecordsetType = 2
Me.模式.Caption = "查询模式"
End Sub
2 单击按钮[模式],由Select CASE通过判断标题的文本来设置记录集快照或动态集来完成修改模式及查看模式的切换。
Private Sub 模式_Click()
Select Case Me.模式.Caption
Case "查询模式"
Me.RecordsetType = 0
Me.模式.Caption = "修改模式"
Case "修改模式"
Me.RecordsetType = 2
Me.模式.Caption = "查询模式"
End Select
End Sub