Accessで動作するように学習
時にはそれがクエリーを行うと、登録が必要ないされていない場合、たとえば、表示するレコードが存在する場合、開いているフォームを防ぐために必要ですが、私たちが表示するデータがないので、フォームを開いた状態である必要はありません。 だから我々はチェックしなければならないどのようなメッセージを表示し、フォームを開い妨げないが存在しない場合、表示とするレコードがあるかどうかです。 方法は？
それはちょうど "開いて"イベントで、フォームのプロパティで以下のコードを配置するのは簡単です。
Form.RecordsetClone.RecordCount場合= 0
MsgBoxに "いいえレコードが見つかりませんでした。" VbExclamation、 "エラー！"
DoCmd.Close acForm、 "データ検索"
Subプロシージャを終了する
終了する場合
例を参照するにはダウンロード： フォームが開い防止
me.keypreview = TRUE： - 1の構造やイベントでの注文フォームを作成するフォームのプロパティにある "クリックすると、 '次のコマンドを入力します。
またはこれは、キーボードイベントが最初の形式で受信されていることを確認しようとしている。
2 - フォームのプロパティで、イベント "ボタンをクリックすると、以下に"次のコードを配置：
します。Private Sub Form_KeyDown（KeyCodeを整数として、整数としてシフト）
ケースKeyCodeを選択します。
ケースvbKeyF2
にDoCmd.OpenForm "Form1"の
ケースvbKeyF3
にDoCmd.OpenForm "フォーム2"
ケースvbKeyF4
にDoCmd.OpenForm "formulario3"
ケースvbKeyF5
ダブル点心電卓として
電卓=シェル（ "CALC.EXE"、vbNormalFocus）
ケースvbKeyF6
DoCmd.Close
Case Elseの
選択して終了
End Subの
これは何するには、次のとおりです。
- F2キーを押すことでForm1を開きます。
- F3キーを押すことでForm2を開きます。
- F4キーを押すことでformulário3を開きます。
- F5キーを押すとWindowsの電卓を開きます。
- F6キーを押すことでフォームを閉じる
ファンクションキーF1、F2に加えて、...等では、我々はまた、機能を実行するために他のボタンを使用することができますが、私たちがフィールドにデータを書き込むために使用されるキーを使用することが適していない形式でデータを入力するのであればあることを念頭に置いて。
もう一つは、それだけでは、上記のコードを入れてフォーム上で動作することです。
ダウンロード： キーを 
これは、私たちは、このメニューだけで開いているフォームを必要とするので、開いているフォームの面で時間、コードの行数と優れた配置を保存することができますメニューのようなものです。 開いているフォームの数を減らすことに加えて、各フォームを開くには、メニュー内のボタンの数が減少します。
メニューのこのタイプは、確かにしばらくの間存在していると、すでにアクセスの多くのユーザーによって使用されます。
したがって、このメニューはどこにあるのでしょうか？
我々はそれを介して開くために計画しているすべてのフォームを含むコンボボックスを使用してメニューを作成してみましょう。 コンボボックスからオプションを選択すると、アプリケーションのフォームがサブフォーム内に表示されます。 その後、我々はステップバイステップのメニューを作るために開始します。
1 - 私達はあなたが開きますフォームの各フォームと名前を付けたい名前を格納するテーブルを作成してみましょう。 例では、私には、次のフィールドを持つテーブル 'tblmenu "を作成しました。
フィールドタイプ
Nomedomenuテキスト - メニューに表示されます>名前（コンボボックス）
フォームのテキスト - 開きますフォームの>名前
後の例で導入されたデータは、次のとおりです。
NomedoMenuフォーム
アカウントをForm1
預金Form2の
動きformulario3
アカウント·ボックスformulario4
アカウント - アカウントformulario5
抽出formulario6
2 - 次に、前のテーブルからクエリを作成します。
Tblmenuは、テーブルを選択し、次に我々はメニューを我々は、フォームを開こうとするかなりの数を見つけやすいようにソートnomedomenu昇順のために選んだその内の2つのフィールドを選択します。 このクエリに私がCsMenu "と呼ばれる。
3 - のフォーム "メニュー"を作成してみましょう。つまり、デザインビューで新しいフォームを選択します。 次に、コンボボックスを作成し、次のプロパティを変更します。
- 列数：2
- 列の幅は1cm、0センチメートル。
- 線の起源：csmenu（前の段落で作成したクエリの名前である）
4 - 同じ形式では（私はmenuquadroと呼ばれる例では）非連結メインフォームのサブフォームを作成します。 それは、フォームの各メニュー（コンボボックス）から選択する開くされるこの形式です。
5 - 今私たちがサブフォーム内のコンボボックスで選択されているメニューを開くことができますモジュールを作成します。
我々は、モジュールを作成し（私は "abrirmenu"と呼ばれる）と、次のコードを貼り付け：
パブリック関数AtivarMenu（Combmenuコンボボックス、サブフォームsubabrir）
文字列名As Abrirform
=（1）Combmenu.Column abrirform
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
エンド機能
フォーム]メニューの[コンボボックスのプロパティに入った後とその後の更新イベントは作成された関数を配置します。ativarmenuは=（[メニュー]、[menuquadro]） 'メニュー'コンボボックスの名前と "menuquadro"であることサブフォームの名前。
そして最後にメニューが使用できるようになります。 ちょうど試してみて使用します。 私はこの先端を楽しんだことを望みます。
ダウンロード： メニュー
メニューの写真を下に。
カスタムメニュー
この例では、支払いの準備のための方法マネジメントシステムを示しています。
例は、これはボタンをクリックするだけで自動的に作成されないことを示して、データを介して売買契約の利点が入った。 つまり、我々は契約開始日、総支払金額にクライアントの名前を紹介しています。 次に、単にそれが自動的に分割払いの数を生成し、それらの各々によって示された値を分割し、それぞれの割賦の日付（月ごと）を計算 "計算の支払い"をクリックしてください。 これはまた、ボタンをクリックしたときには、各利益のためにレコードを追加しますので、一度に複数のレコードを追加する方法を示し例です。
ダウンロード： 複数のレコードを挿入します。
これは、ソニア読者が動物のデータベースレコードのデータを意図した応用分野の一例です。 それは動物の写真とデータ入力のためだけの形式の単純なデータベースです。
ダウンロード： 動物シェルター
変更は、ちょうどここにコメント。
そこにレコードを入力するにはいくつかの方法があり、最も一般的なテーブルにバインドされているフォームを介して取得することです。 これを行う別の方法、すなわちテーブルとは無関係の独立したフィールドを持つフォームを使用して、無関係のフィールドを介して行われます。 へ
この例の場合には以下のとおりであるコードによって、すなわち、我々は 'レコードセット'を使用してデータを入力します。
ます。Dim DB as Database
Recordsetとして薄暗いRSMsgBoxには、（ "あなたが書きたいか？" VbYesNoCancel、 "オプション"）=次にvbYes場合
"を押すことにより、コードが最後まで続けそうだとすれば、レコードを保存するかどうかを尋ねられる
DB = CurrentDb（）を設定する
セットrs = db.OpenRecordset（ "データ"、dbOpenTableを）
"登録データを挿入するテーブルを開きますrs.AddNew
RS（ "名前"）=ミー！INome
RS（ "アドレス"）=ミー！Imorada
RS（ "年齢"）=ミー！Iidade
rs.Update 'は、テーブルにデータを送信します。
rs.Close 'データをクリアして、レコードセットを閉じます
RS = Nothingを設定しない
DB = Nothingを設定しないMe.INome = NULL 'は、フォーム内のフィールドをクリアする
Me.Imorada = NULL
Me.Iidade = NULL
MsgBoxに "レコード保存"、vbInformation、 "" Done "と表示する確認メッセージ
最初のフィールドにカーソルを移動 'Me.INome.SetFocus
他：終了サブ
終了する場合
ダウンロード： 独立した場所
この例では、時間の計算を実行する方法を示しています。 それはどのくらいの時間は、開始時刻と終了時刻の間の経過を知る必要があり人々のために有用である。 1日から次のアカウントに移動する終了時刻であればので、例えば、もはや正しいでしょう開始時間終了時間の減算を行うのに十分ではありません。
開始時間：午前23時00分00秒
終了時間：2時00分00秒
終了時刻 - 開始時間=午前2時00分○○秒に夜十一時00分00秒= -21:00:00
その後、代わりに正しい結果に3時間を持つことは間違って-21時間になるため、明らかにそれは、時間で動作するようにそれほど単純ではありません。
我々は終了時刻がその後の計算のどちらか大きい方、開始時刻よりも大きいかどうかをまず確認しなければならない日々になり、この期間を回避するには、次のとおりです。終了時刻 - 開始時刻。
あなたは、下にあるなら、私たちは、すなわち、計算を別の方法を実行する必要があります。
開始時間：午前23時00分00秒
終了時間：2時00分00秒
合計時間：23:59:59
ヒット：00:00:01
基本的に我々は何をすべきか私達に正しい三時間を与えるために24:00:00減算の値に追加するだけです。 ことは、次のとおりです。
終了時刻 - 開始時刻+総実労働時間+ヒット= 2時00分00秒に23時00分○○秒+ 23時59分59秒+午後十二時00分01秒= 24:00:00 = 03 + -21:00:00 ：00:00
ダウンロード： 時間と微積分
この例では、ポップアップカレンダーを介して日付を選択する方法を示しています。 これは、モジュールとしてであり、これはカレンダーとして日付を選択形成することができます。 例では、日付フィールドの横にあるボタンをクリックするか、日付フィールドにマウスの右ボタンをクリックして日付を選択することができます。 それは私たちがカレンダーを確認し、必要な最高の日付を選択することができますので、日付を入力するには、この方法は非常に実用的です。
ダウンロード： ポップアップカレンダー
通常我々は、フォーム上でマウスの中央ボタンを実行すると、アクセスログを変更します。 いくつかの状況では起こりませんその役に立つかもしれません。
この例では、ユーザーがスクロールマウスを使用してレコード間を移動を防ぐため、ロードするために、フォームのイベントでモジュールを使用しています。 テストするために我々は、その登録を変更することはありません確認するには、マウスホイール（中央ボタン）を使用することができます。
ダウンロードはこちら： ホイールマウス
この例では、フォームのウィンドウが見えるようにしておき、Microsoft Accessのメインウィンドウを非表示モジュールを使用しています。
コールfsetAccessWindow（SW_HIDE）：我々は、フォームのオープニングイベントで次のコマンドを使用する必要があり、このモジュールを使用します。
例の方法で確認するにはdownloaの手順を実行します。 ウィンドウACCESを操作する
訪問していただきありがとうございます。
すべてのメッセージを逃さないため、フィードを購読してください。
購読するまたは電子メールで購読： 
