+- 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ığı: Buton Konumlama (/konu-buton-konumlama.html)
Buton Konumlama - temre - 20/02/2021
Merhaba,
Form1.Altfom2'de "Seç" alanında işaretleme yapınca Form1.Altform1'de otomatik butonlar oluşturmak,
butonların ölçü+renk+yazı ve konum bilgilerini Form1.Altform2'deki değerlere göre oluşturmak istiyorum.
Değerli yardımlarınızı rica ederim.
Saygılar,
RE: Buton Konumlama - temre - 21/02/2021
Bu örnek kodları çalışmama uyarlamaya çalıştım ama pek ilerleyemedim.
Size bir başlangıç olabilir mi?
Sub NewControls()
Dim frm As Form
Dim ctlButton As Control
Set frm = CreateForm
Set ctlButton = CreateControl(frm.Name, acCommandButton, , , , Left:=2834.645669291 / 5 * 1, Top:=2834.645669291 / 5 * 2, _
Width:=2834.645669291 / 5 * 3, Height:=2834.645669291 / 5 * 1)
End Sub
RE: Buton Konumlama - berduş - 21/02/2021
Yanılmıyorsam Access formlarının böyle bir özelliği yok, yani form çalışırken nesne ekleyemiyorsunuz
Exceldeki userformlarda oluyor, ama Access userformu hiç denemedim onu bilmiyorum
Çalışmanızı inceleyemediğim için kesin bir öneride bulunamam ama eklenmesini istediğiniz butonları önceden ekleyip görünmez yapabilirsiniz
RE: Buton Konumlama - temre - 21/02/2021
Form1'de Alt1.Recordsource="" iken
kod çalışsa ve Altform1'de butonları oluştursa
daha sonra Alt1.Recordsource="Altform1"
şeklinde bir işlem yapabilir miyiz mesela?
RE: Buton Konumlama - berduş - 21/02/2021
Ama bu durumda da her defasında formdan tekrar butonları silmek gerekecek
Neden bu yöntemi kullanmak istiyorsunuz?
En fazla kaç butona ihtiyacınız var? Butonlar bir defa oluşturulup gizlenir, ihtiyacınız olduğunda görünür yapıp özelliklerini değiştirebilirsiniz
RE: Buton Konumlama - temre - 21/02/2021
Evet; butonları silmem gerekecek.
Çünkü listede seçim yaptığım satıra ait buton gelecek; seçimi kaldırdığım buton silinecek.
Listede bazen yüze yakın veya geçen satır oluşacak.