| |
|
|
| | У меня в таблице хранится номер накладной.
Я его постоянно собираюсь увеличивать на единичку, А в какой момент это увеличение сделать..... как то не соображу.
Если в момент нажатия кнопки печать накладной, то тада сколько рах жманёшь стока и будет номеров.
Может в момент печати отчёта?
--------------------------------------------------
Вопрос в событие отчёта Print - нормальное решение добавить это приращение?
Если да, то какие пару строк можно применить , что бы значение в тале изменить?
----------------------------------------------------
Вот
DLookup("ZNACHENIE", "TUNING_TBL", "ID = 'Номер_Накладной'")
считывает данные, а противоположная конструкция имеется?
или только так
Dim db As Database
Dim RST As Recordset
Set db = CurrentDb
Set RST = db.OpenRecordset("TUNING_TBL", dbOpenDynaset)
If RST.RecordCount <> 0 Then
RST.MoveFirst
RST.FindFirst "[ID] = 'Номер_Накладной'"
RST("ZNACHENIE") = val(RST("ZNACHENIE")) +1 | |
| |
| |
| |
|
|
| | у мну при открытии формы анализ номера накладной - если есть такой - не фига не трогать, если номер пустой то +1 | |
| |
| |
| |
|
|
| | А - какой такой?  - если есть такой | |
| |
| |
|
|
|
|
| |
|
|
| | голова шо индейский барабан | |
| |
| |
|
|
| |
|
|
| | 'НУМЕРАТОР РЕКЛАМАЦИЙ
Public Function newnomreklamac(tekd As Date) As Integer
newnomreklamac = Nz(DMax("[NomRekl]", "[TblReklamacNakl]", "YEAR([DATAREKLAMAC])=" & Year(tekd)), 0) + 1
End Function
|
Вставляешь при добавлении новой записи. и все.
дата добавлена, чтобы в каждом году начиналось все снова ... и снова | |
| |
| |
| |
|
|
| | Это хорошо!
Спасибо!
Но вопрос в другом....
ГДЕ и когда вставлять?  и кому....  | |
| |
| |
| |
|
|
| | А как это Year(tekd)), 0) работает? | |
| |
| |
| |
|
|
| |
),0 - относится к NZ
А вставлять при добавлении новой записи. Как это куда?
Если новая запись запросом - в запрос, если рекордсетом - в него, если в таблцу (в форме) на событие афтерапдейт
А если надо пронумеровать просто в отчете то в свободное поле пишешь =1, приращение - да | |
| |
| |
