メニュー|アクセスの例

カスタムメニュー

adminによって| | 19時22分- 2008年9月20日（土曜日）に掲示

これは、私たちは、このメニューだけで開いているフォームを必要とするので、開いているフォームの面で時間、コードの行数よりよい配置を保存することができますメニューのようなものです。開いているフォームの数を減らすことに加えて、各フォームを開くには、メニュー内のボタンの数が減少します。
メニューのこのタイプは、確かにしばらくの間存在していると、すでにアクセスの多くのユーザーによって使用されます。
したがって、このメニューはどこにあるのでしょうか？
我々はそれを介して開くために計画しているすべてのフォームを含むコンボボックスを使用してメニューを作成してみましょう。コンボボックスからオプションを選択すると、アプリケーションのフォームがサブフォーム内に表示されます。その後、我々はステップバイステップのメニューを作るために開始します。

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 'であること：フォーム]メニューの[コンボボックスのプロパティとUpdateイベント後に作成された関数置くに入った後サブフォームの名前。

そして最後にメニューが使用できるようになります。ちょうど試してみて使用します。私はこの先端を楽しんだことを望みます。
ダウンロード：メニュー

メニューの写真を下に。