+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılan Formun Yeri (/konu-acilan-formun-yeri.html)
Açılan Formun Yeri - enginbeyy - 19/07/2020
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?
RE: Açılan Formun Yeri - berduş - 19/07/2020
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
RE: Açılan Formun Yeri - enginbeyy - 19/07/2020
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?
RE: Açılan Formun Yeri - berduş - 19/07/2020
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 silinecekmodPositionWindow 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 Booleaneklenen ve değişen kodlar:
Set gtxtCalTarget = txt '<==Eklendi
DoCmd.OpenForm frmName, , OpenArgs:=strTitle '<==DeğiştiRE: Açılan Formun Yeri - enginbeyy - 20/07/2020
Oldu hocam teşekkürler.
RE: Açılan Formun Yeri - berduş - 20/07/2020
Iyi çalışmalar.