ник: snipe
вот уж действительно век живи век учись (я про DlookUp).........
вот код......замени в код модуле на то что написано ниже
Private Function funCounterInterval(ByVal DatStart As Date) As Long
Do While Date > DateAdd("yyyy", 1, DatStart)
funCounterInterval = funCounterInterval + 1
DatStart = DateAdd("yyyy", 1, DatStart)
Loop
End Function
Public Function funNemo(ByVal Sotrudnik As Integer)
Dim DatStart As Date
If Sotrudnik <> 0 Then
DatStart = DLookup("[Дата приема на работу]", "tblSotrudnik", "Код=" & Sotrudnik)
Select Case funCounterInterval(DatStart)
Case Is < 5: funNemo = 0
Case 5 To 9: funNemo = 5
Case 10 To 14: funNemo = 10
Case 15 To 20: funNemo = 15
Case Is > 20: funNemo = 20
End Select
End If
End Function
и вызов функции на следующее
=funNemo([Сотрудник])
должно помочь.............
(если будут благодарности то это в адрес Lukas - его идея)