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...
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 Sub
Private 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 Sub