Accessのオートナンバー取得

質問

皆さんよろしくお願いします。

Access97を使用して、例）営業の訪問日報を作成しようと思います。
親フォームには、連番(オートナンバー型)と活動日(規定値にDate()を設定)の
二個のフィールド。
子フォームは、親の連番とリンクした番号・訪問先名・訪問時間・
活動内容とします。

フォームを開くときイベントで DoCmd.GoToRecord , , acNewRecを設定。
親フォームは、連番と活動日が自動で入るので更新する必要がないので
子フォームにフォーカスを移すが、親でイベントが発生しないため
連番が更新されません。
質問）親フォームでフィールドを更新せず、子フォームを入力してとき
オートナンバーを取得する方法を教えてください。

上手に質問がかけませんでしたが、よろしくお願いします。

回答No.1

DexMachina · ベストアンサー

『活動日』への既定値を廃止し、代わりに「値の代入」(と「レコードの保存」)とするのが
よいのではないでしょうか。

「値の代入」を行うイベントとしては、「レコードの移動時」か、子フォームの「フォーカス
取得時」辺りが無難かと思います。
但し、一長一短がありますので、当該日報の使い勝手としてどちらがよいか見極める
必要があります。
※ユーザーが行う作業を追加してもよいなら、コマンドボタンのクリックで行うのが
　　ベストかと思います。

<レコード移動時で対応した場合の難点>
　新規レコードへの移動と同時にレコードが保存されてしまうので、
　そのレコードが不要だった場合、削除してやる必要がある。
　(なお、オートナンバーの都合上、削除をするとその分は欠番に
　　なります：
　　削除後、次の追加前に、メニューで「ツール(T)→データベース
　　ユーティリティ(D)→最適化(C)」を選ぶなどして最適化すれば、
　　次回追加時の欠番は回避可能)

<サブフォームのフォーカス取得時で対応した場合の難点>
　サブフォームにフォーカスがある状態で、親フォームのレコード
　セレクタや移動ボタン(→フォーム最下にあるレコード番号を表示
　する場所とその両脇に並んだボタン)で移動すると、コントロール
　の移動がないため、「フォーカス取得時」イベントが発生しない。

以下、レコード移動時の場合です(本体部分の4行は、どのイベント
に割り当てた場合でも同じですが)：

Private Sub Form_Current()

　　'新規レコード時のみ、今日の日付を入力してレコードを保存
　　If　Me.NewRecord Then
　　　　日付 = Date()
　　　　RunCommand acCmdSaveRecord
　　End If

End Sub

お礼

適切なご回答ありがとうございます。
「値の代入」は、一長一短あるようですがとても参考になりました。
色々試して見ます。

＞※ユーザーが行う作業を追加してもよいなら、コマンドボタンのクリックで行うのが
　　ベストかと思います。
やっぱりこの方法が一番スッキリしますかね。

とてもいいヒントをいただきましたことお礼申し上げます。