エラーが出ます

質問

Stressmanと言います。

ACCESS2002を使っています。
今、「報告書」というフォームから「顧客」というフォームを開きます。
「顧客」フォームにはサブフォームとして「顧客一覧」のデータシート
が組み込まれています。

「顧客一覧」の該当する行をダブルクリックしたら、フォームを閉じて、
「報告書」フォームの「顧客ID」にダブルクリックした顧客の「顧客ID」
がコピーされる。っていうのを実現させようとしています。

下記がそのコードです。
まず「報告書」フォームのコマンドボタンに下記のコードを設定
「顧客」フォームを開きます。

Private Sub コマンド110_Click()
DoCmd.OpenForm "顧客", , , , acFormAdd, , Me.Name
End Sub

そして、「顧客」のサブフォームの「顧客一覧」（データシート）の
ダブルクリックのイベントのところに下記のコードを設定

Private Sub Form_DblClick(Cancel As Integer)
Dim strFormName As String
strFormName = Me.OpenArgs　←　エラー

Forms(strFormName).[顧客ID] = Me.[Frm_04顧客マスタ_サブフォーム].Form.[顧客ID]

DoCmd.Close acForm, Me.Name
End Sub

エラーがでるのがここです。
どうやら、Me.OpenArgsの値がNullらしいのですが、
どうやって回避すればいいのか、分かりません。

分かりにくい説明ですが、宜しくお願いします

回答No.2

noname#89342 · ベストアンサー

親フォームを参照する時は .Parentプロパティを使います。
なので、今回の場合は Me.Parent.OpenArgsで行けると思います。

お礼

sstakさん、ありがとうございます。

できました。すごい嬉しいです。
VBAをこれから勉強していって、使いやすいアプリを作っていきたい
と思います

回答No.1

noname#89342

Me.OpenArgsではなくて「顧客」フォームのOpenArgsを
見ないとエラーになると思います。

お礼

sstakさん、ありがとうございます。

なるほど、そうですよね。
とりあえず、設定し直してみます。

補足

す、すいません。
「顧客」のOpenArgsを参照するには
どう記述すればいいのでしょうか？

実はかなりの初心者なので、ヘルプを見ても
よく分からなかったんです。