| |
CreateQueryDefにて作成したクエリ(QueryA)のレコード数を簡単に求める方法が
ありましたら教えてください。
今はクエリ作成時とは別に、以下の方法でレコード数を出しているのですが、
レコード数が大量のためクエリ作成時にレコード数も確認してしまいたいと
思っています。
目的としては、たまに作成したクエリに空白の1レコードが入っていることが
あるため、そのクエリをはじく(CheckNull = True)ことです。
Dim val
Dim dbs As Database
Dim rst As Recordset
CheckNull = False
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(QueryA, dbOpenDynaset)
If rst.RecordCount = 0 Then
CheckNull = True
Else
rst.MoveLast
If rst.RecordCount = 1 Then
rst.MoveFirst
val = rst!ID
CheckNull = True
End If
End If
rst.Close
dbs.Close
よろしくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
