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?
Açılan Formun Yeri
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
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:
modPositionWindow modülündeki PositionFormRelativeToControl fonksiyonu aşağıdaki gibi değişecek
fonksiyon girdileri:
eklenen ve değişen kodlar:
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
Oldu hocam teşekkürler.
Iyi çalışmalar.
Konuyu Okuyanlar: 1 Ziyaretçi