VBA 中窗体模式切换，一次设计2种表现

Sub ModelChange()

    If Me.Form.CurrentView =  Then
        DoCmd.RunCommand acCmdSubformFormView  ''''就这句
        Me.Form.AllowEdits = True
        '        ModelLock   '设置窗体是否可以编写

    ElseIf Me.Form.CurrentView =  Then
        DoCmd.RunCommand acCmdSubformDatasheet   ''''就这句acCmdSubformDatasheet

        Me.Form.AllowEdits = False
        Me.Form.AllowAdditions = False
        Me.Form.AllowDeletions = False
    End If
        Me.Form.Refresh
''0
''"设计"视图
''1
''"窗体"视图
''2
''"数据表"视图
End Sub

我是用于在表单和列表之间切换。