Access2003 以前のマクロで変数を使う

Access2003 のマクロでは変数が使えない。*1代用としてFormのTextBox コントロールをコンテンツホルダーに使ったりすることが多いが、データ保持だけのためのFormを開くのも鬱陶しいのでマクロから呼べるデータ保持用の関数を作ってみた。

Function rdStaticStocker(Optional argVal As Variant) As Variant
    Static myData
    If Not IsMissing( argVal ) Then myData = argVal
    rdStaticStocker = myData 
End Function

この関数は、常にローカル変数 myData の値を返す。引数は省略可能で省略したときはローカル変数 myData を返すだけだが、引数を渡すと渡された値をローカル変数 myData に格納した後、戻り値として返す。

*1:Office Access 2007 の新しいマクロ機能