Как проверить если набор записей пуст? isNull?

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

        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 вернет истину?

26
задан TylerH 14 March 2018 в 15:41
поделиться

2 ответа

Простой способ написать это:

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
3
ответ дан 28 November 2019 в 06:37
поделиться

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

If Not temp_rst1.RecordCount > 0 ...
11
ответ дан 28 November 2019 в 06:37
поделиться
Другие вопросы по тегам:

Похожие вопросы: