Merhaba,
ekli dosyada başlangıç ve bitiş tarihlerine veri girmek için butonla takvimi çağırıp veri giriliyor fakat her iki buton da formu aynı yerde açıyor.(ekranın ortasında) Ben butonun hemen sağ tarafında yada aşağısında açılmasını istiyorum. yardımcı olabilir misiniz?
Ilgili
bağlantıdaki kodu inceleyebilirsiniz (8. mesaj)
Ayrıca sayın @
accessman in açtığı
konuyu da inceleyebilirsiniz gerçi bazen biraz kayabiliyor ama işinizi görür bence
Hocam sayın @
accessman beyin örneğinden modülü kopyalayıp dosyama alıyorum ama "Command2" butonunun tıklanma olayını kopyalayıp bendeki butonun tıklanma olayına yapıştıramıyorum çünkü bendeki tıklanma olayı olay yordamında değil direk eşittir (=) ile başlayıp devam etmiş.nasıl bir yol izlemeliyim acaba?
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