Всем ОГРОМНОЕ СПАСИБО!
Вот что получилось:
Function sNumerik()
Dim minNumber As Integer 'минимальный номер
Dim maxNumber As Integer 'максимальный номер
Dim nNomer As String 'значение номера в предпоследней записи
Dim lNomer As String 'значение номера последней записи
Dim lastZapis As String 'код последней записи
Dim celZapis As String 'код предпоследней записи
minNumber = 0
maxNumber = 99
lastZapis = Nz(DLast("[sKod_NomFider]", "tbl_NomFider_sprTMP"), 0)
celZapis = lastZapis - 1
nNomer = DLookup("[cZavNomer5_spr]", "tbl_NomFider_sprTMP", "[sKod_NomFider] =" & celZapis)
lNomer = Nz(IIf(nNomer >= maxNumber, minNumber, nNomer + 1), 0)
Forms!frm_NomFider_sprTMP!pZavNomer5_spr = IIf(lNomer < 10, Format(lNomer, "00"), Format(lNomer))
Exit Function
End Function