Accessフォームで指定のフィールドの値を次のレコードのフィールドに値を自動で取得する方法について

Question

実現したいこと

Accessフォームの入力で使用年月と月初メーターと月末メーターというフィールドがあります。使用年月を入力後、車の月初の走行距離を入力する「月初メーター」を入力。その後、車の月末の走行距離を入力する「月末メーター」を入力します。今回実現したいことは月末メーターを入力後、次のレコードの「月初メーター」に入力した「月末メーター」の値が自動で入力されるようにしたいです。わかる方がいましたらご教授お願いします。

例）
使用年月　　月初メーター　　月末メーター
2023/01　　10000　　　　　12000　　　
2023/02

12000と入力後次のレコードの月初メーターに12000が自動で入力されるようにしたいです。
使用年月も2023/01と入力した場合、次のレコードには2023/02と入力できればなおよいです。

前提

レコードの入力で自動でできる部分は自動で入力したいです。同じレコードであれば自動で値を取得することは可能ですがどうしても次のレコードへ入力される方法が分かりません。

発生している問題・エラーメッセージ

エラーはありません。

該当のソースコード

試したこと

ここに問題に対して試したことを記載してください。

Comments

[hatena19]

下記の点について質問に追記してください。

[使用年月]フィールドのデータ型は日付/時刻型でしょうか。
車両は一台だけでしょうか。それとも複数台の車両を管理するのでしょうか。

[0531]

回答ありがとうございます。
いつも助かっております。
「使用年月」は日付/時刻型です。yyyy/mmで表示しています。
車は複数台あります。車の車番などの基本情報を登録するテーブルと今回記載したメーターを入力するテーブル同士を車番で連携しています。

[hatena19]

入力フォームはどのような設計になっていますか。
帳票フォームで車両毎にフィルターをかけて入力するようなかたちでしょうか。
それともメイン/サブフォーム形式で、メインが車両マスター、サブが今回の走行メータのテーブルということでしょうか。
できれば現状の入力フォームのスクリーンショットを追記してもらえると回答がしやすいです。

[0531]

メイン/サブフォーム型式にしています。メインが車両マスターでサブが走行メーターであっています。
コンボボックスより車番を一覧から選択すると入力したいレコードへ移動できるようにしております。
スクショを載せましたのでよろしくお願いします。

[hatena19]

メインとサブは車番でリンクしているということですね。
状況が把握できましたので回答を作成しますのでしばらくお待ちください。

Answer 1

次レコード＝新規レコードということなので、月初メータのテキストボックスの規定値プロパティに同一車番内での月末メーターの最大値を設定すればいいでしょう。
使用年月の規定値も同一車番内での最大値に1月を加算した日付を設定すればいいでしょう。

サブフォームのレコード移動時のイベントプロシージャを下記のように記述してください。

Private Sub Form_Current()
    Dim maxYM
    If Me.NewRecord Then
        maxYM = DMax("使用年月", "走行メータ", "車番='" & Me.Parent!車番 & "'")
        If IsNull(maxYM) Then
            Me.使用年月.DefaultValue = ""
            Me.月初メーター.DefaultValue = ""
        Else
            Me.使用年月.DefaultValue = "#" & DateAdd("m", 1, maxYM) & "#"
            Me.月初メーター.DefaultValue = _
                Nz(DMax("月末メーター", "走行メータ", "車番='" & Me.Parent!車番 & "'"), 0)
        End If
    End If
End Sub

.DefaultValue の前の部分は該当のテキストボックス名にしてください。

追記

使用年月、あるいは月末メーターを入力した時点で、新規レコードに反映させたい場合のコード例

Private Sub 使用年月_AfterUpdate()
    Dim maxYM
    If IsDate(Me.使用年月.Value) Then
        maxYM = DMax("使用年月", "走行メータ", "車番='" & Me.Parent!車番 & "'")
        If IsNull(maxYM) Then
            maxYM = Me.使用年月.Value
        ElseIf maxYM < Me.使用年月.Value Then
            maxYM = Me.使用年月.Value
        End If
        Me.使用年月.DefaultValue = "#" & DateAdd("m", 1, maxYM) & "#"
    End If
End Sub

Private Sub 月末メーター_AfterUpdate()
    Dim maxM
    If Not IsNull(Me.使用年月.Value) Then
        maxM = Nz(DMax("月末メーター", "走行メータ", "車番='" & Me.Parent!車番 & "'"),0)
        If maxM < Me.月末メーター.Value Then maxM = Me.月末メーター.Value
        Me.月初メーター.DefaultValue = maxM                
    End If
End Sub

実際に動作確認はしてませんので、微修正が必要かもしれません。

Comments

[0531]

回答ありがとうございます。
無事値は自動で入力されるようになりました。
ですが次のレコードを移動後「使用年月」と「月初メーター」が2レコード同じ値で表示されてしまいました。そして次のレコードに移動すると元通り1レコードに変わりました。
例）
使用年月　月初メーター　月末メーター
2023/01　10000　　　　12000
次のレコードに移動し月末メーターを入力したとたんに、、、
2023/02　12000　　　　15000
2023/03　12000
上記のように次のレコードに移動するまで2レコード同じデータが表示されてしまします。
次のレコードに移動すると元に戻ります。
質問してばかりで申し訳ございませんがよろしくお願いします。

[hatena19]

新規レコードで入力中はまだテーブルに保存されていないので、レコード保存して新規レコードへ移動するまでは反映されないですね。
新規レコードへ移動すれば反映されますので、実用上は問題ないと思いますが、使用年月、あるいは月末メーターを入力した時点で、新規レコードに反映させたいなら、テキストボックスの更新後処理で規定値(DefaultValue )を設定するようにすればいいでしょう。

[hatena19]

回答にサンプルコードを追記しました。

[0531]

そういうことなんですね。
無事できました。
仕組みについてはおおかた理解できました。
いつも助けていただき本当に感謝しております。
ありがとうございました。