こんにちは！Access大好きブロガーのなかぜんです。
Accessでデータ入力フォームを作ったけれど、「保存」「クリア」「次のレコードへ」などの操作がいちいち面倒……そんな悩みはありませんか？
実は、フォームにボタンを設置することで、誰でも直感的に使いやすくなります！この記事では、Access初心者さんにもわかりやすく、フォームにボタンを設置して操作を簡単にする方法を解説していきます。
フォームにボタンを設置する方法
ウィザードで簡単に設置
Accessでは、ウィザード機能を使えば、マウス操作だけで簡単にボタンを設置できます。
- フォームのデザインビューを開く
- ツールボックスから「ボタン（コマンドボタン）」を選択
- 設置したい場所でクリック
- 「コマンドボタンウィザード」が表示されるので、操作内容（例：レコードの保存、フォームの終了など）を選択
- 表示するテキストやアイコンを設定して完了
これで、ボタン1つで操作ができるようになります！
VBAを使って自作の動作を実装する
Accessの自由度をもっと活かすなら、VBA（Visual Basic for Applications）でボタンの動作をカスタマイズするのもおすすめです。
' 例：フォーム上のテキストボックスをクリアするボタンのコード
Private Sub btnClear_Click()
Me.txtName = ""
Me.txtAddress = ""
Me.txtPhone = ""
End Sub
解説：
この例では、3つのテキストボックス（名前、住所、電話番号）を空にする処理を、ボタン「btnClear」のクリック時に実行しています。
ボタンの「クリック時」イベントに上記コードを入力すれば、実行されるようになります。
注意点とよくあるミス
コントロール名とコードの整合性
VBAを使うときは、テキストボックスの名前を正しく指定しましょう。フォーム上のコントロール名と一致していないとエラーになります。
マクロとの使い分け
ウィザードで作成されるのは主に「マクロ」です。マクロでは細かい制御ができないこともあります。
複雑な条件分岐などをしたい場合は、VBAでの記述を選びましょう。
応用ポイント：中級者向けテクニック
連続データ入力をボタンで制御
' 新しいレコードへ移動するボタン
Private Sub btnNext_Click()
DoCmd.GoToRecord , , acNewRec
End Sub
これにより、1件入力してボタンを押すだけで、次の空白レコードにすぐ移動できます。
保存確認メッセージを表示する
' 保存ボタンで確認を出す
Private Sub btnSave_Click()
If MsgBox("保存してもよろしいですか？", vbYesNo + vbQuestion, "確認") = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub
操作ミスを減らすために、ボタンに確認ダイアログを入れるのもおすすめです。
まとめ：ボタンを設置してフォームをもっと使いやすく！
- フォームにボタンを設置することで、操作が直感的に！
- ウィザードで簡単設置もOK、VBAで高度な制御も可能
- 操作性の向上で入力ミスやストレスが減少
Accessは「見た目」や「操作性」も工夫できるツールです。ボタンを上手に活用して、使いやすいフォームを作ってみましょう！
次回は「ボタンにアイコンを追加してもっと視覚的にわかりやすくする方法」なども紹介していく予定です。どうぞお楽しみに♪
それでは、また次の記事でお会いしましょう！
なかぜんでした😊
ポチップ
