![](https://enjoy-access.com/wp-content/uploads/2021/07/dq-05-300x200.jpg)
VBA(Visual Basic for Applications)と聞くと「ぎょ!」として「すいません、もうお腹いっぱいです。帰ります!!」てなりがちです。
正直ちゃんと勉強しようとすると奥が深く大変です。ここではAccessのシステムを動かすのに必要な簡単なコードの説明をしていきます。
前回からの引き続きで、メイン画面フォームを作ります
「作成」→「フォームデザイン」から新規フォームを作成します
「メイン画面」という名称でで名前を付けて保存をします
![f:id:me-hige:20191209201225j:plain f:id:me-hige:20191209201225j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191209/20191209201225.jpg)
プロパティシートの設定を変更します
- 自動中央寄せ:はい
- レコードセレクタ:いいえ
- 移動ボタン:いいえ
- スクロールバー:なし
- コントロールボックス:いいえ
![f:id:me-hige:20191209202019j:plain f:id:me-hige:20191209202019j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191209/20191209202019.jpg)
フォームにテキストを入れる
ツールバー「デザイン」→「コントロール」の「Aa」(ラベル)をクリック
![f:id:me-hige:20191209224705j:plain f:id:me-hige:20191209224705j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191209/20191209224705.jpg)
メイン画面と入力します
![f:id:me-hige:20191209225022j:plain f:id:me-hige:20191209225022j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191209/20191209225022.jpg)
フォームにボタンを配置
まずコントロールウィザードをOFFにしておきます
![f:id:me-hige:20191209225859j:plain f:id:me-hige:20191209225859j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191209/20191209225859.jpg)
コントロールの矢印の部分をクリックすると下にずりっと表示されます
「コントールウィザードの使用 」をOFFにします
![f:id:me-hige:20191209225840j:plain f:id:me-hige:20191209225840j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191209/20191209225840.jpg)
![f:id:me-hige:20191209230415j:plain f:id:me-hige:20191209230415j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191209/20191209230415.jpg)
この状態から
![f:id:me-hige:20191209230431j:plain f:id:me-hige:20191209230431j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191209/20191209230431.jpg)
この状態へ
コントロールウィザードがONになっていると
ボタン等を配置した時にこのようなウィザードが表示されます
私は正直使いにくいので、OFFにしちゃいます(MicroSoft様すいません)
![f:id:me-hige:20191209230701j:plain f:id:me-hige:20191209230701j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191209/20191209230701.jpg)
ボタンを選択し、フォーム上に配置します
![f:id:me-hige:20191209231347j:plain f:id:me-hige:20191209231347j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191209/20191209231347.jpg)
ボタンが選択されている状態で「F2」ボタンを押すと、テキストが編集できます
「アイテム入力フォーム」と入力します
![f:id:me-hige:20191209231531j:plain f:id:me-hige:20191209231531j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191209/20191209231531.jpg)
アイテム入力フォームをダブルクリックして
プロパティシートを開き
「その他」タブの
「名前」を「アイテム入力フォーム」にします
![f:id:me-hige:20191209231804j:plain f:id:me-hige:20191209231804j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191209/20191209231804.jpg)
「アイテム入力フォーム」ボタンにVBAを割り当てる
![f:id:me-hige:20191210224244j:plain f:id:me-hige:20191210224244j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191210/20191210224244.jpg)
「アイテム入力フォーム」ボタンをクリックしたときに、アイテム入力フォームへ画面が移動する仕組みを作ります
「アイテム入力フォーム」ボタンのプロパティシートの「イベント」タブのクリック時にカーソルを合わせ、「・・・」をクリックします
![f:id:me-hige:20191210224749j:plain f:id:me-hige:20191210224749j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191210/20191210224749.jpg)
ビルダーの選択が表示されます
「コードビルダー」を選択し「OK」をクリック
![f:id:me-hige:20191210224942j:plain f:id:me-hige:20191210224942j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191210/20191210224942.jpg)
VBE(Visual Basic Editor)が起動します
このVBEは文字通りVisual Basic を記述するエディターです
色々なウインドウとボタンが表示されていて、嫌になりそうですが
ボタンにVBAを埋め込むだけなら
とりあえず赤枠の中だけ見ればOKです
![f:id:me-hige:20191210225553j:plain f:id:me-hige:20191210225553j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191210/20191210225553.jpg)
この
Private Sub アイテム入力フォーム_Click()
ここ
End Sub
にアイテム入力フォームボタンをクリックした時の命令を入力します
それでは、アイテム入力フォームボタンをクリックした時に、アイテム入力フォームが開く命令を入力します
Private Sub アイテム入力フォーム_Click()
DoCmd.OpenForm “アイテム入力フォーム”
End Sub
VBE画面の「×」ボタンをクリックし、VBEを閉じ、Accessの画面に戻ります
![f:id:me-hige:20191210231050j:plain f:id:me-hige:20191210231050j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191210/20191210231050.jpg)
Accessのフォーム デザインビューに戻りました
![f:id:me-hige:20191210231331j:plain f:id:me-hige:20191210231331j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191210/20191210231331.jpg)
では、一度保存をしてフォームビューに切り替えて動作確認をしていきます
「アイテム入力フォーム」ボタンをクリックします
![f:id:me-hige:20191210231838j:plain f:id:me-hige:20191210231838j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191210/20191210231838.jpg)
アイテム入力フォームが開きました
![f:id:me-hige:20191210231801j:plain f:id:me-hige:20191210231801j:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20191210/20191210231801.jpg)
このように、AccessはボタンにVBAを組み込んでいくことで、
フォームとフォーム
フォームとレポート
フォームとテーブル
フォームとクエリ
をつなぐことができます
今回覚えたのは
DoCmd.OpenForm ” 開きたいフォーム名”
です
たった1文ですが、これだけれ結構使えます
では次回はVBAについてもう少し説明していきます
![](https://enjoy-access.com/wp-content/uploads/2021/07/vba-dq-access07-300x200.jpg)
コメント