痔になりやすい生活習慣とは?

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

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

A 回答 (5件)

ツールメニュー


”起動時の設定”を開き

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

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

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

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

ありがとうございました。早速、やってみます!

お礼日時:2006/02/12 00:15

プログラミングなしでしたら・・・


1.該当フォームのプロパティ「ポップアップ」「作業ウインドウ固定」をともに「はい」にします。
2.Access を終了するマクロを作成しそのフォームのコマンドボタンに割り当てしておきます。
 (閉じるボタンを非表示にされた方がよいかも・・・)
3.他の方の仰るとおり、「起動時の設定」でそのフォームが開くよう設定しておきます。
3.MDBのショートカットを作成し実行時の大きさを最小化しておきます。
 (起動はこのショートカットから行います。)

これでご希望の動作になると思います。

※最初はテスト用DBを作成し動作確認したほうが良いでしょう!
    • good
    • 2
この回答へのお礼

わかりやすく書いて下さり、ありがとうございました。一度、テストしながらやってみます。

お礼日時:2006/02/12 00:23

[ツール]-[起動時の設定]


のデータベースウインドウの表示のチェックをはずせば
データベースウインドウは表示しないと思います。

F11を押せば表示できる、ということを知っている人には
意味が無いかもしれません。

それも出来なくするには、詳細ボタンを押して、
ショートカットキーを有効にするのチェックをはずして
できるかも。

でも自分の操作も制限されるので、TESTのMDBでTEST
してからのほうがよいかと思います。

>Accessを起動させないでフォームで起動や終了といったことが出来るのでしょうか?
Accessが起動するからフォームが表示できると思います。
    • good
    • 0
この回答へのお礼

参考になりました。ありがとうございました。

お礼日時:2006/02/12 00:22

むずかしいプログラムなしでも


「ツール」「起動時の設定」で「データベースウィンドウの表示」のチェックをはずし、
最初に開くフォーム(メニュー)を指定すれば、ある程度は設定できます。
フォームの配置などをいじられたくない場合は、
「ツール」「データベースユーティリティ」「MDEファイルの作成」すればいいです。
    • good
    • 3
この回答へのお礼

ありがとうございました。MDEファイルを作成すると操作できなくなることも出来るんですね・・・。知りませんでした。やってみます。

お礼日時:2006/02/12 00:21

Accessの[ツール] - [起動時の設定]で設定できます。



・データベースウィンドウの表示
・ステータスバーの表示。
・全てのメニューを表示する
のチェックを外せば、表示されません。

そして、「フォーム/ページの表示」に最初に表示させたいフォームを指定すれば、Accessのウィンドウの中にフォームだけが表示されます。
    • good
    • 0
この回答へのお礼

ありがとうございます。設定を見てみます。

お礼日時:2006/02/12 00:19

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

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

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

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

QACCESSのフォームだけを起動する方法

ACCESS2000のVBAにて、管理システムのようなものを作成しました。

 このままクライアントに渡すと、新規にテーブルを作ったり、新規にクエリを作成したりと、せっかくのデータベース、レポートがぐちゃぐちゃになりそうな気がします。

 そこで、おききしたいことがあります。

  ・フォームだけを表示できないでしょうか。
   ※ACCESS起動後、フォームだけが起動する。

   その他、メニューは表示させない。
   (テーブルからのデータ入力、フィールド追加、クエリ作成をできないようにする)

   "F11"キーでのメニュー表示も無効にする。

データベースは、SQLからテーブルリンクしております。

どうぞよろしくお願い致します。

Aベストアンサー

Accessのメニューで「ツール(T)」→「起動時の設定(U)」をクリックして「起動時の設定」ダイアログボックスを表示させ、「データベースウィンドウの表示」「全てのメニューの表示」「既定のショートカットメニュー」等のチェックを全てオフにします。
(「詳細(A)」ボタンを押したときに表示される「ショートカットキーを有効にする」のチェックも含めて)

これで、そのファイルを普通に開いた場合、データベースウィンドウを表示できなくなります。
但し、Shiftキーを押しながら起動させた場合には、データベースウィンドウが表示させることができてしまうので、それを防ぐために下記参照URLのVBAコードを適用して、Shiftキーを押しながらの起動を無効にして下さい。
(前半部分の説明も含めて、同URLに詳しく紹介されています)

※Shiftキーの再有効化をできなくなってしまうと問題なので、まずはサンプルファイルを作って動作を確認してから、本番に適用して下さい。

参考URL:http://www.accessclub.jp/samplefile/samplefile_01.htm

Accessのメニューで「ツール(T)」→「起動時の設定(U)」をクリックして「起動時の設定」ダイアログボックスを表示させ、「データベースウィンドウの表示」「全てのメニューの表示」「既定のショートカットメニュー」等のチェックを全てオフにします。
(「詳細(A)」ボタンを押したときに表示される「ショートカットキーを有効にする」のチェックも含めて)

これで、そのファイルを普通に開いた場合、データベースウィンドウを表示できなくなります。
但し、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でフォームを使って、テーブルを参照、データ入力、データ更新をしたいのです

