Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: отчет
 
 автор: kot_k_k   (25.06.2012 в 13:22)   личное сообщение
 
 

в отчете при форматировании создал код для проверки неких извращений


str_ = "SELECT Gl_Zakaz.Firma, Sum(1) AS Col_1 " & _
                "FROM Cheta_ST_FP_1_UR_Napolnenie RIGHT JOIN (ST_FP_1_UR LEFT JOIN Gl_Zakaz ON ST_FP_1_UR.Zakaz = Gl_Zakaz.Kod_Zakaz_GL) ON Cheta_ST_FP_1_UR_Napolnenie.Zakaz_GL = ST_FP_1_UR.Kod_ST_FP " & _
                "GROUP BY Gl_Zakaz.Firma, ST_FP_1_UR.P_1 " & _
                "HAVING (((Gl_Zakaz.Firma)=" & Me.Firma & ") AND ((ST_FP_1_UR.P_1)=True))"
Set rst = dbs.OpenRecordset(str_)


орет слишком мало параметров - сам текст скопирован из рабочего запроса.
думал Me.Firma - ему не нравится .
хрен с ним оставил для пробы

Set rst = dbs.OpenRecordset(Me.RecordSource)

орет то же самое??? - ведь эта строка из которой создан сам отчет - как быть что ему нужно вбить???

  Ответить  
 
 автор: Анатолий (Киев)   (25.06.2012 в 14:48)   личное сообщение
 
 

В источник запроса входит другой запрос, использующий ссылки на форму?

Попутно, если Me.Firma - текст, то в запросе не хватает кавычек или апострофов.

  Ответить  
 
 автор: kot_k_k   (25.06.2012 в 15:15)   личное сообщение
 
 

увы нет число, и никаких ссылок.
сам ничего не понимаю, пытался просто "вызвать" рекордсет - ЗХ полный.

ну да ладно - "нормальные герои всегда идут в обход" - сделал по другому, даже лучше (наверное)

  Ответить  
 
 автор: snipe   (25.06.2012 в 16:01)   личное сообщение
 
 

a если через библиотеку ado а не dao

  Ответить  
 
 автор: kot_k_k   (26.06.2012 в 08:34)   личное сообщение
 
 

не знаю - не пробовал, тут же создаю запрос с этой же строкой - все ОК, ладно - пусть ему будет хуже.

  Ответить  
 
 автор: snipe   (26.06.2012 в 08:49)   личное сообщение
 
 

у меня через дао не пролазит SQL строкой, только через ado

так попробуй
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT Клиенты.ФИО FROM Клиенты", CurrentProject.Connection, adOpenStatic, adLockReadOnly

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList