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