Bir öneri olarak şunu söyleyeyim:
Command butonlarınızı işaretlerin geleceği noktalara yakın oluşturun ve visible özelliğini false yapın. Gerekli koşulların sağlanması durumunda caption ve color özellikleri tanımlansın ve visible özelliği true olarak güncellensin. Böylece command buton oluşturmuş gibi istediğiniz butonlar görüntülenebilir.

Sn Atoykan haklısınız.
Butonları tüm ilçelere (yaklaşık 1000 nokta sanırım) konumlandıracağım için biraz üşendim doğrusu

1000 butonu tek tek eklemek yerine aşağıdakine benzer bir kodu kullanabilirsiniz:
uzunluk, genişlik vs vs gibi değerleri girmezseniz varsayılan ayarları kullanır
diğer özellikleri de Visible gibi buradan ayarlayabilirssiniz
.CreateControl (FormAdı, NesneTürü(metnKutusu-Buton_listeKutusu vsvs), EkleneceğiBölge(başlıkkısmına-anagövde-alttbölge), Parent, ColumnName, SolaMesafe, ÜsteMesafe, Genişlik, Yükseklik)

Dim CtName As String

FrmAdi = "Form1"

DoCmd.OpenForm FrmAdi, acDesign



For X = 1 To 1000

CtName = "BtnAdi_" & X



Set ctlCheck = CreateControl(FrmAdi, acCommandButton, , , "") ', CtLeft, CtTop, CtlWidth, CtlHeight)

ctlCheck.Name = CtName

'With ctlCheck

'    .Name = "BtnGun" & X

'    .Top = CtlUst + DkyArlk * ((X - 0.6) \ 7)

'    .Left = CtlSol + YtyArlk * ((X - 0.6) Mod 7)

'End With

Next X

Sn Berduş çok teşekkürler

Sn Berduş,
For Next döngüsü Tablo1'de Seç alanında tıklanan satırları okusa ve
butonlar boyut-renk-konum-tanım bilgilerini buradan alsa
kodlama nasıl olur?

Bu kodlar sadece bir defa kullanılacak o da siz tek tek butonları eklemeyin diye
Yani her defasında bu kodlar çalışıp forma buton eklemeyecek yani yanlış anlaşılma olmasın.