ник: денник
Спасибо! osmor
Ваш совет оказался полезен. я тут насочинял после Вашей критики:
Function NomerZK_auto() As String
Dim NZK As DAO.Recordset
Dim NZKsled
Set NZK = CurrentDb.OpenRecordset("Таблица1")
NZK.MoveLast
Set NZK = NZK
NZKsled = (Left(NZK![Поле_кода], 3))
NZK.AddNew
NomerZK_auto = Format((NZKsled + 1), "000") & "-09-M"
NZK.Close
End Function
Но Ваш вариант, честно говоря, мне больше понравился надо только что-то придумать чтобы пропущенные значения находились и нумерация после 10 шла дальше а то он дважды 10 номер предлагает.