rsOrgs.Update "LastUpdate", sDate
Работает


sTemp = FormatStr(sMerch)
MsgBox sTemp
Нормально выдаёт отформатированную строку (не пустую!)

rsNomenkl.AddNew
rsNomenkl!Merch = sTemp
rsNomenkl.Update
Не работает!
Run-time error '-2147217887 (80040e21)';

Произошли ошибки во время выполнения многошаговой операции OLE DB. По возможности, проверьте значения всех состояний OLE DB. Работа не выполнима.


rsNomenkl.AddNew "Merch", FormatStr(sMerch)
Аналогичный результат.


Матерится на OLE DB. Хотя...
cn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\db\db.mdb"

и

Dim rsNomenkl As ADODB.Recordset
Set rsNomenkl = New ADODB.Recordset
rsNomenkl.Open sTblNomen, cn, adOpenStatic, adLockPessimistic

Мля Что ж у меня ошибки всегда на самом простом...

nibblesчто возвращает rsNomenkl.Source?
Возвращает "Nomenkl61" (имя таблицы)

ВСЁ! Проблема найдена! :)
Оказывается поле было фиксированной длинны.
Млин, эти тексты ошибок порой, мягко говоря, не в тему :)

И вносятся ли изменения в эту таблицу в ручном режиме?
Пока нет. Но будут. А что, могут возникнуть какие-то проблемы?..

И спасибо за участие! :)

nibblesНадеюсь, что нет. Пытался выцепить проблему
Ещё раз спасибо за помощь!