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

Sub ModelChange()

    If Me.Form.CurrentView = 2 Then
        DoCmd.RunCommand acCmdSubformFormView  ''''就这句
        Me.Form.AllowEdits = True
        '        ModelLock   '设置窗体是否可以编写
        
    ElseIf Me.Form.CurrentView = 1 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

 

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

 

posted @ 2017-03-29 09:28  小熊布鲁斯  阅读(1887)  评论(0)  编辑  收藏  举报