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
tarih takvim_Form_Konum_hy.rar
(Dosya Boyutu: 555,42 KB | İndirme Sayısı: 8)