AccessTr.neT
Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim) - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim) (/konu-metni-sutunlara-donusturmek-ve-optik-kodlama-isim-soyisim.html)

Sayfalar: 1 2


Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim) - misilak - 16/04/2011

Merhaba. Daha önce açılmış ve kısmen çözülmüş bir konudur. https://accesstr.net/konu-metni-sutunlara-donusturmek-ve-optik-form-kodlama.html?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?


Cvp: Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim) - misilak - 16/04/2011

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


Cvp: Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim) - misilak - 18/04/2011

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


Cvp: Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim) - misilak - 18/04/2011

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


Cvp: Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim) - esrefigit - 19/04/2011

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



Cvp: Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim) - mehmetdemiral - 19/04/2011

Eşref, gözlerime inanamıyorumImg-grin) Sen ha Img-grin Hoşgeldin yaw.. Özledik seni.