点击下载此示例

截   图:

源   码:

'设置窗体中的数据的可编辑状态
Private Sub cmd_编辑_Click()
    '反转窗体的可编辑状态
    Me.AllowEdits = Not Me.AllowEdits
    '根据可编辑状态修改按钮的标题，提示当前可编辑状态
    If Me.AllowEdits = True Then
        cmd_编辑.Caption = "当前允许编辑"
    Else
        cmd_编辑.Caption = "当前不允许编辑"
    End If
    '刷新当前的窗体
    Me.Refresh
End Sub