Skip to main content

AccessTr.neT


Optik form kodlama

Optik form kodlama

Çözüldü #1
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)
misilak, 08-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
"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

Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #3
İncelermisiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...
.rar Veritabanı3.rar (Dosya Boyutu: 25,32 KB | İndirme Sayısı: 90)
Please return your positive or negative ...
Cevapla
Çözüldü #4
Elinize sağlık hocam. İşimi gördü, teşekkür ederim...
misilak, 08-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da