Accessのナビゲーションウィンドウが広がらない。

Question

通常、画面左側にある、ナビゲーションウィンドウを狭くする場合、

シャッターバーでオブジェクトを見えなくするのでしょうが、

全然見えないのでは困るので、ドラッグして極端（アイコンだけが見える程度）に狭くしたら、

それ以降、ナビゲーションウィンドウを広くできなくなりました。

どうすれば、元に戻せるのでしょうか？

宜しくお願いします。

Answer 1

追記:

今試したら、シャッターバーかF11キーでナビゲーションウィンドウを畳んだ状態で

ウィンドウの右端をドラッグしてやるだけで充分でした……

Answer 2

1. 当該ファイルを閉じる。
2. 新規データベースを作成する。
3. 2 のファイルにモジュールを新規作成し、

   以下のプロシージャを記述する。

（標準モジュール）

---

Option Compare Database

Option Explicit

Public Function SetNaviPaneWidth(ByVal FilePath As String, _

                                 ByVal PaneWidth As Long) As Boolean

On Error GoTo Err_SetNaviPaneWidth

    Dim db As DAO.Database

    Dim strFilePath As String

    Set db = DBEngine.OpenDatabase(FilePath)

    db.Properties("NavPane Width").Value = PaneWidth

    db.Properties.Refresh

    SetNaviPaneWidth = True

Exit_SetNaviPaneWidth:

On Error Resume Next

    db.Close

    Set db = Nothing

    Exit Function

Err_SetNaviPaneWidth:

    MsgBox Err.Number & ": " & Err.Description, _

           vbCritical, _

           "実行時エラー（SetNaviPaneWidth）"

    Resume Exit_SetNaviPaneWidth

End Function

---

4. イミディエイトウィンドウから

   以下のようなステートメントを実行する。

---

? SetNaviPaneWidth("C:\FolderName\FileName.accdb", 500)

---

（第1引数にファイルへの絶対パスを表す文字列を渡す）

5. 当該ファイルを開く。

Answer 3

sk.exeさんへ

F11キーでナビゲーションウインドウの調整が出来るようになりました。

１ヶ月程のモヤモヤが解消されました。

ありがとうございました。

Answer 4

> 新規データーベースの標準モジュールのModule1に、

> プロシージャを記述したのですが、

> イミディエイトウィンドウから、どの様にして

> ステートメントを実行するのでしょうか？

> （パス及びファイル名は、イミディウィンドウに記述済み。）

イミディエイトウィンドウの先頭に

例示した（のを書き換えた）ステートメントを記述し、

同じ行にカーソルのある状態で Enter キーをクリックして下さい。

上記の操作が分かりづらいようでしたら、

同じモジュール内に以下のようなプロシージャを追記して

F5キーなどによりそのプロシージャを実行してみて下さい。

---

Sub test()

   Call SetNaviPaneWidth("C:\FolderName\FileName.accdb", 500)

End Sub

---

Answer 5

sk.exe さん

早速の回答ありがとうございます。

新規データーベースの標準モジュールのModule1に、

プロシージャを記述したのですが、

イミディエイトウィンドウから、どの様にして

ステートメントを実行するのでしょうか？

（パス及びファイル名は、イミディウィンドウに記述済み。）

すみませんが、もうちょっと詳しくお願いします。

（モジュールについては、全くの初心者です。）

以上、宜しくお願いします。