Form Account Observer

Option Explicit
Implements AccountObserver

Dim mvarForm As Form

Public Sub setForm(theForm As Form)
    Set mvarForm = theForm
End Sub

Private Sub AccountObserver_update(modifiedAccount As Account)
    Call mvarForm.update(modifiedAccount)
End Sub

Get Joy of Patterns: Using Patterns for Enterprise Development, The now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.