+- 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)
RE: Buton Konumlama - temre - 28/02/2021
Evet, bir defaya mahsus eklenti anladım.
Sadece forma 1000 butonu eklerken verileri Tablo1'den okutmak amacım.
RE: Buton Konumlama - berduş - 28/02/2021
1 - buton adını da tablodan mı alacak
çünkü ilerde tablodaki bu adlar değişirse butonların isimlerini de değiştirmek gerekebilir
2 - en-boy-üst-sol gibi değerler cm cinsinden mi?
3 - sadece bu 5 renk mi kullanılacak ve her butonun rengi sabit mi daha sonradan değişmeyecek mi?
4 - butonların görünür özelliği ne olacak varsayılan olarak görünmez mi olacak
5 - tablonuzdaki kayıt sayısı kadar mı olacak, çünkü ilerde kayıt sayısı değişirse buna göre yeni buton eklemeniz yada silmeniz gerekebilir
RE: Buton Konumlama - berduş - 28/02/2021
aşağıdaki fonksiyonu dener misiniz?
şimdilik renkle ilgili bir kod eklemedim
referanslara Activex Data Object x.x Lirary klenmeli
Function BtnAta()
Dim CtName As String
FrmAdi = "Altform1"
DoCmd.OpenForm FrmAdi, acDesign
Dim Sql As String
Dim ADO_RS As ADODB.Recordset
Set ADO_RS = New ADODB.Recordset
SQL = "select * from [tablo1]"
ADO_RS.Open SQL, CurrentProject.Connection, 3, 1
ADO_RS.MoveFirst
Do While Not ADO_RS.EOF
CtTop = ADO_RS("Üst") * 567
CtLeft = ADO_RS("Sol") * 567
CtlWidth = ADO_RS("En") * 567
CtlHeight = ADO_RS("Boy") * 567
Set ctlCheck = CreateControl(FrmAdi, acCommandButton, , , "", CtLeft, CtTop, CtlWidth, CtlHeight)
'CreateControl (FormAdı, NesneTürü(metnKutusu-Buton_listeKutusu vsvs), EkleneceğiBölge(başlıkkısmına-anagövde-alttbölge), Parent, ilişkiliAlan, SolaMesafe, ÜsteMesafe, Genişlik, Yükseklik)
'567 TWIPS per cm, 1440 TWIPS per inch
With ctlCheck
.Name = ADO_RS("Buton adı") ' & X
.Caption = ADO_RS("Yazı")
.Visible = False
End With
ADO_RS.MoveNext
Loop
ADO_RS.Close
Set ADO_RS = Nothing
End FunctionRE: Buton Konumlama - temre - 28/02/2021
1 - buton adını da tablodan mı alacak: EVET
çünkü ilerde tablodaki bu adlar değişirse butonların isimlerini de değiştirmek gerekebilir
2 - en-boy-üst-sol gibi değerler cm cinsinden mi?: EVET
3 - sadece bu 5 renk mi kullanılacak ve her butonun rengi sabit mi daha sonradan değişmeyecek mi?: RENKLER DEĞİŞECEK
4 - butonların görünür özelliği ne olacak varsayılan olarak görünmez mi olacak: VARSAYILAN: GÖRÜNMEZ
5 - tablonuzdaki kayıt sayısı kadar mı olacak: KAYIT SAYISI DEĞİŞKEN
çünkü ilerde kayıt sayısı değişirse buna göre yeni buton eklemeniz yada silmeniz gerekebilir: OK
RE: Buton Konumlama - berduş - 01/03/2021
Sorun çözüldüyse cevaplanmışlara taşıyalım mı?
RE: Buton Konumlama - temre - 01/03/2021
Sn Berduş, teşekkür ederim.
Şuanki durumda tamamdır.