ジメジメする梅雨のお悩み、一挙解決! >>

Access2010についての質問です。
自分はプログラムやデータ、クエリー等を修正したいが、他の使用者には中身を変更されたくないので、「ファイル」→「オプション」→「カレント データベース」で、「ナビゲーションウィンドウを表示する」と「すべてのメニューを表示する」のチェックをはずすと、表面上は希望に近いものとなりました。
ただ、以下のことについて解決したいので、どなたかお分かりの方がおられましたらご教授をお願い致します。

(1)リボンで「ファイル」と「ホーム」だけは表示され、操作上問題があるので、これらも非表示または操作無効にしたい。
(2)クイックアクセスツールバーも非表示または操作無効にしたい。
(3)画面右上の「リボンの展開」ボタンも非表示または操作無効にしたい。

ただし、あくまでも自分だけは中が開けるようにしたい。
(Access2000のときは、シフトキーを押しながらデータベースをクリックすると中が開けました)
以上、宜しくお願い致します。

A 回答 (1件)

http://www.grot3.com/software/office/access/Form …
の下の方の設定でできます。

操作ミスを防ぐだけならホームタブくらいは出ても良いと思いますが、気分的にカッコ悪いと思ったら隠しても良いですね。

意図的な変更を防ぐのでしたらmdeにした方が良いと思います。

この回答への補足

せっかくアドバイスを頂いたのに返事が大変遅くなり、申し訳ありませんでした。
あれから何とか時間を見つけてあなた様のアドバイス等、色々と試行錯誤したところ、9日も経ってしまいました。
結局、現時点の判断では、システムを立ち上げて右クリックすればデザインビューが開けるので、他の人が中身を変更する可能性がありますので、まだ検討を続けております。
Access2000のように、「ツール」→「データベースユーティリティ」→「MDEファイルの作成」のような方法があれば良いのですが。

補足日時:2011/04/27 19:42
    • good
    • 1

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

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

関連するカテゴリからQ&Aを探す

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

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

QACCESSのツールバーを非表示にしたい

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

Aベストアンサー

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

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

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

Aベストアンサー

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

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

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

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

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

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 サブフォームでの選択行の取得

こんにちは。

Access初心者です。

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

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

Aベストアンサー

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

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

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


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

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

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

Me.CurrentRecord

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

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

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

QACCESS2010のリボンの非表示について

お世話になります。
MicroSoftAccess2010のリボンの非表示について
質問です。

リボンの非表示については、他の質問で下記のような対応方法が
ありまして、設定することにより、表示をなくすことはできました。

<設定方法>
システムオブジェクトの表示をチェックする。

新規で、テーブルを追加する。
テーブル名
USysRibbons

フィールド名
RibbonName テキスト型  
RibbonXml  テキスト型

データ
RibbonNameHiddenRibbon
RibbonXml"<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">
<ribbon startFromScratch=""true"" />
</customUI>"

この作成したテーブルを、ACCESSのオプション→カレントデータベースの
リボン名に、テーブルを指定することにより、リボンの非表示ができました。

ここで質問なんですが、
ACCESSの帳票印刷時にページ指定印刷を行いたいときがあります。

ACCESS2003を利用していた時は、メニューバーの印刷からページ指定印刷を
利用者に行ってもらっており、リボンすべてが非表示になってしまうと一部問題があります。

不必要なリボンは非表示にしつつ、ページ指定印刷が可能になるような設定方法に
ついてやり方を御助言いただけますでしょうか

ご面倒かけまして、申し訳ありませんがよろしくお願いいたします。

お世話になります。
MicroSoftAccess2010のリボンの非表示について
質問です。

リボンの非表示については、他の質問で下記のような対応方法が
ありまして、設定することにより、表示をなくすことはできました。

<設定方法>
システムオブジェクトの表示をチェックする。

新規で、テーブルを追加する。
テーブル名
USysRibbons

フィールド名
RibbonName テキスト型  
RibbonXml  テキスト型

データ
RibbonNameHiddenRibbon
RibbonXml"<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/cu...続きを読む

Aベストアンサー

今日、見つけたんですが
[印刷プレビュー]タブを丸ごと表示して良いなら
こちらの方法で。
http://mukkumuku.blogspot.jp/2010/10/access2010-ribbon-startfromscratch.html

グループ毎の非表示もできそうですが、ID を調べたりしなくちゃいけないので。

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true" >
<tabs>
<!-- idMsoで指定し明示する -->
<tab idMso="TabPrintPreviewAccess" visible="true" />
</tabs>
</ribbon>
</customUI>


もっと良い方法があるかもしれないけど、
一応動いている方法。
印刷プレビュー時 に
「印刷」「印刷プレビューを閉じる」だけを表示します。

USysRibbons に レコードを追加。

RibbonName : PrintRibbon (何でもいいけどとりあえず「PrintRibbon」)
RibbonXml :
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true">
<tabs>
<tab id="frmPrintTab4" label="コマンド">
<group id="frmPrintGroup1" label="印刷">
<control idMso="PrintDialogAccess" size="large"/>
</group>
<group id="frmPrintGroup2" label="プレビューを閉じる">
<control idMso="PrintPreviewClose" size="large"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

各レポートの「リボン名」プロパティ に「PrintRibbon」 を設定。

カレントデータベースのリボン名 は、非表示用のまま変更せずに。

以上です。

今日、見つけたんですが
[印刷プレビュー]タブを丸ごと表示して良いなら
こちらの方法で。
http://mukkumuku.blogspot.jp/2010/10/access2010-ribbon-startfromscratch.html

グループ毎の非表示もできそうですが、ID を調べたりしなくちゃいけないので。

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true" >
<tabs>
<!-- idMsoで指定し明示する -->
<tab idMso="TabPrintPreviewAccess" visible="true" />
</tabs>
</rib...続きを読む

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...続きを読む

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

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

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

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

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

Aベストアンサー

配布はMDE形式とする。

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

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

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

Aベストアンサー

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

Qアクセエスのレコードの更新をVBAでするには?

アクセスで、一覧表のフォームにボタンを取りつけています。レコードの内容を変更したら、ペンの形のマークが現れますね。これは変更中ということですが、そこでボタンを押しても変更は確定されないから、更新確定させたいのです。

それで、DoCmd.Requery を最初の行に入れてみたら、元の一覧表は最初のレコードに飛んでしまう。

元の一覧表の位置を動かさないために、Ctrl+Enter キーを押して更新確定させたような状態をVBAで実現する方法あるのでしょうか?

よろしくお願いします。

Aベストアンサー

No1 です。
今回の場合には
Docmd.RunCommand acCmdSaveRecord の方が良かったですね
文字通りレコードを保存します。
Requery に引きづられてしまいました (^_^;)

Recalc、Refresh、Requery の使い分けは下記が参考にはなりますか?
http://www.nurs.or.jp/~ppoy/access/access/acF007.html


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

人気Q&Aランキング

おすすめ情報