+- 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
Cvp: Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim) - misilak - 19/04/2011
Sabırsızlıkla bekliyorum hocam. Teşekkür ederim
Cvp: Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim) - esrefigit - 20/04/2011
kodun tamamı bu
gayet güzel çalışıyor
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Me.FillStyle = 0
yerlestir
harfyerlestir
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), 100, 0
Next x
End Sub
Private Sub harfyerlestir()
Dim harfler As String
harfler = "abcçdefgğhiıjklmnoöprsştuüvyz"
Dim x As Integer
Dim y As Integer
Dim i As Integer
Dim z As Integer
Dim t As Integer
Dim c As Integer
y = Len(harfler)
t = Len(Me.adı_soyadı)
For c = 1 To 20
Me("M" & c) = ""
Next c
For z = 1 To t
Me("M" & z).Value = Mid(Me.adı_soyadı, z, 1)
For x = 1 To y
If Mid(Me.adı_soyadı, z, 1) = Mid(harfler, x, 1) Then
Me.Circle (Me("M" & z).Left, (x * 200) + 6000), 100, 0
End If
Next x
Next z
End Sub
aslında harflerin ascıı kodları ile halledilirdi ancak ü ö ğ harflerinin kodları normal asci sıralamasının dışında büyük rakamlar verdiği için kendim bir harf sıralaması uydurdum
Cvp: Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim) - Kur@l - 20/04/2011
Eşref Abi;
Elleriin dert görmesin. Daha sık görüşmek ümidiyle.
Kolay Gelsin.
Cvp: Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim) - esrefigit - 20/04/2011
büyük harfleri unuttum siz büyük harfleri "abcçdefgğhiıjklmnoöprsştuüvyzABCDE"
diye devamına ekleyin tabi eklediğiniz zaman kod arıza çıkaracaktır ancak basit bir çıkarma işlemi ile bunun üstesinden geleceğinizi biliyorum ben sizin
Cvp: Metni Sütunlara dönüştürmek ve optik kodlama (isim, soyisim) - misilak - 20/04/2011
Sayın esrefigit hocam, harikasınız. Teşekkür ederim...