Столкнулся с проблемой которой в 97 не было. Обычный цикл --> rs.movefirst do until rs.eof ... rs.edit ... rs.update rs.movenext loop rs --> Recordset . rs.recordcount=15000. Код прерывается с ошибкой err=3052. : Превышен лимит dbMaxLockperFile , который в регистре установлен в 9500. Значение dbMaxLockperFile можно переустановить DBEngine.SetOption dbMaxLockperFile ,NewValue. Но я не понимаю? Перед каждым таким циклом надо устанавливать параметр dbMaxLockperFile > rs.recordcount? Или не надо ?
И еще. Конвертация Report --> PDF не идет кириллица. В какое значение в вызове Public Function ConvertReportToPDF( _
Optional RptName As String = "", _
Optional SnapshotName As String = "", _
Optional OutputPDFname As String = "", _
Optional ShowSaveFileDialog As Boolean = False, _
Optional StartPDFViewer As Boolean = True, _
Optional CompressionLevel As Long = 0, _
Optional PasswordOpen As String = "", _
Optional PasswordOwner As String = "", _
Optional PasswordRestrictions As Long = 0, _
Optional PDFNoFontEmbedding As Long = 0, _
Optional PDFUnicodeFlags As Long = 0 _
) As Boolean
надо установить PDFNoFontEmbedding и PDFUnicodeFlags параметры чтоб пошла кириллица
Спасибо

Параметр не помню. Сделай шрифты в отчеты Arial и все должно прокатить.
У меня blRet = ConvertReportToPDF(srepname, vbNullString, _
DistinationTo & spdfname & ".pdf", , True, 150, "", "", 0, 0, 0)

С наступающим