次の例では、Orders テーブルを使用して、イギリスに出荷した注文に対する運送料の分散の概算値を計算します。
この例では、EnumFields プロシージャを呼び出しています。EnumFields プロシージャの内容は SELECT ステートメントの例の中にあります。
Sub VarX()
Dim dbs As Database, rst As Recordset
' この下の行を、使用しているコンピュータ上の
' Northwind のパスに変更してください。
Set dbs = OpenDatabase("Northwind.mdb")
' イギリスに出荷した注文に対する運送料の
' 分散の概算値を計算します。
Set rst = dbs.OpenRecordset("SELECT " _
& "Var(Freight) " _
& "AS [UK Freight Variance] " _
& "FROM Orders WHERE ShipCountry = 'UK';")
' Recordset を作成します。
rst.MoveLast
' EnumFields を呼び出し、Recordset の内容を
' 出力し、Recordset オブジェクトと必要な
' フィールド幅を渡します。
EnumFields rst, 20
Debug.Print
Set rst = dbs.OpenRecordset("SELECT " _
& "VarP(Freight) " _
& "AS [UK Freight VarianceP] " _
& "FROM Orders WHERE ShipCountry = 'UK';")
' Recordset を作成します。
rst.MoveLast
' EnumFields を呼び出し、Recordset の内容を
' 出力し、Recordset オブジェクトと必要な
' フィールド幅を渡します。
EnumFields rst, 20
dbs.Close
End Sub