+- 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ığı: Optik form kodlama (/konu-optik-form-kodlama.html)
Optik form kodlama - misilak - 24/02/2012
Merhaba hocalarım. Daha önce kodlama problemini halletmiştik ama ekteki çalışmada iki konuda yardım istiyorum. 1) TC kimlik kısmı boş veya 11 rakamdan az veya çok olursa hata veriyor. Vermesin istiyorum. 2) Raporun önizlemesinde görüleceği üzere adı soyadı altındaki kodlama tam harfin altında değil de daha solda kalıyor.
Şimdiden teşekkürler...
Cvp: Optik form kodlama - ayhan2122 - 24/02/2012
"tc" ve "M" kutularını metin hizalasını ortala ve
Private Sub yerlestir()
On Error GoTo HATA
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 + (Me("tc" & x).Width / 2), (z * 240) + 4170), 90, 0
Next x
CIKIS: Exit Sub
HATA: Resume CIKIS
End SubPrivate Sub harfyerlestir()
Dim harfler As String
'harfler = "abcçdefgğhiıjklmnoöprsştuüvyzABCDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ"
harfler = "ABCDEFGĞ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
Dim adsoyad As String
y = Len(harfler)
t = Len(Me.adı_soyadı)
For c = 1 To 18
Me("M" & c) = ""
Next c
adsoyad = Format(adı_soyadı, ">")
For z = 1 To t
Me("M" & z).Value = Mid(adsoyad, z, 1)
For x = 1 To y
If Mid(adsoyad, z, 1) = Mid(harfler, x, 1) Then
Me.Circle (Me("M" & z).Left + (Me("M" & z).Width / 2), (x * 240) + 7100), 90, 0
End If
Next x
Next z
End SubCvp: Optik form kodlama - POWER - 24/02/2012
İncelermisiniz...
Lütfen olumlu veya olumsuz geri dönüş yapınız...
Cvp: Optik form kodlama - misilak - 25/02/2012
Elinize sağlık hocam. İşimi gördü, teşekkür ederim...