###前提・実現したいこと
Accessで類似フォームのプロシージャのコピーですが、効率のいい方法を教えて下さい。同じイベントを名前の違うフォームにコピーするのですが、同じコードの繰り返しになってしまします。1箇所にまとめる方法がありませんでしょうか?
###該当のソースコード
'以下フォーム"AA注文在庫" Private Sub メモ_GotFocus() Call MemoGotFocus(Me.Parent, Me.ActiveControl) End Sub Private Sub 工場用メモ_GotFocus() Call MemoGotFocus(Me.Parent, Me.ActiveControl) End Sub '以下Module1 Public Function MemoGotFocus(ParentFm As Form, txt As TextBox) As String ParentFm.LabelMemo.Caption = txt.Text End Function
###現状
Form(AA注文在庫)のメモ、工場用メモにフォーカスが移ったら親フォームのLabelMemoに拡大表示される仕様です。
Form(BB注文在庫)、Form(CC注文在庫)、など類似フォームが十数個あります。
1箇所でコーディングできないでしょうか?
###補足情報(言語/FW/ツール等のバージョンなど)
windows10/Access2016
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/04/25 00:31