オブジェクト種別マスタ

拡張子によって条件付き書式（テキストの前景色・背景色）を設定する事が出来ます。
サブフォームの一覧表の表示例の所を一行ずつ条件付き書式を設定したVBAの記述です。
FormatConditions.Delete メソッドとFormatConditions.Add メソッドを使い条件付き書式を設定します。

Public Sub 色更新実行()

Dim MDB3 As Database, TBL3 As Recordset, TBL4 As Recordset

Dim JOKEN As String, i As LongPtr, Field_Name As String

Set MDB3 = CurrentDb

Set TBL3 = MDB3.OpenRecordset("◆オブジェクト種別マスタ", dbOpenDynaset, dbSeeChanges)

Set TBL4 = Forms![W004_オブジェクト種別マスタ_FM]![W004_オブジェクト種別マスタ_FM_SUBF01].Form.RecordsetClone

If TBL4.EOF And TBL4.BOF Then GoTo 終了

If TBL3.EOF And TBL3.BOF Then GoTo 終了

For i = 0 To TBL4.Fields.Count - 1

Field_Name = TBL4.Fields(i).Name

If Field_Name <> "表示例" Then GoTo 次の処理

Forms![W004_オブジェクト種別マスタ_FM]![W004_オブジェクト種別マスタ_FM_SUBF01].Form.Controls(Field_Name).FormatConditions.Delete '一旦現在の書式を削除する次の処理:

TBL3.MoveFirst

Do Until TBL3.EOF

JOKEN = "[登録ID]=" & TBL3![登録ID]

With Forms![W004_オブジェクト種別マスタ_FM]![W004_オブジェクト種別マスタ_FM_SUBF01].Form.Controls(Field_Name).FormatConditions.Add(acExpression, , JOKEN)

 On Error GoTo Color_Err

     .ForeColor = TBL3![前景色]

     .BackColor = TBL3![背景色]

End With

TBL3.MoveNext

Loop

次の処理:

Next i

終了:

TBL3.Close

TBL4.Close

Set TBL3 = Nothing

Set TBL4 = Nothing

Set MDB3 = Nothing

Exit Sub

Color_Exit:

Exit Sub

Color_Err:

MsgBox Error$

Resume Color_Exit

End Sub

「iMenuA」のフォーム構成は殆どの場合、メインフォーム・サブフォーム（データシート）項目が多ければ、メインフォームに呼出し・登録、
少ないものに関しては「一覧編集」ボタンとしています。
データシートで表示する上で列幅、列高を指定あるいは長さによって自動調節出来ます。但し自動列幅調整は表示されているものの最大長になります。
一覧に見えていなくレコードセレクタで見えない場所にあるものに関しては調整してくれません。ご注意ください。

Public Sub 列幅自動整列()

With Forms![W004_オブジェクト種別マスタ_FM]![W004_オブジェクト種別マスタ_FM_SUBF01]

    .Requery

    .Form.RowHeight = 312   'データシートの高さ 15.6 1=20

 Dim ctl As Control

  For Each ctl In .Form.Controls

    If ctl.ControlType <> acLabel Then

      ctl.ColumnWidth = -2

    End If

  Next ctl

End With

End Sub

カラーダイアログの使用方法
「Color Dialog」ボタンのクリックした時のイベントプロシージャは以下の通りです。