Если нумерация групп строго по-порядку, то достаточно использовать для условного форматирования функцию (g - номер группы)
Private Function TestGroup(g&) As Boolean
TestGroup = (g / 2 = g \ 2)
End Function
Если нет, то можно как-то так (вариантов много)
| + |
Option Compare Database
Option Explicit
Dim s$
Private Sub Form_AfterUpdate()
s = ""
End Sub
Private Function f_str$()
Dim i&
With CurrentDb.OpenRecordset("select distinct Группа from tt order by Группа")
Do While Not .EOF
If i / 2 = i \ 2 Then
f_str = f_str & .Fields(0) & ","
End If
i = i + 1
.MoveNext
Loop
.Close
End With
f_str = Left(f_str, Len(f_str) - 1)
End Function
Private Function TestGroup(g&) As Boolean
If s = "" Then s = f_str
TestGroup = Eval("" & g & " in (" & s & ")")
End Function
|
Функции разместить в модуле формы