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

Ek Dosyalar

Veritabanı3.rar(16.74 KB)

"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 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

İncelermisiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...

Elinize sağlık hocam. İşimi gördü, teşekkür ederim...