|
▼hatena さん:
アドバイスありがとうございます。
早速下記のソースを参考にして実行してみたのですが
下記のようなエラーメッセージが表示されうまく動きませんでした。
「実行時エラー '7782':
デザインビューで、このフォームまたはレポートの新しいインスタンスを
作成することはできません。」
なぜか、デザインビューで起動されてしまっているようです。
良い解決策があると良いのですが・・・。
>Option Compare Database
>Option Explicit
>Dim Fm(1) As New Form
>
>
>Private Sub コマンド1_Click()
>
> Set Fm(0) = New Form_フォーム1
> Fm(0).Filter = "ID=1"
> Fm(0).FilterOn = True
> Fm(0).Visible = True
>
> Set Fm(1) = New Form_フォーム1
> Fm(1).Filter = "ID=2"
> Fm(1).FilterOn = True
> Fm(1).Visible = True
>
>
>End Sub
|
|