HCL Notesの「自動的に、今日の日付と生年月日を突き合せて年齢の更新を行う」エージェントをAceess VBAでの再現に挑戦……と思ったのですが、Accessの作法に手間取って完成には至りませんでした……。

Notes側のコード

Note側はデータベースから誕生日が一致する社員情報フォームを抽出して、更新をするエージェントを書くだけです。

Sub Initialize
    Dim ss As New NotesSession
    Dim db As NotesDatabase
    Set db = ss.Currentdatabase

'実行日が誕生日と一致する社員情報をCollection  
    Dim Query As String
    Query = "Form = ""Main"" &"
    Query = Query & "@Text(@Month(Birthday))+@Text(@Day(Birthday))="
    Query = Query & "@Text(@Month(@Today))+@Text(@Day(@Today))"

    Dim col As NotesDocumentCollection
    Dim doc As NotesDocument

    Set col = db.Search(Query, Nothing, 0)

'文書がなければ終了    
    If col.Count = 0 Then 
        Exit Sub
    End If

'一致する文書に再計算を実行    
    Set doc = col.GetFirstDocument
    Do Until ( doc Is Nothing )
        Call AgeUpdate(doc)
        Call doc.Save( False, False )
        Set doc = col.GetNextDocument( doc )
    Loop
End Sub

REM
    Sub AgeUpdate
    Description: "前回作成したコードを使いまわし"
END REM
Sub AgeUpdate(doc As NotesDocument) 
'誕生日と今日の日付を取得
    Dim birthday As New NotesDateTime(doc.BirthDay(0))
    Dim nowday As New NotesDateTime( "Today" )  

'今日と誕生日の差分を計算
    Dim y ,m As Integer 
    Dim age As Integer
    y = Year(nowday.LSLocalTime) - Year(birthday.LSLocalTime)
    m = Month(nowday.LSLocalTime) - Month(birthday.LSLocalTime)

    If m < 0 Or (m = 0 And Day(nowday.LSLocalTime) < Day(birthday.LSLocalTime)) Then
        age = y - 1
    Else
        age = y
    End If

    '年齢に計算結果をセット
    doc.age = CStr( age )
End Sub

Access側のコード

年齢計算のコードはMicroSoftのドキュメントにあったので、これを流用しようと思ったのですが…。色々な作法を知らないといけないようで。

Accessの作法

コードを書きながらなので、箇条書きで。

Access VBAを読み込ませるときは、[作成] - [マクロ] - [プロシージャの実行]でプロシージャ(VBA)を指定する。指定できるのはFunctionのみでSubは利用できない。なお、Functionは引数なしでも問題ない。
Notesの Dim db As New NotesDatabase は、Dim db As DAO.Database という記述になる。オブジェクトはDAO(Aceess)/ADO(外部データベース)の2種類がある。
テーブル操作は .OpenRecordset メソッドで行う。
「ビューを開く」は CurrentDB.OpenRecordset("テーブル名")
「コレクションを集める」は CurrentDB.OpenRecordset("SELECT * FROM テーブル名")
Notesのデバッグモードと類似した画面は、VBAでは[表示]-[ローカルモード]で表示させることができる。

Notesのデバッグモード

VBAのローカルモード

NotesデータベースをMicroSoft Accessで作ってみる（誕生日の検出）

Notes側のコード

Access側のコード

Accessの作法