次の例では、Orders テーブルを使用して、運送料が 10,000 円を超える注文を選び、それらの平均額を計算します。
この例では、EnumFields プロシージャを呼び出しています。EnumFields プロシージャの内容は SELECT ステートメントの例の中にあります。
Sub AvgX()
Dim dbs As Database, rst As Recordset
'
この下の行を、使用しているコンピュータ上の
' Northwind
のパスに変更してください。
Set dbs = OpenDatabase("Northwind.mdb")
'
運送料が 10,000
円を超える注文を選び、
'
それらの平均額を計算します。
Set rst = dbs.OpenRecordset("SELECT Avg(Freight)" _
& " AS [Average Freight]" _
& " FROM Orders WHERE Freight > 10000;")
' Recordset
を作成します。
rst.MoveLast
' EnumFields
を呼び出し、Recordset
の内容を
'
出力します。Recordset
オブジェクトと必要な
'
フィールド幅を渡します。
EnumFields rst, 25
dbs.Close
End Sub