[FORM] formun ekrandaki konumunu sabitleme
#1
Selam arkadaşlar,
Uzun bir süreden sonra yeniden sitemize dönüş yaptım.
Sorum şu;
bir formun ekrandaki konumunu nasıl sabitleyebiliriz?
Form açıldığında hep aynı yerde çıksın istiyorum, ancak her açılışta yeri sola veya sağa değil ama aşağı yukarı oynuyor. Formu ortalamak istemiyorum. Ekranın soluna iyice yanaşsın aşağı yukarı oynamasın istiyorum. Bu form hep açık kalacak bir form.
Teşekkürler şimdiden...



  Alıntı
Bu mesajı beğenenler:
#2
Sn alpertunga65;
1. Formu tasarlayip, devamli ustte secenegini isaretleyin.
2. Formun herhangi nesne eylemine asagida ki kodu yazin.
DoCmd.Restore
Me.Moveable = False
3. formu acip, istenilen yere tasiyin.
4. Eylem nesnesini calistirin.



  Alıntı
Bu mesajı beğenenler:
#3
Sayın dsezgin83260 Hocam,
yardımlarınız için teşekkür ederim. sayenizde her zaman olduğu gibi sorun çözülmüştür.



  Alıntı
Bu mesajı beğenenler:
#4
Sayın dsezgin Hocam,

Açılan Formun konum bilgilerini nasıl öğrenebilirim. Düşündüğüm şu; Yapmak istediğim programda kullanılan 4-5 farklı formlar var kişi giriş/düzenleme vs bölümden bir giriş geçekleştirdiği zaman ona bağlı diğer formlarda da giriş yapılmak istenildiğinde ilgili form önceki açılan forma baz alarak bir parça yana/alta kayarak açılmasını sağlamak.


Form ve google da araştırma yaptım ya nasıl araştıracağımı bilemedim yanlış aradım veya yoktu bulamadım yardımcı olursanız sevinirim. saygılarımla



  Alıntı
Bu mesajı beğenenler:
#5
(27-03-2022, 17:00)bibib demiş ki: Form ve google da araştırma yaptım ya nasıl araştıracağımı bilemedim yanlış aradım veya yoktu bulamadım yardımcı olursanız sevinirim.

Private Sub Form_Load()
Me.Move DLookup("Sag", "Tb_FrmYer", "FormAdi='" & Me.Name & "'"), DLookup("Ust", "Tb_FrmYer", "FormAdi='" & Me.Name & "'"), DLookup("Gen", "Tb_FrmYer", "FormAdi='" & Me.Name & "'"), DLookup("Yuk", "Tb_FrmYer", "FormAdi='" & Me.Name & "'")
End Sub

Visual Basic
  1. Public Sub FormYer(Frm As Form)
  2. If SysCmd(acSysCmdGetObjectState, acForm, Frm.Name) = 0 Then Exit Sub
  3. Dim Kez As Long, SutAd As Variant, Deger(1 To 4) As Long
  4. SutAd = Array(, "WindowLeft", "WindowTop", "WindowWidth", "WindowHeight")
  5. For Kez = 1 To 4
  6. Deger(Kez) = Frm.Properties(SutAd(Kez))
  7. Next Kez
  8. If DCount("*", "Tb_FrmYer", "FormAdi='" & Frm.Name & "'") > 0 Then
  9.    CurrentDb.Execute "UPDATE Tb_FrmYer Set Sag=" & Deger(1) & ", Ust=" & Deger(2) & ", Gen=" & Deger(3) & ", Yuk=" & Deger(4) & " WHERE (((FormAdi)='" & Frm.Name & "'))"
  10. Else
  11.    CurrentDb.Execute "INSERT INTO Tb_FrmYer (FormAdi, Sag, Ust, Gen, Yuk) VALUES('" & Frm.Name & "', " & Deger(1) & ", " & Deger(2) & ", " & Deger(3) & ", " & Deger(4) & ")"
  12. End If
  13. End Sub




.rar   FormYer.rar (Boyut: 24,21 KB / İndirilme: 57)



  Alıntı
Bu mesajı beğenenler: metınaycıcek


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [RAPOR] Rapor Alt Formun A4 Sayfası Dolana Kadar Tekrar Tekrar Eklenmesi. tolgahanay8 2 337 01-04-2025, 22:26
Son Mesaj: tolgahanay8
  [FORM] Sadece Alt Formun Kaydedilmesi TheREDROSE 1 277 22-08-2024, 03:00
Son Mesaj: dsezgin
access-sql-18 Sorgu Kapatınca Formun Açılması burhanb 1 315 18-11-2023, 00:44
Son Mesaj: dsezgin
  [FONKSiYON] Alt Formun Kildini Açmak Ahmet51 3 463 05-07-2023, 08:48
Son Mesaj: onur_can
  Veri Kaydından Sonra Veri Sabitleme. omergenc7 1 371 04-09-2022, 15:59
Son Mesaj: omergenc7
  [TABLO] Formun Altına Seçilebilir şekilde Tablodaki Verilerini Gösterme derzulya 2 467 14-06-2022, 12:37
Son Mesaj: derzulya
  [FORM] Access Formun Farklı Boyuttaki Ekranlarda Tam Ekran Görünmesi Hk. ergin.tekinalp 9 1.070 14-03-2022, 10:50
Son Mesaj: ergin.tekinalp
  Verilerin Bazılarını Sabitleme Hakkında Matriarch 4 584 28-10-2021, 12:33
Son Mesaj: Matriarch

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi