Accessで同じフォームを複数表示できるようにしたい

Question

前提・実現したいこと

開くボタンを押下した回数分、同じフォームを開けるようにしたいです。

現在の仕様は、帳票フォームでテーブルの中身を一覧で表示して、

ボタンを押下すると各IDの情報が新しいフォームで表示される、といったものです。

↓のサイトと同じような仕組みで作成しています。

https://dekiru.net/article/15623/

通常だと1フォームにつき1タブしか開けないですが、今回は同一フォームを複数タブで開けるようにしたいと考えています。
(ID:1の情報とID:2の情報を同じフォームの別タブで開きたい)

下記のサイトを参考に書きましたが、うまく動作せず悩んでいます。

http://www.accessclub.jp/bbs2/0105/beginter31915.html

もしよい方法がありましたら何卒ご教示お願いいたします。

該当のソースコード

現在の帳票フォーム側のコード

Private Sub OpenForm_Click()

DoCmd.OpenForm "詳細フォーム", acNormal, "", "[Forms].[帳票フォーム].[ID] = テーブル.ID", acReadOnly, acNormal

End Sub

変更後のコード

Dim Frms As New Collection

Private Sub OpenForm_Click()

On Error Resume Next
    If IsNull(Me.ID) Then Exit Sub
    Frms(Me.ID).SetFocus
    If Err = 0 Then Exit Sub
    On Error GoTo 0

    Frms.Add New Form_詳細フォーム, Me.ID
    With Frms(Me.ID)
        .Tag = Me.ID
        .Filter = "ID = " & Me.ID
        .FilterOn = True
        .Move Frms.Count * 1000 + 1500, Frms.Count * 1000
        .Visible = True
    End With

End Sub

Answer 1

New キーワード を使ってインスタンスを作成すれば可能です。

下記にサンプルがありますのでご参考に。

同じフォームを複数表示する - hatena chips

同じフォームを複数表示する その2 - hatena chips

最初のリンクは固定数のフォームを開く場合で、後のは開く数は固定ではく自由に開いたり閉じたりできます。それなりに難易度は高くなります。

Comments

[chimi_mamire]

回答ありがとうございます。
後者の方を参考に書き進めましたが、
"Frms.Add New Form_社員データ, Me.cmb社員"の部分でコンパイルエラーになります。
(Frms.Add New 帳票フォーム, Me.ID ←のように書き換えました)
"ユーザー定義型は定義されていません"とのことですが、何の定義が必要なのでしょうか。
もし可能でしたらご教示いただけると幸いです。
(Dim Frms As New CollectionはOption Explicitの次にで宣言しています)

[hatena19]

フォームの名前が「帳票フォーム」であるなら、
Frms.Add New Form_帳票フォーム, Me.ID
というように Form_ を付けてください。
New でインスタンスを生成するときは、モジュール名を指定することになります。
モジュール名はVBAウィンドウで確認できます。

[chimi_mamire]

返信ありがとうございます。
Formを付けたことでコンパイルエラーはでてこなくなりました。
ですが今度は同じ場所で、"型が一致しません"とエラーがでてきてしまいました。
これはFrmとFormの型があってないということでしょうか。
無知で大変申し訳ありませんが、何卒ご教示お願いいたします。

[hatena19]

Frms.Add New Form_帳票フォーム, Me.ID
の 前に、下記のコードを挿入してから実行してイミディエイトウィンドウに出力される値を確認してみてください。
Debug.Print Me.ID

[chimi_mamire]

返信ありがとうございます。
IDが2のデータで実行した場合は2、IDが3の場合は3と表示されました。

[hatena19]

「帳票フォーム」上にコマンドボタンがあり、詳細フォーム（単票フォーム）を複数開きたいということですよね。
ならば、
Frms.Add New Form_帳票フォーム, Me.ID
の Form_帳票フォーム は詳細フォームのモジュール名にする必要があります。

[chimi_mamire]

返信ありがとうございます。
hatena19さんのおっしゃる通りの仕様です。
Frms.Add New Form_詳細フォーム, Me.IDに変更しましたが、
同じエラーが表示されます。
詳細フォームの方に問題があるということでしょうか…。

[hatena19]

現状のコマンドボタンのクリック時のコード全体を質問に追記してください。

[chimi_mamire]

該当のソースコードに現在のコマンドボタンのコードを追加しました。
FrmMultiInstanceの「cmd2_Click」を見様見真似で書いています。

[chimi_mamire]

【追記】
「同じフォームを複数表示する」の方は成功したので、
数に制限があって大丈夫そうか確認したら、そちらの方で対応しようと思います。

お忙しい中沢山回答していただいたのに申し訳ありません。
長い間お付き合いいただいて、本当にありがとうございました。