Optik form kodlama
Tarih
24/02/2012 22:54
Konu Sahibi
misilak
Yorumlar
3
Okunma
1950
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



misilak
Aktif Üye
Kullanici Avatari
Aktif Üye
121
08/02/2010
3
İstanbul
Ofis 2010 32 Bit
08/02/2017,14:37
Çözüldü 
Sponsor Reklam
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

ayhan2122
accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
11/02/2017,00:20
Çözüldü 
"tc" ve "M" kutularını metin hizalasını ortala ve

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
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


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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

POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.855
02/04/2010
İzmir
Ofis 2003
Bugün,16:48
Çözüldü 
Sponsor Reklam
İncelermisiniz...

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


Ek Dosyalar
.rar   Veritabanı3.rar (Dosya Boyutu: 25,32 KB / İndirme Sayısı: 63)
Please return your positive or negative ...
Cevapla

misilak
Aktif Üye
Kullanici Avatari
Aktif Üye
121
08/02/2010
3
İstanbul
Ofis 2010 32 Bit
08/02/2017,14:37
Çözüldü 
Elinize sağlık hocam. İşimi gördü, teşekkür ederim...
misilak, 08-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Form üzerinden hesaplanan alanın başka form üzerinden güncelleştirilmesi nightashes 16 349 08/12/2016, 21:40 alpeki99
  Form da Cari Koda Göre Form Çağırma cagatay1234 5 243 10/10/2016, 11:05 atoz112
  Form içine form butonları ekleme IceMan7 7 617 26/07/2016, 11:44 IceMan7
Çözüldü access ana form üzerinde bulunan alt form da bulunan komutu çalıştırabilirmiyim serif_28 2 877 13/05/2015, 01:26 serif_28
Çözüldü ana form kayıt ve alt form veri güncelleme bulenttum 7 3.298 11/01/2015, 22:21 hakanuss


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya