Доступ к VBA: как проверить, пуст ли recordSet? нулевой?

Как вы можете проверить, нет ли набора записей?

        Dim temp_rst1 As Recordset
        Dim temp_rst2 As Recordset

        Set temp_rst1 = db.OpenRecordset("SELECT * FROM ORDER_DATA WHERE SKUS_ORDERED = '" & curSKU1 & "' AND [ORDER] = " & curOrder)
        Set temp_rst2 = db.OpenRecordset("SELECT * FROM ORDER_DATA WHERE SKUS_ORDERED = '" & curSKU2 & "' AND [ORDER] = " & curOrder)

        If IsNull(temp_rst1) Or IsNull(temp_rst2) Then MsgBox "null"

Я открываю пару наборов записей на основе оператора select. Если нет записей, IsNull вернет true?

Ответы

Ответ 1

Я бы установил флаг "Конец файла":

If temp_rst1.EOF Or temp_rst2.EOF Then MsgBox "null"

Ответ 2

RecordCount - это то, что вы хотите использовать.

If Not temp_rst1.RecordCount > 0 ...

Ответ 3

Если temp_rst1.BOF и temp_rst1.EOF, то набор записей пуст. Это всегда будет верно для пустого набора записей, связанного или локального.

Ответ 4

Простым способом является его запись:

Dim rs As Object
Set rs = Me.Recordset.Clone
If Me.Recordset.RecordCount = 0 then 'checks for number of records
   msgbox "There is no records" 
End if

Ответ 5

Если не temp_rst1 ничего нет...