ник: lulukyan
не так всё просто :-) я уже говорил что нужные свойства формы установлены и что она базируется на простой таблице. Других пользователей или форм использующих эту таблицу нет. Сама таблица правда связанная локально но думаю это не имеет значения. До этого это форма работала а потом без видимых причин перестала.
Да Ещё вот что. К уже цитированному коду добавил строку перехвата ошибки
On Error Resume Next
после этого кнопка с полученным кодом
On Error Resume Next
Set rs = Me.Recordset
With rs
.AddNew
!Date = Now
!SupplierID = 1
!InvoiceIn = Nz(DMax("InvoiceIn", "ProductIn")) + 1
.Update
End With
|
Стала срабатывать после двукратного нажатия
Кто нить может это как то объяснить?