とりあえず5フィールドで試しましたが問題ないです。 カレント移動するたびに書式をいじってるので、固定してやる方法に切り替えてみたらどうでしょうか。 ① フォームヘッダに[hdID]という名前の非連結テキストボックスを設置。 問題がなければコントロールの高さを薄くして非可視。 ② VBAはこんな感じ↓ Private Sub Form_Current() [hdID] = [受入ID] End Sub Private Sub Form_Load() Dim avarContorol() As Variant Dim iintLoop As Integer avarContorol = Array("受入ID", "受入日", "コンボ34", "指示票№", "テキスト23", "テキスト81", "テキスト26", "テキスト28", "車番", "事業者", "品名", "運搬業者", "重量", "旧型コンテナ", "新型コンテナ", "台車", "ダンプラケース", "ボックス", "コンテナキャスター付", "ドラム", "その他", "連絡事項") For iintLoop = 0 To UBound(avarContorol) With Me(avarContorol(iintLoop)).FormatConditions .Delete With .Add(acExpression, , "[受入ID] = [hdID]" .BackColor = 65535 End With End With Next iintLoop End Sub ※なんとな～く [テキストなんちゃら] とか適当な命名のがあるので打ちミスがありそうな予感