フォームを使って、テーブルを参照、データ入力、データ更新をしたいのです。

売上テーブル

 ID   商品コード  日付    金額 
 1    G1     20080101  532153
 2    G1     20080101  564281
 3    G1     20080301  538123
 4    J4     20080301  124531
 5    J4     20080302  125483

ID:オートナンバー 商品コード:数値型 日付:数値型 金額:数値型

これを使い、
フォームではまず

レコードナンバーを入力画面
       ↓
レコード番号を入れると、そのレコードのデーターが画面に表示され、
その画面で修正可能
       ↓
 保存 ボタンで保存

という流れです。

レコードナンバーはIDを使おうと思っています。

データの量が莫大な為、コンポボックスなどは使えません。

できるだけ、VBAなどは使わずに作りたいです。

よろしくお願い致します。

フォームを使って、テーブルを参照、データ入力、データ更新をしたいのです。

売上テーブル

 ID   商品コード  日付    金額 
 1    G1     20080101  532153
 2    G1     20080101  564281
 3    G1     20080301  538123
 4    J4     20080301  124531
 5    J4     20080302  125483

ID:オートナンバー 商品コード:数値型 日付:数値型 金額:数値型

これを使い、
フォームではまず

レコードナンバーを入...続きを読む

Aベストアンサー

まずそのテーブルを基にしてフォームを作成します。
そのフォームのヘッダー部分にテキストボックスを配置後、一旦
上書き保存。
フォームのレコードソースを
SELECT *
FROM テーブル名 WHERE ID=[Forms]![フォーム名]![テキストボックス名]
とします。
次にテキストボックスの更新後処理に
Me.Requery
とすれば完成です。
フォームを開いてテキストボックスにID入力後エンターしてください。

保存に関しては、コマンドボタン作成後クリック時イベントに
DoCmd.RunCommand acCmdSaveRecord
とすれば良いでしょう。

この手のモノは検索すれば相当数ヒットするので、そちらを参考にされるのもよろしいかと。

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初心者です。

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

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

Aベストアンサー

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

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

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


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

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

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

Me.CurrentRecord

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

QACCESSを開くと最初にフォームを開くには?

いつもお世話になっています。
Access2003を使っています。
例えばデスクトップ上からAccessを開くと最初にテーブルの一覧等の画面がでてきますよね?
それを最初に開いたときに作成済みのフォームが開くようにしたいのです。要はユーザーインターフェイスで開きたいのです。
いろいろ探しては見たものの、そもそも探し方がわからずまたここにきてしまいました。
ヒントでも良いので教えていただければ幸いです。
よろしくお願い致します。

Aベストアンサー

ツールの中に「起動時の設定」ってのがあるので
そこのフォーム/ページのとこを
開いてほしいフォームにすればOK

QAccessのマクロでモジュールを実行させたい。

Access2002を勉強中の初心者です。

AccessでDB1という名前のデータベースを作成し、その中で、モジュール1というモジュールを作成しました。これを実行するマクロを作成したく、次のようにマクロを作成しました。
マクロのデザイン画面でアクションに「プロージャの実行」を選択、プロージャ名入力覧の右側の...のボタンを押して式ビルダ画面を表示、ここの「関数」フォルダを開いてDB1を選択、表示されたモジュール1を貼り付けてOK。
しかし、このマクロを実行すると、次のエラーとなります。「DB1 指定されたDB1が見つけることができない関数名が含まれています」

根本的に方法が間違っているのでしょうか?
アドバイスをよろしくお願いします。

Aベストアンサー

#1です。

ちょっと時間ができたので、Accessのヘルプで、
 "RunCode/プロシージャの実行" アクション
についてのトピックを見てみました。

結論から言うと、基本的な考え方が間違っているみたいです^^;。

「プロシージャの実行」アクションでは、「Function」プロシージャを指定するようです。
Subプロシージャではエラーになります。


つまりご質問の件では、
「Subプロシージャを呼び出すFnctionプロシージャ」をまず書かなけれえばならない。
そして、マクロのアクションでは、あらためてこのFunctionプロシージャを指定しなければいけません。

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

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

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

Aベストアンサー

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

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

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

Aベストアンサー

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

Q【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには

バージョン:Access2002

フォーム「frm01」にテキストボックス「tb01」が作ってある場合、
Forms.frm01.tb01.Value="あいう"
とすれば、フォームもコントロールも指定できるのですが、
Dim strTxt As String
strTxt = "tb01"
Forms.frm01.strTxt.Value="あいう"
だと、文字列型変数"strTxt"が展開されないのでフォーム「frm01」のコントロール「strTxt」を探してしまいエラーになってしまいます。

文字列型変数でフォームやコントロールを指定するには、どのようにすればよいのでしょうか?

Aベストアンサー

フォームの場合
 Forms(strFrm)

フォームのコントロールの場合
 Forms(strFrm).Controls(strTxt)


これでも参照できますが、普通ここまで省略しませんね。
 Forms(strFrm)(strTxt)

あとで見たとき、訳がわからなくなりそう。


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

人気Q&Aランキング