ник: Goblin
Может проще условное форматирование применить. Если выполняется какое-либо выражение, то формать такой-то. (фон) Типа IIF([Дата]=Date())...
А на счет фокуса, может надо типа
If DLookup("dat", "tab2", "dat = #" & Format(Текущая_дата.Value, "mm\/dd\/yyyy") & "#") Then
y = DLookup("dat", "tab2", "dat = #" & Format(Текущая_дата.Value, "mm\/dd\/yyyy") & "#")
Me![Поле].SetFocus
End If
Или нечто в этом роде.