ник: ДенНик
Пытаюсь сделать автоматическую нумерацию по маске ххх-09-М, где ххх- порядковый номер 001-09-M, 002-09-M, 003-09-M и так далее. Попытался написать это используя пример нумератора договоров выложенный здесь, вот что получилось:
Option Compare Database
Private Sub Поле_ввода_AfterUpdate()
Поле_кода = NomerZK_auto()
End Sub
Function NomerZK_auto() As String
Dim NZK As DAO.Recordset
Dim NZKsled
Set NZK = CurrentDb.OpenRecordset("Таблица1")
If Not NZK.EOF Then
NZK.MoveLast
Set NZK = CurrentDb.OpenRecordset("Таблица1")
End If
NZK.AddNew
NZKsled = (Left(NZK![Поле_кода], 3))
NomerZK_auto = String(3 - Len(NZKsled), 0) & (NZKsled + 1) & "09-M"
NZK.Update
NZK.Close
End Function
Но пишет, что NZKposl=Null. В общем не работает. Кто-нибудь помогите, пожалуйста, понять где я ошибся.