сразу после OPEN ставить msgBox или stop
то все работает,если выполняю процедуру без остановки то гворит что записей в рекордсете нет, (две табл соединяються простым INNER JOIN)
Что за мутатетень...
Хотя записей совсем немного (30-40 )
он должен успеть открыться...
В чем же проблема..

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\baza.mdb"
cn.Open
s_SQL = "SELECT Account, Account_Rezerva, Date_Close, " & _
" F115, F115_Razdel, F155, F155_Razdel, Stroka FROM Account " & _
"INNER JOIN Bal2 ON Account.Bal2=Bal2.Bal2
WHERE ((F115=True) OR (F155=True)) ORDER BY Account"
rst.Open s_SQL, cn, adOpenStatis, adLockReadOnly если не поставить остановку до открытия, то
пустой запрос ,
если постаить остановку то все нормец...

eof
bof

recordCount не всегда работает
И вообще вопрос не в этом,
факт остаёться фактом что запрос не возвращает записей если не остановить перед выполнением .open...

function proba () as boolean
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=с:\baza.mdb"
cn.Open
s_SQL = "SELECT Account, Ostatok_RUR, Ostatok_VAL, Account_Rezerva, Date_Close, " & _
" Stroka FROM Account " & _
"INNER JOIN Bal2 ON Account.Bal2=Bal2.Bal2 WHERE ((F115=True) OR (F155=True)) ORDER BY Account"
rst.Open s_SQL, cn, adOpenStatis, adLockReadOnly
If ((rst.EOF) And (rst.BOF)) Then
Proba = False
Exit Function
Else
Proba = True
End If
do while not rst.eof
debug.print rst(0)
rst.movenext
wend

Забыл сказать
это все делаеться в EXCEL
из него я делаю выборку Access базы, поэтому никаких docmd.doevants
там нет записей всего немного штук 30-40
вот..
Итак заработало только если поставить pause 1000
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Function Pause(lTime As Long) As Boolean 'в миллисекундах
Sleep (lTime)
Pause = True
End Function
причем ставлю меньше опять не работает.
Сожет это замарочка EXECEL?
может и это быть связано со структурой таблиц(там нет ключей)
Я сам дела сто раз внешне объединение в рекордсете и всегда работало..
Один раз такая фигня была в OUTLOOk мне кажется что это похоже...
если не выодить MSGBOX то ошибка из-за того что следующая команда выполняеться арньше чем завершиться предыдущая?
VBA пытаеться сделать паралельно,странно...!
Sub custommessageRule(item As MailItem)
Dim returnValue
On Error GoTo myerr
Const spath As String = "d:\import\in\bss.rar"
If vbNo = MsgBox(" New race has just arrived. Should i work it Up?", vbYesNo) Then
Exit Sub
End If
Stop
item.Attachments.item(1).SaveAsFile spath
' unrar Attachment
Shell "c:\bss.bat " & spath, vbNormalFocus
' delete save attachment
Kill spath
'work it up
'ppppp
Exit Sub
myerr:
Debug.Print Err.Description
End Sub

Yields execution so that the operating system can process other events .
Я могу ошибаться но как раз эта функция делает наоборот ,т.е продолжает выполнение со слдеующей сроки а не ждёт ...
Все таки дело наверное непосредсвенно в таблицах...

Тф прслал на самом деле очень полезную штуку...но не для этого случая..
Потому как сам коннекшион открыт однозначно,я перед выплнением запроса выполнял cn.execute "delete from tbl_1" and еtс.
поэтому coonection ту не причём...