AccessTr.neT

Evet, bir defaya mahsus eklenti anladım.
Sadece forma 1000 butonu eklerken verileri Tablo1'den okutmak amacım.

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

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 Function

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

Sorun çözüldüyse cevaplanmışlara taşıyalım mı?

Sn Berduş, teşekkür ederim.

Şuanki durumda tamamdır.