抑制字段列表侧边栏

Question

我有一个过程创建一个窗体，然后用于子窗体控件。

我通过docmd.echo抑制了视觉创作，但侧边栏字段列表显示然后退去。

有没有办法抑制Field List边栏？

Answer 1

当您重新打开数据库时，这将适用。用户可以使用MS Accesss 2010的方法有六种。可以从“选项”菜单手动更改这些方法。

Sub SetStartUp() 
    SetProp "StartupShowDBWindow", True, dbBoolean 
    SetProp "AllowFullMenus", True, dbBoolean 
End Sub 

Sub SetProp(PropName As String, PropVal As Variant, Optional PropType = dbText) 
Dim db As Object 
Dim prp As Object 
Dim strTitle As String 

Const PROPERTY_NOT_FOUND As Integer = 3270 

On Error GoTo ErrorHandler 

    Set db = CurrentDb 

    ' Try to set the property. If it fails, the property does not exist. 
    db.Properties(PropName) = PropVal 

ExitLine: 
    db.Close 
    Set db = Nothing 
    Set prp = Nothing 
    Exit Sub 

ErrorHandler: 
    If Err.Number = PROPERTY_NOT_FOUND Then 
     ' Create the new property. 
     Set prp = db.CreateProperty(PropName, PropType, PropVal) 
     db.Properties.Append prp 
     Resume Next 
    Else 
     Resume ExitLine 
    End If 

End Sub