yapılan değişiklikler
ajbCalendar modülündeki CalendarFor kodu:

    Dim blRet As Boolean '<--eklenen

    blRet = PositionFormRelativeToControl("frmCalendar", Screen.ActiveControl, txt, strTitle)  '<--eklenen

    

'    Set gtxtCalTarget = txt '<== bu satır silinecek

'    DoCmd.OpenForm "frmCalendar", windowmode:=acDialog, OpenArgs:=strTitle '<== bu satır silinecek

'____________________________________________________________________
modPositionWindow modülündeki PositionFormRelativeToControl fonksiyonu aşağıdaki gibi değişecek
fonksiyon girdileri:

Public Function PositionFormRelativeToControl(frmName As String, ctl As Access.Control, txt As TextBox, _

                                              Optional strTitle As String, _

                                              Optional Position As Long = 0) As Boolean

eklenen ve değişen kodlar:

    Set gtxtCalTarget = txt '<==Eklendi

    DoCmd.OpenForm frmName, , OpenArgs:=strTitle '<==Değişti