手元にあるフォームで試してみましたが、6件登録してもエラーにはなりませんでした。
テーブルとか作るのは面倒なので、色は配列にしました。
Private Sub Form_Load()
Dim Fmt As FormatCondition
Dim Colors
Colors = Array(vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan)
With Me!名前.FormatConditions
.Delete
Dim i As Long
For i = 0 To UBound(Colors)
Set Fmt = .Add(acExpression, acEqual, "[ID]=" & i + 1)
Fmt.ForeColor = Colors(i)
Next
End With
End Sub
Access2019ですので、ひょっとしてバージョンで違うのかな。
デザインビューで手作業で条件書式を追加したときは4件以上でも登録できますか。
通報 ...