ms-access - フィールドリストサイドバーを非表示

Question

サブフォーム コントロールで使用されるフォームを作成するプロセスがあります。

ビジュアルの作成を抑制しましたdocmd.echoが、サイドバーのフィールド リストが表示されてから後退します。

フィールド リスト サイドバーを非表示にする方法はありますか?

Answer 1

これは、データベースを再度開いたときに適用されます。ユーザーが MS Accesss 2010 で使用できる方法は 6 種類あります。これらは [オプション] メニューから手動で変更できます。

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