![](https://enjoy-access.com/wp-content/uploads/2021/07/dqaccess11-300x200.jpg)
今回はボタンで動く日付テキストボックスを、コードごと他のフォームにコピペします。
この手順は、一度作ったフォームのVBAの仕組みを他のフォームに利用する時に便利です。
伝票入力フォームを作る
![f:id:me-hige:20200202163542p:plain f:id:me-hige:20200202163542p:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20200202/20200202163542.png)
ツールバーの作成→フォームデザインから新規フォームをつくります
フォーム名は伝票入力フォームにします
フォームのプロパティシートを開きユーザーがフォームを開いたときに見栄えが良くします
プロパティシート
- 自動中央寄せ:はい
- レコードセレクタ:いいえ
- 移動ボタン:いいえ
- スクロールバー:なし
- コントロールボックス:いいえ
ボタンで動く日付テキストボックスをコピペするため、伝票日付フォームをデザインビューで開きます
![f:id:me-hige:20200209115623p:plain f:id:me-hige:20200209115623p:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20200209/20200209115623.png)
日付テキストボックス1式をコピーします
![f:id:me-hige:20200209120111p:plain f:id:me-hige:20200209120111p:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20200209/20200209120111.png)
![f:id:me-hige:20200209120252p:plain f:id:me-hige:20200209120252p:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20200209/20200209120252.png)
伝票日付をアクティブにして、コードの表示をクリックします
![f:id:me-hige:20200209120457p:plain f:id:me-hige:20200209120457p:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20200209/20200209120457.png)
伝票日付フォームのVBAが表示されます
プラス月、プラス日、プラス年、マイナス月、マイナス日、マイナス年の6つのボタンに割り振られたコードを
PriVate Sub ~~~~Clice()
End Sub
ごとコピーします
![f:id:me-hige:20200209120835p:plain f:id:me-hige:20200209120835p:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20200209/20200209120835.png)
伝票入力フォームをアクティブにしてコードの表示をクリックします
![f:id:me-hige:20200209121500p:plain f:id:me-hige:20200209121500p:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20200209/20200209121500.png)
VBEがコードが空の状態で開きます
![f:id:me-hige:20200209121728p:plain f:id:me-hige:20200209121728p:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20200209/20200209121728.png)
コピーしたコードを貼り付けます
![f:id:me-hige:20200209121932p:plain f:id:me-hige:20200209121932p:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20200209/20200209121932.png)
各プロシージャに書き込まれている
Forms!伝票日付!日付伝票サブ!.Requery
を削除しておきます(これが残っているとエラーが出ます)
![f:id:me-hige:20200209122909p:plain f:id:me-hige:20200209122909p:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20200209/20200209122909.png)
フォームビューに切り替えて動作確認をします
コピペしただけでもちゃんとボタンが動作しています
![f:id:me-hige:20200209123016p:plain f:id:me-hige:20200209123016p:plain](https://cdn-ak.f.st-hatena.com/images/fotolife/m/me-hige/20200209/20200209123016.png)
ボタンで操作できる日付テキストボックスをコピペすることができました。
今回はここまでとします。
![](https://enjoy-access.com/wp-content/uploads/2021/07/dqaccess13-300x200.jpg)
コメント