ник: Glebozzz
Голову сломал. Очень долго пытался разобраться сам, но видимо во всем существует предел. Помогите разобраться.
Пытаюсь открыть таблицу в ДБ для чтения через DAO. Не открывает. Думал что-то в инструкции SQL напутал - купил книжку, прочитал. Вроде бы все правильно. Почему пишет ошибку "Объект ... не найден ядром БД... проверьте правильность имени и пути"?
Option Compare Database
Option Explicit
Public Function MadeString() As String
Dim rst As DAO.Recordset
Dim Str As String
Dim FullStr As String
Dim StrNum As Byte
Dim strSQL As String
strSQL = "SELECT ОтгрузкаПодробности.Продукция FROM ОтгрузкаПодробности WHERE Номер_накладной = [Forms]![Отгрузка]![Номер накладной];"
'сылка на текущую базу данных.
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenTable)
'переходим к первой записи.
FullStr = Empty
StrNum = 1
With rst
.MoveLast 'Заполнение набора записями
.MoveFirst 'Возврат в начало
Do Until .EOF
Str = ![Продукция]
FullStr = FullStr & StrNum & ") " & Str & "; "
StrNum = StrNum + 1
.MoveNext
Loop
.Close
End With
Set rst = Nothing
End Function
|
На выделенной строчке выдает ошибку "объект ... не найден..."
База не разделена. В базе таблица "ОтгрузкаПодробности" а в ней поле "Продукция" точно есть. Функцию запускаю из формы "Отгрузка" по нажатию кнопки.
Попытался прикрепить полностью базу на slil.ru - почему-то не получилось.Пробовал и сжимать и просто целую - никак.
Подскажите кто чем может, что делать с OpenRecordset, и если это "глюк" Acceess, как победить?
Заранее благодарен всем откликнувшимся.
С уважением Glebozzz.