access 親フォームの値を子フォームに自動入力したい

いつもお世話になっております。
親フォームの中にサブフォームがあり、親子リンクフィールドは伝票番号です。
この伝票番号を親子共に自動入力するようにしたいのですが上手くいきません。
親フォームは一、サブには複数の伝票番号が入るようにします。

T在庫注文書(親テーブル)　　　　T明細(子テーブル)
●伝票番号(主キー)ーーーーーー●伝票番号

親フォームのイベント挿入前処理に下記のように入力しましたが出来ませんでした。

Private Sub Form_BeforeInsert(Cancel As Integer)
If DCount("伝票番号", "T在庫注文書") > 0 Then
Me!伝票番号 = DMax("伝票番号", "T在庫注文書") + 1
Else
Me!伝票番号 = 1
End If
End Sub

アドバイスお願いいたします。

No.1 ベストアンサー 回答者： y504 回答日時： 2017/10/16 16:41

リンクが正しく設定されているなら

親フォームの伝票番号コントロールの規定値に
=Nz(DMax("伝票番号","T在庫注文書"))+1
と入れるだけで伝票番号が入るはずです。

この回答へのお礼

お返事ありがとうございます。
既定値に上記のように入れても親フォームの
伝票番号しか自動入力されませんでした。
リンクがうまくできていないのですね。色々試してみます。

お礼日時：2017/10/17 09:31