エラーが出ます
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らしいのですが、
どうやって回避すればいいのか、分かりません。
分かりにくい説明ですが、宜しくお願いします
お礼
ddg67様 早速の回答ありがとうございました。 何度アクセスしてみても同じ状態なので、おっしゃる通り無くなってしまったみたいです。 利用者にメール位くれてもいいのに…と思いましたが、使えないものは仕方ありません。他に利用できる所を探してみようと思います。 この度はありがとうございました。