ママのスキンケアのお悩みにおすすめアイテム

ACCESSでフォームを使ったデータベースを作成しようとしています。
限られた表示領域を有効に利用したいのでフォーム表示時にツールバーを非表示にしたいのですがうまくいきません。
起動時に該当フォームを開くようにしていて、Form_Load時に「Application.SetOption \"ツールバーの表示\", False」としているのですが作用してくれません。
一度フォームを閉じてから再表示させるとツールバーが非表示になるのですが…。
起動時にツールバーを非表示にするにはどうしたらよいのでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (3件)

単純に


メニューの [ツール] - [起動時の設定] で
「組み込みツールバー」 のチェックをオフにする
ではダメな理由でも有るの?
    • good
    • 2

方法はあっているので、それ以外どうするの?


という感じです。。。
    • good
    • 1

質問の内容と違いますが、私はフォーム上にボタンを作成して表示・非表示できるようにしています。



メニューバーの表示・非表示を切り替え
CommandBars("Menu Bar").Enabled = Not CommandBars("Menu bar").Enabled

ツールバーの表示・非表示
Application.CommandBars("Formatting (Form/Report)").Visible = Not CommandBars("Formatting (Form/Report)").Visible
Application.CommandBars("Form View").Visible = Not CommandBars("Form View").Visible

ツールバーの名称を全て表示する。
For Each cbar In CommandBars
MsgBox cbar.name
Next
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QAccessのフォームのみ表示させたい

Accessを起動した際、フォームのみ表示するにはどうすればよいのでしょうか?
(Accessを起動すると、オブジェクトメニュー?(テーブルやクエリ等のオブジクトを選択するウィンドウ)を表示させないで、フォームのみを表示させるには?)
また、上記と同じようにして、なおかつAccessを起動させないでフォームで起動や終了といったことが出来るのでしょうか?
やはりこれはVB等プログラミングでないと出来ないのでしょうか?ちなみに私はプログラミングは全く出来ません。
わかる方、教えて下さい。宜しくお願いします。

Aベストアンサー

ツールメニュー
”起動時の設定”を開き

フォーム/ページの表示にて起動時に表示させたいフォームを選択すれば、そのMDBを開いた時に、該当のフォームが表示されます。

メニュー画面等を作り、各処理のフォームを開いたり、アクセスを終了するマクロを呼び出すボタンを作ればフォームからの終了等も可能です。

また、データベースウィンドウの表示のチェックボックスを外せば、質問者様の言われているオブジェクトメニューは表示されなくなります。

メンテナンス等を行いたい時はshiftキーを押下しながら立ち上げればデータベースウィンドウが表示できます。

QAccessでメニューバーが表示されなくなりました

お世話になります。

Access2003でフリーのソフトをいくつか使っているうちに、メニューバー(ファイル 編集・・・)が表示されなくなりました。
Access起動直後もソフト使用時も表示されない状態です。

他のツールバーは表示されますので、ユーザー設定の画面は出るのですが、メニューバーの設定らしきものはありません。

他の投稿でShiftキーを押しながらファイルを立ち上げるとか、F11を押すとかの記事がありましたのでやってみましたが、変化はありませんでした。

Accessの再セットアップもやってみましたが、どこかで前の設定を保持しているようで変化はありませんでした。

ご教授いただけるとありがたいです。
よろしくお願いいたします。

Aベストアンサー

あとは、[ツール] - [アドイン] - [アドインマネージャ]で、
組み込まれているアドインをすべて取り外すことくらいでしょうか。

その後、再起動して Ctrl + G でイミディエイトウィンドウを表示し、

? Commandbars("menu bar").Name

これで「Munu Bar」と表示されるようなら、

様子を見ながら、

Commandbars("menu bar").Enabled=true
Commandbars("menu bar").Visible=true
Commandbars("menu bar").Left=0
Commandbars("menu bar").Top=0

を実行してみる。
うまくいきますように。

QAccessのRefresh・Requery・Repaintの違い

Requeryはもう一度ソースレコード(テーブル)を読み込むようです。このとき、テーブルの先頭レコードに移動してしまいます。
Refreshは最新のレコード(テーブル)を再表示するような気がします。レコードの移動は起こらない気がします。
Repaintは、VBAでキャプションなどを変更したとき使っています。
でも、よくわかっていません。
どんなときにどんなメソッドを使えばいいのでしょうか?
詳しい方、よろしくお願いいたします。

