スポンサーリンク

2008-03-31

Tips145 - 自作関数を使用する Public Function()

SQLの構文に自作関数を使用することができます。
自作関数例:
引数を10倍にして返す関数です。
これを標準モジュールに入力します。
Public Function AcCalc(lval As Long) As Long
AcCalc = lval * 10
End Function

構文例:
SQL = "SELECT AcCalc(フィールド名) FROM テーブル名"
CurrentDb.Execute SQL, dbFailOnError

SQL = "SELECT AcCalc(売上データ) FROM 2008年実績"
2008年実績テーブルの売上データを10倍にした値を取得します。