istediğinizin basit bir kodu tc kimlik noyu kodluyor diğer isim ise yarın ekleceğim
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Me.FillStyle = 0
Call yerlestir
End Sub
Private Sub yerlestir()
Dim x As Integer
Dim y As Integer
Dim z As Integer
For x = 1 To 11
z = Me("tc" & x).Value
y = Me("tc" & x).Left
Me.Circle (y + 80, (z * 300) + 500), 120, 0
Next x
End Sub
#5
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
