Accessマクロで実行モードのフォームのイベントで、そのフォームの他コントロールを操作

Question

Accessマクロにて、複数テーブルで共通のレコード追加フォームの作成を試みています。
その動作の一環として、テーブル名を持つコンボボックスを用意し、選択テーブルの列情報に準拠して、入力欄（ラベル：テキストボックスの組合せ）をフォーム内に設けるようにしようと考えています。
※コンボボックスが空文字の場合は入力欄全削除。

例）
コンボボックス："テーブルA"選択
テーブルAフィールド：ID、名前、性別、学校名
フォーム配置コントロール：
(Label)ID：　textbox
(Label)名前： textbox
(Label)性別： textbox
(Label)学校名： textbox

コントロール配置に向けたコード

Private Sub AddTableNameChange_Change()
    Me.AddTableNameChange.SetFocus
    
    Dim control As control
    
    If "" = Me.AddTableNameChange.Text Then
        For Each control In Me.Controls
            If コンボボックス名 <> control.Name Then
                DeleteControl Me.Name, control.Name
            End If
        Next
        Exit Sub
    End If
    
    Dim dbs As Database
    Dim td As TableDef
    Dim myField As field
    Dim AddLBControl, AddTBControl As control
    Dim AddPosY As Integer
    
    Set dbs = CurrentDb
    Set td = dbs.TableDefs(Me.AddTableNameChange.Text)
    
    AddPosY = 100    
    For Each myField In td.Fields
        'コントロール名、ラベル値、各サイズ、位置については、配置できるようになってから調整予定。
        Set AddLBControl = CreateControl(Me.Name, acLabel, , , "", 30, AddPosY, 50, 50)
        Set addtbconstrol = CreateControl(Me.Name, acCommandButton, , , "", 30, AddPosY, 50, 50)
        AddPosY = AddPosY + 30
    Next
    
End Sub

上記のコードを実行すると、
Set AddLBControl = CreateControl(Me.Name, acLabel, , , "", 30, AddPosY, 50, 50)
で「コントロールの作成と削除は、デザインビューまたはレイアウトビューで行います。」のエラーになります。

別のビューに開きなおせばいい、と考え、
DoCmd.OpenForm Me.Name, acDesign
を足してみたところ、「別のビューに切り替えることはできません。」のエラーになります。

質問

やりたいこととしては、フォーム内のコントロールイベント内で、そのフォーム内のコントロール操作になりますが、これは可能なのでしょうか。
可能でしたら、方法をご教授頂ければと思います。

開発環境

Microsoft Access 2010

Answer 1

アクティブなフォームのデザインビューへの変更は、
DoCmd.RunCommand acCmdDesignView
デザインビューからフォームビューへの変更は、
DoCmd.RunCommand acCmdFormView
で可能です。

しかし、サンプルを作成して実験してみましたか、自身のフォーム上のコントロールのイベントからでは、実行時エラーになりました。
そもそも、ユーザーが使用中にデザインビューにするのは危険だと思います。

事前にデザインビューに予想される最大数のラベルとテキストボックスを配置しておいて、
「可視」を「いいえ」にして保存します。
必用に応じて、Visible = True で表示させるようにするのが、安全だし高速です。

ラベルとテキストボックスの名前を
Lbl1, Lbl2, ・・・・・・
Txt1, Txt2, ・・・・・・
というようにつけておけば、下記のようにループでまわせます。

Dim i As Long
For i = 1 to td.Fields.Count
    With Me("lbl" & i)
        .Visible = True
        .Caption = td.Fields(i).Name
        .Top = 30 * i + 70
    End With
    With Me("Txt" & i)
        .Visible = True
        .Top = 30 * i + 70
    End With
Next

Accessのフォームではこの方法が一般的です。Excelのユーザーフォームだと使用中にコントロールを追加するというのはよくあるようですが。

質問とは関係ないですか間違いの指摘

    Dim AddLBControl, AddTBControl As control
    '上記の AddLBControl は型指定してないことになり、Variant型になります。
    '面倒でも下記のように変数一つずつ型指定してください。
    Dim AddLBControl As control, AddTBControl As control

Comments

[JanTh1989]

ご回答ありがとうございます。
アクティブフォームのビュー切り替え可はできるがお勧めせず（危険）、承知しました。

MAXで作っておいて、あとは調整がVBAで一般的なんですね。

ご指摘についても承知しました。

[JanTh1989]

ちなみに、VB的観点から各テーブル向けオブジェクト配置のPanelを作って、PanelのVisibleで、とかも考えていたんですが、Accessフォームで見てみると四角形というものしか見つかりませんでした。
VBAだとあくまで入力欄別で表示切り替えが一般的になりますか？
（質問内容と違う、とかありましたらすみません。）

[hatena19]

Accessの場合は、連結フォームでの設計が一般的ですので、VBAでコントロールを操作することはほとんどないです。
また、テーブルの正規化が出来ていれば、テーブルからウィザードでフォーム、レポートを作成して、それをもとに入出力をします。

「各テーブル向けオブジェクト配置のPanel」→サブフォームはご存知でしょうか。それが目的に合致しませんか。

「複数テーブルで共通のレコード追加フォームの作成」というのが具体的にどのようなものか想像かつきませんが、テーブルの設計が間違っているような気がします。具体的にはどのようなテーブルがあるのでしょうか。

[JanTh1989]

サブフォームは存じあげませんでした。
「Access サブフォーム 切り替え」などで検索をかけてみると、思ってたような動きができそうでした。
レコード追加でSQL文を作ったりすることも考慮に入れつつ、オブジェクトの管理方法については検討してみます。

＜「複数テーブルで共通のレコード追加フォームの作成」の具体的な内容＞
テーブル（仮）
・メインテーブル
　列：ID（数値）（主キー）,Name（テキスト）,Man（テキスト）,Age（数値）
・サブテーブル
　列：ID（数値）（主キー）,FinalEducation（テキスト）,SchoolName（テキスト）
・状態テーブル
　列：ID（数値）（主キー）,StatusNo（数値）
・状態マスタ
　列：StatusNo（数値）（主キー）,Status（テキスト）
みたいな感じです。
上３つのテーブルについては、主キーを軸にした３つ一括追加と、個々のテーブルに追加も可。
最後のテーブルは個々の追加オンリーです。

[hatena19]

上の3つのテーブルは、すべて ID フィールドでリンクしているということでしょうか。
だとしたら、すべて一対一の関係のテーブルということになりますが、データベースでは一対一の関係のデータを一つのテーブルにまとめるというのが原則です。そうすれば、「複数テーブルで共通のレコード追加」という処理は不要になります。
クエリまたはフォームで必要なフィールドのみ表示させる設計にすればいいでしょう。

参考リンク
一対一関係のテーブル設計 - hatena chips https://hatenachips.blog.fc2.com/blog-entry-29.html

VBでの開発経験がありその経験からの発想のように思いますが、まずは、Accessの基本の機能を理解されてから設計に取り組んだ方が結局近道になると思います。
それとテーブル設計の基本「正規化」についての理解も必須です。

連結フォームで作成していけば、VBAなしで大抵のことはできます。それでは不足する部分をVBAで補完するという設計が一般的です。
Accessの非連結フォームでVBAでゴリゴリ書いていくぐらいなら、VBでAccessテーブルにリンクする設計にした方が融通がきくと思います。

[JanTh1989]

仰る通り、VB思考が強く、Accessの知識が乏しいため、考えがAccess向け、DB管理向けではないと思います。
クエリやフォームの扱いもよく分かっていないところがあります。
回答内容や参考リンクなどの情報を基に、進め方について再検討してみます。

ありがとうございました。

[hatena19]

Accessおよびデータベースについて基本から学習する場合のおすすめのリンクは下記です。
もう一度学ぶMS-Access https://www.accessdbstudy.net/
特に「正規化」「リレーションシップ」の項目の解説は秀逸です。