Thanks Bob, but I get a compile error on
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim ctl As Control
Dim int As Integer
int = Me!rating Compile error here - expected identifier (rating is formatted as number
For Each ctl In Me.Section("Detail").Controls...