Форумы HiProg.com - MS ACCESS, VBA, VB

ник: 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 - его идея)