Подсчёт количества записей в запросе

[satka]

есть строковая переменная, в ей SQL запрос. Как узнать скока записей в запросе, ну или накрайняк есть ли вообще там записи?

[Serge_Bliznykov]

так... по порядочку..
в запросе НЕТ и не может быть записей. Ни одной!
Записи могут быть в выборке (результат выполнения запроса).
Это раз.

второе. Если я правильно понимаю, у Вас уже есть конкретный запрос, Вы хотите узнать, сколько он записей возвращает?
тогда этот запрос нужно переделать. в общем случае надо вместо списка полей указать агрегатную функцию count()
например,

select count(*) as MyCountOfRecord from ....<дальше всё, как у Вас в исходном запросе>

Надо выполнить этот запрос.
в переменной MyCountOfRecord получите сколько записей выбирется в исходный запрос.
внимание! в случае сложного запроса (группировки, подзапросы, использование других агрегантых функций) полученное число count(*) может не соответствовать числу записей в исходной выборке

[R Dmitry]

Осмелюсь предположить
так как речь идет о строковой переменной, то речь идет о VBA, соответственно результат запроса служит источником данных для контрола формы либо для набора записей.
Соответственно количество возвращенных записей можно получить, обратившись к свойству count контрола или набора записей.

[satka]

Строковая переменная фомируется в зависимости от нажатых кнопочек на форме, после чего она передаётся как RecordSource ленточной форме, смысл в том чтобы узнать сколько записей выведет запрос (или выведет ли он хоть одну), тому как надо получить фокус на элемент в ленточной форме, и если запрос не выводит ничего элемент не создаётся (форма-то получается пустой), естественно вылазит ошибка. Формируемый запрос содержит условия отбора, сортировку, источником данных является другой запрос.

[LittleFatCat]

Доброго времени суток!

Вот функция :

Function CountRec(r As DAO.Recordset) As Long
'-----------------------------
'  Îïðåäåëÿåò êîë-âî çàïèñåé â îáúåêòå Recordset
'-----------------------------
Dim BMark As String
 If r.Type = dbOpenTable Then
    CountRec = r.RecordCount
 Else
    If r.RecordCount = 0 Then
       CountRec = 0
    Else
       r.MoveFirst
       BMark = r.Bookmark
       r.MoveLast
       CountRec = r.RecordCount
       r.Bookmark = BMark
    End If
 End If
Exit Function
End Function

Передаете в нее рекордсет на основе запроса, получаете на выходе количество записей в рекордсете