Aベストアンサー

たびたびすみません。
調べてたらこんなのがでてきました。
http://www.nurs.or.jp/~ppoy/access/access/acF007.html

参考URL:http://www.nurs.or.jp/~ppoy/access/access/acF007.html

QAccessで「ツール」メニューを表示させたい

 あるMDBファイルを MS Access 2003 起動すると、その Access には「ツール」メニューが表示されません(メニューは、ファイル、編集、挿入、レコード、ウィンドウ、ヘルプのみ)「ツール」メニューを表示させるには、どのようにすれば良いでしょうか?

 起動させると自動的にフォームが起動するMDBファイルがあります。このMDBファイルでアドイン機能を利用するために「ツール」メニューを操作する必要があります。しかしながら、このMDBファイルを実行したときに起動するAccessには「ツール」メニューが表示しません。どのようにすれば、「ツール」メニューを呼び出すことができるでしょうか?

Aベストアンサー

多分作成者がマクロのAutoExecか、自動起動するフォームの開く時イベントあたりに、規定のメニューを変更する処理を入れてると思います。間違った操作をさせないために。
VBAであれば、該当行の前に'マーク(アポストロフィ)をつけることでその処理を無効にできます。
但し、フォームを閉じる時等にメニュー復旧の処理を入れてる可能性もあります。

参考URL:http://www.accessclub.jp/bbs/0089/beginers32506.html

QAccess サブフォームでの選択行の取得

こんにちは。

Access初心者です。

サブフォームでテーブルの項目を表示させていますが、
選択された行を取得する方法はありますか?
サボフォームの下の方に現在選択されているレコード数が表示されてますが、その値でかまいません。

調べているのですが、なかなか検討がつきません。
宜しくお願い致します。

Aベストアンサー

フォーム名がフォーム1、サブフォームコントロールの名前がサブフォーム1だとすると、

Forms!フォーム1!サブフォーム1.Form.CurrentRecord

で取得できます。
(「Forms」と「Form」がありますのでご注意下さい)


また、フォーム1にコードを記述する場合であれば

Me!サブフォーム1.Form.CurrentRecord

サブフォーム1へのコード記述であれば

Me.CurrentRecord

という構文によっても、それぞれ取得が可能です。

Qアクセスのメニューバーが消えました

 会社の後輩のパソコンのアクセスにメニューバーが表示されなくなりました。特にいじっていないとの事ですが、ツールバーのユーザー設定の中にもメニューバーがありません。元に戻すにはどうしたらよいでしょうか教えてください。

Aベストアンサー

アクセスを起動し、Ctrl + G
表示されたイミディエイトウィンドウに
CommandBars("Menu Bar").Enabled=True
と入力し、Enter。
これで表示されると思います。

QAccessで別テーブルの値をフォームに表示したい

初めてのAccessで分からない事があり質問させてください。

<会社テーブル>
会社ID
会社名
住所

<社員テーブル>
会社ID
社員名
ソート番号

*1社に対し複数の社員レコードが存在

以上のようなテーブルがあるとします

現在「会社テーブル」を表形式で一覧表示しています
会社ID,会社名、住所とフィールドが並んでいるのですが、その後ろに「社員テーブル」のソート番号が一番若い社員名を表示したいと考えています(現状は番号関係なく表示させる方法すら分かりません)

色々いじくりまわしたのですが、初めてAccessをさわる事もあってよくわかりません

リレーション等でひっぱってくる事ができるのでしょうか?

どなたか教えて頂けませんでしょうか

何卒よろしくお願い致します

PS.Access2013で作成中です

Aベストアンサー

単純にテーブル[会社]のみでフォームを作成し、社員表示用テキストボックスを追加。そして、そのプロパティを表示し

コントロールソース=DBLookup("SELECT 社員名 FROM 社員 WHERE 会社ID=" & [会社ID] & " ORDER BY ソート番号")

これは、以下の標準モジュールに登録したユーザ関数 DBLookup()を使っています。これで、クエリを用意しなくても目的を達成できます。

さて、かかるユーザ関数を標準ライブラリに登録したくない場合、

1、"社員ソートクエリ"を作成します。

SELECT 社員.会社ID, 社員.社員名
FROM 社員
ORDER BY 社員.ソート番号;

2、コントロールソースに次のように書きます。

=DLookUp("社員名","社員ソートクエリ","会社ID=" & [会社ID])

http://office.microsoft.com/ja-jp/access-help/HA001228825.aspx

DLookup()については、マイクロソフトの解説を参照されてください。

【DLookup()の限界を破るにはVBAで同じ関数を作るしかない】

マイクロソフトの解説を読めば判りますが、ORDER BY 節を指定する引数が用意されていません。ですから、どうしても、"社員ソートクエリ"を作成するという手間が必要となります。そこで、SQL文を引数とするDBLookup()をVBAで書けば、その手間を省けるという算段になります。この辺りは、好みと趣味の問題。どっちでも良いと思います。そういうお断りをした上で DBLookup()を紹介しておきます。なお、ADOは、つぎのように参照設定しないと利用できません。

http://www.happy2-island.com/access/gogo03/capter00307.shtml

Public Function DBLookup(ByVal strQuerySQL As String, _
             Optional ByVal ReturnValue = Null) As Variant
On Error GoTo Err_DBLookup
  Dim DataValue
  Dim rst     As ADODB.Recordset

  Set rst = New ADODB.Recordset
  With rst
    .Open strQuerySQL, _
       CurrentProject.Connection, _
       adOpenStatic, _
       adLockReadOnly
    If Not .BOF Then
      .MoveFirst
      DataValue = .Fields(0)
    End If
  End With
Exit_DBLookup:
On Error Resume Next
  rst.Close
  Set rst = Nothing
  DBLookup = IIf(Len(DataValue & ""), DataValue, ReturnValue)
  Exit Function
Err_DBLookup:
  MsgBox "SELECT 文の実行時にエラーが発生しました。(DBLookup)" & Chr$(13) & Chr$(13) & _
      "・Err.Description=" & Err.Description & Chr$(13) & _
      "・SQL Text=" & strQuerySQL, _
      vbExclamation, " 関数エラーメッセージ"
  Resume Exit_DBLookup
End Function

単純にテーブル[会社]のみでフォームを作成し、社員表示用テキストボックスを追加。そして、そのプロパティを表示し

コントロールソース=DBLookup("SELECT 社員名 FROM 社員 WHERE 会社ID=" & [会社ID] & " ORDER BY ソート番号")

これは、以下の標準モジュールに登録したユーザ関数 DBLookup()を使っています。これで、クエリを用意しなくても目的を達成できます。

さて、かかるユーザ関数を標準ライブラリに登録したくない場合、

1、"社員ソートクエリ"を作成します。

SELECT 社員.会社ID, 社員.社員名
FR...続きを読む

QACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ

ACCESSで空白のデーターをクエリで判定/識別する方法を教えてください。
EXCELでは空白を""で判定/識別表していますがACCESSではどうなるのでしょうか。

下の例はフィールドに試験番号があればその番号を、空白なら”欠席”と表示しようとしています。
IIf(([試験番号]="空白の場合何を入れる?"),[試験番号],"欠席")

Aベストアンサー

もうひとつの書き方は
式1: IIf([試験番号] Is Not Null,[試験番号],"欠席")
第2、第3引数の、質問の順序にあわせるとこうなる。

Qアクセス:フォームビューからデザインビューへの切替えをロックしたい

お世話になります。
アクセス初心者ですよろしくお願いします。

《アクセス:フォーム》
◆フォームビューから、デザインビューに他者が自由に切替えをできないようにすることは簡単にできますか?

◆(目的)私が作成したものを入力担当者が勝手にさわれないようにするためです。

以上よろしくお願いいたします。

Aベストアンサー

配布はMDE形式とする。

と、言うのも使えそうですが・・・。

QAccessの画面更新を一時的に停止する方法。

こんにちは。
Accessの画面更新を一時的に停止する方法を捜しています。
ExcelのScreenUpdatingと同様な機能です。

VBAでの更新処理時に画面がチラチラと動くのを防止したいと思っています。
(Ver:Access2000)
ご存知の方宜しくお願い致します。

Aベストアンサー

Application.Echo False '画面の描画を止める

・・・処理を実行する・・・

Application.Echo True '画面の描画を行う


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング