如何打开一个窗体，所有的单元格都非活动状态

jun_er

Public Function TextLocked()
On Error Resume Next


    Dim Frm As Form
    Dim Ctl As Control
   
    DoCmd.OpenForm "Vorschlag Teilesteuerung_1", acNormal, "", "", , acNormal
   
    Set Frm = Current_Form
   
    For Each Ctl In Frm.Controls
        With Ctl
            Select Case .ControlType
            Case acCheckBox
            .Enabled = False
            Case acComboBox
            .Enabled = False
            Case acCommandButton
            .Enabled = False
            Case acListBox
            .Enabled = False
            Case acOptionButton
            .Enabled = False
            Case acTextBox
            .Enabled = False
            End Select
        End With


    Next Ctl


End Function

麻烦大家再帮我看看吧，我又修改了一下，可是还是不行，窗体里的都可以编辑，就是说enable = false没有设置成功。。。不知道问题出在哪里啊。。

Henry D. Sy

为什么不传例子，让人在这里猜谜语吗？

jun_er

这是我的数据库.

通过新建按钮，打开窗体，全部可以编辑。而通过新建纯文档按钮，则打开窗体后，只有三个部分可以编辑。

jun_er

通过新建按钮，打开窗体如下



而通过新建纯文档，则打开窗体如下，除了红色圈起来的部分，其他都是非活动状态




我现在想编的语句，就是在按下新建纯文档的时候，先把整个窗体所有控件全部设置为非活动状态，然后在依此将需要编辑的部分设为活动(即红色圈内的部分)。

jun_er

ok.

已经解决了，谢谢大家

jun_er

我把我的解决方案贴出来吧。虽然不是最佳的，但是至少能用。希望对大家有帮助。

Function enabled()
Dim frm As Form
    Dim Ctl As Control
   
    DoCmd.OpenForm "窗体名", acNormal, "", "", acAdd, acNormal
   
    Set frm = Forms![窗体名]
    Forms![窗体名]![子窗体].SetFocus
        
    For Each Ctl In frm.Controls
        With Ctl
            Select Case .ControlType
              Case acCheckBox
              .enabled = False
              Case acComboBox
              .enabled = False
              Case acCommandButton
              .enabled = False
              Case acListBox
              .enabled = False
              Case acOptionButton
              .enabled = False
               Case acTextBox
              .enabled = False
            End Select
        End With


    Next Ctl
End Function