抑制字段列表側邊欄

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