AccessTr.neT

Tam Versiyon: Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim)
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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ıyorumImg-grin) Sen ha Img-grin Hoşgeldin yaw.. Özledik seni.
Sayfalar: 1 2