Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim)

Merhaba. Daha önce açılmış ve kısmen çözülmüş bir konudur. https://accesstr.net/konu-metni-sutunlar...tml?page=6 Mevcut çalışmada öğrencinin sadece tc kimlik nosunu kodlatmıştık. Ancak aynı şekilde ad soyad kısmını da kodlatmak gerekti. Yardımcı olabilir misiniz?

Değerli hocalarım. Yardımınızı bekliyorum. Selamlar

Günaydın değerli arkadaşlar...

Hocalarım yardımınızı bekliyorum...

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

Eşref, gözlerime inanamıyorum Hoşgeldin yaw.. Özledik seni.