質問: CreateControl(frm.Name, acLabel) End Function 上記コードに変更したところ CreateControlのfrm.nameが プロシージャの呼び出しまたは、引数が不正ですのエラーに変わりました。 set ctlの前まではコードに問題なさそうです。
回答: 「型が一致しない」というエラーが起こる状態でそのエラーの解決に向けて試行錯誤が必要かと思います。 エラーの意味は予想がついていますか?これは、想定されている変数の型とは異なる型がどこかに指定されているために正常に処理ができず、「型が一致しない(ので、型を想定されている通りに指定して下さい)」ということです。 どこでエラーが発生しているのかわかりませんが、恐らく以下の箇所ではないでしょうか。 ``` Set ctr = CreateControl([Form_ALL注文在庫 F], acLabel,acDetail, , , 20, 0, 10, 1.5) ``` MSDNによると、CreateControlの戻り値はApplication オブジェクトのようですので、 ``` Dim ctr As Control ``` ``` Dim ctr As Application ``` に変更してみてはどうでしょう?あとはacLabelを100に、acDetailを0に。小数点を削除して整数に。引数の数が合っているか。試すとしたらそのあたりかと思います。