🚀 go-pugleaf

> みなさんこんばんわ。
> いま、Access97 でプログラミングしています。
>
> フォームのロード時のイベントでテキストボックスを新しく作成し、コントロ
> ール
> ソースも定義しようとしています。
>
> Private Sub Form_Load()
>
> 　　　 Dim Text2 As New TextBox
>
> 　　　 Text2.ControlSource = "ID"
>
> End Sub
>
> と書いたのですが、「実行時エラー 429 ActiveXコンポーネントはオブジェク
> トを作
> 成できません。」となってしまいます。
>
> どうしたら、ソースだけでテキストボックスを追加生成し、データベースを連
> 結でき
> るのでしょうか？
>
> Access97でプログラムですが、VBAということで visualbasicのグループにク
> ロス投
> 稿しました。
>
> 複数のディスクを一気に検索するソフト
> まい　ほーむぺーじ　：　 http://home.interlink.or.jp/~t-fujii/
> まい　 めーるあどれす ：　 t-fujii@interlink.or.jp

熊川と申します。ＡＣＥＥＳＳ９７で使えるか解りませんが、ＶＢでのコントロ
ール追加方法
を一応書いておきますので試してください。

条件はテキストボックスのインデックス(Index)に０が入っていること。つ
まり、１つしかなくともコントロール配列にしてしまうわけです。

で以下の様にＬｏａｄコマンドで新しく作成します。
Load Text1(1)
このコードを実行すると、Text1(0)のコピーができあがります。
位置が同じで非表示になっているので（基準はデザイン時だと思います）、
動かして、表示してみてください。
その後でプロパティにプロパティに連結情報を入れてみてはどうでしょうか。
　
　
　

T.FUJII さん こんにちわ。

T.FUJII <t-fujii@interlink.or.jp> wrote 
in article <678mdm$3p8$1@news2.osk.3web.ne.jp>...

>
フォームのロード時のイベントでテキストボックスを新しく作成し、コントロール
> ソースも定義しようとしています。

コントロール配列を利用して
Loadでは駄目でしょうか？

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のフォームでは、コントロール配列は使用できないと思いましたが。

こんばんわ、【もゆ】です。

> フォームのロード時のイベントでテキストボックスを新しく作成し、コントロール
> ソースも定義しようとしています。

　Form_Load で作成するのは不可能ではないでしょうか。　（＾－＾；

　仕様が分かりませんので何とも申せませんが、新しく作成しなくても
済む方法がありそうなのですが・・・・・

-- 
// ***************************************** //
// 【もゆ】takatomo@venus.dtinet.or.jp       //
//  POISON BUTTERFLY                         //
//  http://www.venus.dtinet.or.jp/~takatomo/ //
// ***************************************** //

どうも。みなさんの素早い返事感謝します。

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


        中略

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


サンプルコードありがとうございます。デザインで追加し、保存して、フォームで開
くとう作業になるのですね。ACCESSではコントロールの動的配列がつかえなかったの
で困っておりました。
どうもありがとうございました。

複数のディスクを一気に検索するソフト
まい　ほーむぺーじ　：　 http://home.interlink.or.jp/~t-fujii/
まい  めーるあどれす ：  t-fujii@interlink.or.jp