Как сохранить запись результата SQL-запроса как целое число в VBA

Question

У меня есть запрос в Access 2016, и я хочу сохранить номер записи как целое число в модуле VBA.Например, Query1 имеет 10 записей должны быть сохранены как:

int query1 = 10

Как я могу?

Answer 1

Вы можете использовать функцию DCount():

Public Sub Count_Records()

    Dim i As Integer

    i = DCount("*", "your_query_name")

    Debug.Print i


End Sub

Или использовать запрос SQL с COUNT() и набором записей:

Public Sub Count_Records_2()

    Dim RST As Recordset
    Dim i As Integer

    Set RST = CurrentDb.OpenRecordset("SELECT COUNT(*) AS CNT FROM your_query_name")
    i = RST!CNT

    Debug.Print i

End Sub

Answer 2

DCount, вероятно, самый читаемый метод, но просто для того, чтобы предложить другую альтернативу, вы также можете использовать свойство RecordCount набора записей, например ::

Sub CountRecords3()
    Dim i As Long
    With CurrentDb.OpenRecordset("Your_Query_Name")
        If Not .EOF Then
            .MoveFirst
            .MoveLast
            i = .RecordCount
        End If
        .Close
    End With
End Sub