Не понятная ошибка

[kkep]

Доброго времени суток, подскажите пожалуйста в чем мой косяк....

Вот пример кода:
Set rst_1 = b.OpenRecordset("vibor_ip_kalkul")
kol_vo = rst_1.Fields.Count

While Not rst_1.EOF
znach = Trim(rst_1!Vibor)
MsgBox rst_1!Vibor
sqlstr = "select * from ОТВЕТЫ_ИП where (ОТВЕТЫ_ИП.НОМЕР_ИП like '" & "* " & znach & " * ')" ' " '"

MsgBox sqlstr
Set rst = CurrentDb.OpenRecordset(sqlstr, dbOpenSnapshot)
'MsgBox sqlstr
ViewRecordset rst
kol_vo1 = rst.Fields.Count
'MsgBox rst1!НОМЕР_ИП
rst_1.MoveNext
I = I + 1
Wend

Суть проблемы, в том, что Set rst = CurrentDb.OpenRecordset(sqlstr, dbOpenSnapshot) возвращает пустой результат, хотя если в аксесе "на прямую" сделать запрос из sqlstr = "select * from ОТВЕТЫ_ИП where (ОТВЕТЫ_ИП.НОМЕР_ИП like '" & "* " & znach & " * ')" ' " '" где заменить & znach & на конкретные значения которые отображаются, то запрос выводит корректный результат....

Ткните пожалуйста носом в мою безграмотность в написании запросов...

[Aleksandr H.]

sqlstr = "select * from ОТВЕТЫ_ИП where (ОТВЕТЫ_ИП.НОМЕР_ИП like '" & "* " & znach & " * ')" ' " '"

тут косяк.

может как-то так

sqlstr = "select * from ОТВЕТЫ_ИП where (ОТВЕТЫ_ИП.НОМЕР_ИП like '*"  & CStr(znach) & "*')"

[kkep]

Сообщение от Aleksandr H.

sqlstr = "select * from ОТВЕТЫ_ИП where (ОТВЕТЫ_ИП.НОМЕР_ИП like '" & "* " & znach & " * ')" ' " '"

тут косяк.

может как-то так

sqlstr = "select * from ОТВЕТЫ_ИП where (ОТВЕТЫ_ИП.НОМЕР_ИП like '*"  & CStr(znach) & "*')"

Спасибо, вот что значит "дело мастера боится"

[kkep]

А не подскажите ли (пример кода) как обратиться к ячйке (i,j) - (записать значения) Таблицы i, в вордовском документе?

То что я делаю, у меня вываливается в ошибку
Пример моего кода:
Set WordOb = CreateObject("Word.document")
Set WordOb = GetObject("c:\work\shab\reestr.odt" )
Set WordApOb = WordOb.Parent

' Хоть так хоть так.....
WordApOb.Tables(i).Cells(j, k).Range.Text = rst_2!spi
' Хоть так хоть так.....
WordApOb.Tables(i).Cells(j, k) = rst_1!Vibor

[Aleksandr H.]

То что я делаю, у меня вываливается в ошибку

Ошибка у тебя и только тебе известная.
Сделай скриншот, если так сложно привести номер строки и какая именно ошибка там.

WordApOb.Tables(i).Cell(j, k).Range = rst_2!spi

[kkep]

Извените, срузу не подумал что никто этого не видит(

[Aleksandr H.]

Ну вот все ясно, а именно "какой-то объект не имеет свойства или метода который вызывается". Осталось узнать в какой строке и результатом какого вызова есть эта ошибка

[kkep]

Так вот это и не понятно, подскажите пожалуйста, я описал всё что делал с WordApOb, может что-то еще надо сделать? Вернеее я так думаю, что точно надо что-то сделать, но вот что не никак не могу понять...

[Aleksandr H.]

.odt точно ворд а не OpenDocumentText? приложите фрагмент вашей базы и файла ворда в кот. надо писать

[kkep]

Сообщение от Aleksandr H.

.odt точно ворд а не OpenDocumentText? приложите фрагмент вашей базы и файла ворда в кот. надо писать

Файл OpenDocument, но я просто загрузку реализовал через Word.document и она работает... (ну не знал как сделать OpenDocument)...

Фрагмент базы какой необходим?) Просто она более 250МБ, и таблицы из которых в него выкидываю занимают бОльший объем из всей БД...