🚀 go-pugleaf

In article <678mdm$3p8$1@news2.osk.3web.ne.jp>, t-fujii@interlink.or.jp says...
>
>みなさんこんばんわ。
>いま、Access97 でプログラミングしています。
>
>フォームのロード時のイベントでテキストボックスを新しく作成し、コントロール
>ソースも定義しようとしています。
>
>Private Sub Form_Load()
>
>    Dim Text2 As New TextBox
>
>    Text2.ControlSource = "ID"
>
>End Sub
>
>と書いたのですが、「実行時エラー 429 ActiveXコンポーネントはオブジェクトを作
>成できません。」となってしまいます。
>
>どうしたら、ソースだけでテキストボックスを追加生成し、データベースを連結でき
>るのでしょうか？
>

新しいテキストボックス（正確にはテキストボックスタイプのコントロール）を
作成するには、CreateControl関数を使用します。

また、この関数は、そのコントロールを作成するフォーム、またはレポートが
デザインビューの時にのみ使用できるようで、Loadイベントで自分自身に
作成するのは無理ではないでしょうか。

もし、やるとすれば、標準モジュールかフォームなどのクラスモジュール上で、
目的のフォームを一旦デザインビューで開いてコントロールを作成した後に、
フォームビューに切り替えるなどの手順が必要になると思います。

Public Function CreateTextbox()
Dim Text2 As Control

    '"フォーム1"をデザインビューで開く（非表示モード）
    DoCmd.OpenForm "フォーム1", acDesign, , , , acHidden
    
    '"フォーム1"の詳細セクション上に"TB_ID"というコントロール名の
　  'テキストボックスを作る
    'コントロールソースは"ID"というフィールドのデータを参照する
    Set Text2 = CreateControl("フォーム1", acTextBox, acDetail, , "Text2")
    Text2.Name = "TB_ID"
    Text2.ControlSource = "ID"
    
    '"フォーム1"を閉じ、変更内容を保存する
    DoCmd.Close acForm, "フォーム1", acSaveYes

    '"フォーム1"を開く
    DoCmd.OpenForm "フォーム1", acNormal

End Function


ちなみに、Accessのフォームでは、コントロール配列は使用できないと思いましたが。