###前提・実現したいこと
Accessで社内で使っているフォームの変更依頼がありました。前任者がAccessのデザイナでシステムを構築していた為、類似フォームが数十個あり、手動で変更するのは面倒です。そこで質問です。例えば標準モジュールからフォームのコントロールを呼び出し変更、追加できないでしょうか?
フォーム名を指定して個別に変更、追加したいです。
###発生している問題・エラーメッセージ
型が一致しない
フォームが見つからない
###該当のソースコード
Public Function MemoAdd()
Dim ctr As Control Set ctr = CreateControl([Form_ALL注文在庫 F], acLabel,acDetail, , , 20, 0, 10, 1.5) DoCmd.OpenForm [Form_ALL注文在庫 F], acDesign
End Function
###試したこと
Form名をインテリセンスセンスで表示されたフォーム名を選択しましたが、上記エラーとなります。フォーム名をForm_を削除するとフォームが見つかりませんと出ます。
どのように解決すればいいかアドバイスをお願いします。
###補足情報(言語/FW/ツール等のバージョンなど)
windows10
Access2016
VBA
###追記
Public Function MemoAdd()
Dim frm As [Form_ALL注文在庫 F]
Set frm = [Form_ALL注文在庫 F]
Dim ctl As Control
DoCmd.OpenForm frm.Name, acDesign
Set ctl = CreateControl(frm.Name, acLabel)
End Function
上記コードに変更したところ
CreateControlのfrm.nameが
プロシージャの呼び出しまたは、引数が不正ですのエラーに変わりました。
set ctlの前まではコードに問題なさそうです。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/04/21 04:25
2017/04/21 04:38
2017/04/21 04:57