次の例では、Washington において複数の社員が任命されている役職を選択します。
この例では、EnumFields プロシージャを呼び出しています。EnumFields プロシージャの内容は SELECT ステートメントの例の中にあります。
Sub HavingX()
Dim dbs As Database, rst As Recordset
'
この下の行を、使用しているコンピュータ上の
' Northwind
のパスに変更してください。
Set dbs = OpenDatabase("Northwind.mdb")
' Washington
において複数の社員が
'
任命されている役職を選択します。
Set rst = dbs.OpenRecordset("SELECT Title, " _
& "Count(Title) as Total FROM Employees " _
& "WHERE Region = 'WA' " _
& "GROUP BY Title HAVING Count(Title) > 1;")
' Recordset
を作成します。
rst.MoveLast
' EnumFields
を呼び出して
' Recordset
の内容を出力します。
EnumFields rst, 25
dbs.Close
End Sub