Было бы здоровье, а остальное купим. Выпьем же за то, чтобы были деньги, чтобы купить остальное.
Копирую сюда кусок того, на что я ссылался, и сразу вношу изменения.
Заводим отдельную таблицу tabCounter с одним полем nCounter типа счетчик и без данных. Приводимая ниже процедура обращается к такой таблице и возвращает очередное значение для "нашего" счетчика. Внимание - файл, в котором сидит эта таблица, запрещено сжимать.
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.
31.
32.
33.
34.
35.
36.
37.
38.
Function Cou() As String 'а там было Long'
Dim ws As Workspace, db As Database
Dim rsCounter As Recordset
On Error GoTo errCou
Set ws = DBEngine( 0 )
Set db = CurrentDb
1
ws.BeginTrans
2
Set rsCounter = db.OpenRecordset( "select * from tabCounter" )
3
rsCounter.AddNew
'Cou = rsCounter!nCounter'
Cou = "MIL" & Format(rsCounter!nCounter, "0000 ")
rsCounter.Close
4
ws.CommitTrans
5
Exit Function
errCou:
Select Case Erl
Case 3
rsCounter.Close
Set rsCounter = Nothing
ws.Rollback
DBEngine.Idle DB_FREELOCKS
Resume 1
Case 2 , 4
ws.Rollback
DBEngine.Idle DB_FREELOCKS
Resume 1
Case Else
Resume Next
End Select
End Function
И теперь осталось одно: в Вашей таблице каждый раз при создании новой записи заносить в соответствующее поле этой записи Cou().
