スキルアップ・問題解決なら、モーグにおまかせ！

「データの競合」を起こさず、ユーザーメッセージで処理をしたいのですが、方法がわかりません。
http://sennin.image.coocan.jp/access/access15/access15.htm
上記サイトにて、近しい方法を見つけたのですが、
 
Sub HandleLocks(ChangeColor As Long, OriginalColor As Long)
　　Dim ctl As Control
　　Dim MsgResponse As Integer, Msg As String
　　Dim ChangeFields As New Collection, CF As Control, CollectCount As Integer
　　Dim rs As Recordset
　　Dim RSC As Recordset
　　
　　Set RSC = Me.RecordsetClone
　　RSC.Bookmark = Me.Bookmark 'Recordsetのﾎﾟｲﾝﾀをフォームのレコードに同期させる
　　
　　For Each ctl In Me.Controls　'フォーム上のテキストボックス・コントロールの値とレコードセットの値を比較する
　　　　If ctl.ControlType = acTextBox Then
　　　　　　If ctl <> RSC(ctl.ControlSource) Then '変更があった場合は文字を赤にする
　　　　　　　　ctl.ForeColor = ChangeColor
　　　　　　　　ctl.Tag = RSC(ctl.ControlSource)　'変更前の値を各コントロールのTagに保存する
　　　　　　　　ChangeFields.Add ctl　'変更されたコントロールをコレクションに追加する
　　　　　　End If
　　　　End If
　　Next
 
において、「フォーム上のテキストボックス・コントロールの値とレコードセットの値を比較する」がうまくできません。
このサイトの場合、入力用のフォームを使っていますが、
作成しているものは、表示されるフォーム（単票）と入力フォームが同じです。（フォームに直接入力）
ここを改変することができれば、なんとかなるのではと考えています。
よろしくお願いします。

当方の簡単なサンプルテストでは問題なく動作しているようですが、具体的にどのようにうまくできていのですか。
 
どのようにテストして、どのような結果になるのか、具体的に説明してください。

hatena さんの引用:
当方の簡単なサンプルテストでは問題なく動作しているようですが、具体的にどのようにうまくできていのですか。
 
どのようにテストして、どのような結果になるのか、具体的に説明してください。

おーさん0729 さんの引用:
フォームヘッダーのコントロールを参照しているようでした。
詳細のコントロールを参照できるようにしたいです。

For Each ctl In Me.Section(acDetail).Controls

    '中略  

Next ctl

hatena さんの引用:

おーさん0729 さんの引用:
フォームヘッダーのコントロールを参照しているようでした。
詳細のコントロールを参照できるようにしたいです。

 
For Eachループを下記のようにすれば、詳細セクションのコントロールのみの参照になります。
 

For Each ctl In Me.Section(acDetail).Controls

    '中略  

Next ctl

 
Form.Section プロパティ (Access) | Microsoft Learn
https://learn.microsoft.com/ja-jp/office/vba/api/access.form.section

hatena様
 
すみません。遅くりました。
できました！
別件等でバタバタしておりました。
 
ありがとうございました！