Evet, bir defaya mahsus eklenti anladım.
Sadece forma 1000 butonu eklerken verileri Tablo1'den okutmak amacım.
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
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