+- 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ığı: Formun Yarısını Gizleme (/konu-formun-yarisini-gizleme.html)
Formun Yarısını Gizleme - enginbeyy - 03/09/2020
merhaba,
ekli dosyadaki menü formunun ortasında bulunan siyah dikdörtgene tıklandığında formun sol tarafında bulunan fotoğraflı kısmın gizlenmesi tekrar tıklandığında açılması mümkün mü acaba, yada farklı bir şekilde.
Teşekkürler.
RE: Formun Yarısını Gizleme - ozanakkaya - 03/09/2020
Kutu25'in tıklandığında olayına aşağıdaki kodu yazarak deneyiniz.
If Kutu25.Left = 3525 Then
Me.Metin22.SetFocus
Me.Komut6.Visible = False
Me.Resim0.Visible = False
Me.Etiket13.Visible = False
Me.Açılan_Kutu9.Visible = False
Me.Kutu25.Left = 5
Me.Çizgi1.Left = 100
ElseIf Me.Kutu25.Left = 5 Then
Me.Metin22.SetFocus
Me.Komut6.Visible = True
Me.Resim0.Visible = True
Me.Etiket13.Visible = True
Me.Açılan_Kutu9.Visible = True
Me.Kutu25.Left = 3525
Me.Çizgi1.Left = 3628
End If
RE: Formun Yarısını Gizleme - enginbeyy - 03/09/2020
hocam deneme dosyasında oldu güzel çalışıyor.
asıl dosyaya uyarladım yapamadım.
Me.Metin22.SetFocus olayını anlamadım ondan yapamadım burası asıl dosyada neye denk gelmeli bir açıklaması var mı acaba
RE: Formun Yarısını Gizleme - enginbeyy - 03/09/2020
(03/09/2020, 15:41)enginbeyy yazdı: hocam deneme dosyasında oldu güzel çalışıyor.
asıl dosyaya uyarladım yapamadım.
Me.Metin22.SetFocus olayını anlamadım ondan yapamadım burası asıl dosyada neye denk gelmeli bir açıklaması var mı acaba
RE: Formun Yarısını Gizleme - ozanakkaya - 03/09/2020
Formdaki herhangi bir metin kutusu olabilir.
RE: Formun Yarısını Gizleme - enginbeyy - 03/09/2020
(03/09/2020, 17:01)ozanakkaya yazdı: Formdaki herhangi bir metin kutusu olabilir.tamam hocam
(03/09/2020, 12:27)ozanakkaya yazdı: hocam bu değerleri nasıl bulucam
Me.Kutu25.Left = 3525
Me.Çizgi1.Left = 3628
(03/09/2020, 12:27)ozanakkaya yazdı: ve bunları
Me.Kutu25.Left = 5
Me.Çizgi1.Left = 100