LekksУважаемые знатоки Access. Есть задача создания базы регистрации событий. В целом ничего сложного, но имеется требование присвоения регистрационных номеров каждой записи, при этом каждый календарный год должен начинаться с новой регистрации, т.е. с единицы. Каким образом посоветуете организовать данный процесс и возможно ли такое в принципе?
Когда то очень давно , была такая книШка Секреты Access 97 , вот там я скомуниздил такой код .
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Public Sub adhAutoCounterData()
' DoCmd.GoToRecord A_FORM, "ИмяФормы", A_NEWREC
Dim db As Database
Dim r As DAO.Recordset
Dim Temp As String
Dim Temp2 As String
Set db = CurrentDb()
Set r = db.OpenRecordset("Таблица", DB_OPEN_TABLE)
Temp = Format(Now, "yyyymm")
Temp2 = 0
Do Until r.EOF
If Left(r("Поле"), 6) = Temp Then
If Val(Mid(r("Поле"), 8)) > Temp2 Then Temp2 = Val(Mid(r("Поле"), 8))
End If
r.MoveNext
Loop
If Temp2 = 0 Then
Temp2 = Temp + "-01"
Else
If Temp2 < 9 Then
Temp2 = Temp + "-0" + Mid(Str$(Temp2 + 1), 2)
Else
Temp2 = Temp + "-" + Mid(Str$(Temp2 + 1), 2)
End If
End If
Forms("имяФормы")("Поле") = Temp2
r.Close
End Sub
Принцип действия такой. Отыскивает последний номер договора , а затем форматирует в зависимости от даты например 20180410-01 , 20180410-02 и так далее . Мне кажется Вам подойдет . Допилите под свои нужды или на основании примера соорудите что нить свое.
