あわせて読みたい
入力フォームの保存を追加クエリで行う｜DQのアイテムデータベースをAccessで作る11
第4回で作成したアイテム入力フォームですが、テーブルへの保存をレコードが移動した時に保存される仕組みを利用しました。この方法だと、入力途中にマウスホイールをコ…
今回はボタンで動く日付テキストボックスを、コードごと他のフォームにコピペします。
この手順は、一度作ったフォームのVBAの仕組みを他のフォームに利用する時に便利です。
目次
伝票入力フォームを作る
ツールバーの作成→フォームデザインから新規フォームをつくります
フォーム名は伝票入力フォームにします
フォームのプロパティシートを開きユーザーがフォームを開いたときに見栄えが良くします
プロパティシート
- 自動中央寄せ：はい
- レコードセレクタ：いいえ
- 移動ボタン：いいえ
- スクロールバー：なし
- コントロールボックス：いいえ
ボタンで動く日付テキストボックスをコピペするため、伝票日付フォームをデザインビューで開きます
日付テキストボックス1式をコピーします
伝票日付をアクティブにして、コードの表示をクリックします
伝票日付フォームのVBAが表示されます
プラス月、プラス日、プラス年、マイナス月、マイナス日、マイナス年の6つのボタンに割り振られたコードを
PriVate Sub ~~~~Clice()
End Sub
ごとコピーします
伝票入力フォームをアクティブにしてコードの表示をクリックします
VBEがコードが空の状態で開きます
コピーしたコードを貼り付けます
各プロシージャに書き込まれている
Forms!伝票日付!日付伝票サブ!.Requery
を削除しておきます（これが残っているとエラーが出ます）
フォームビューに切り替えて動作確認をします
コピペしただけでもちゃんとボタンが動作しています
ボタンで操作できる日付テキストボックスをコピペすることができました。
今回はここまでとします。
あわせて読みたい
追加クエリでデータ入力その２｜DQのアイテムデータベースをAccessで作る13
伝票を入力するフォームがまだできていないので作っていきます 伝票入力フォームをデザインビューで開きます コンボボックスを配置します ラベルの表題をアイテム名、コ…
コメント