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

Derecelendirme: 0/5 - 0 oy



misilak
Aktif Üye
Kullanici Avatari
Aktif Üye
119
08/02/2010
3
İstanbul
Ofis 2010 32 Bit
30/10/2016,00:01
Çözüldü 
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
Bugün,18:35
Çö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.846
02/04/2010
İzmir
Ofis 2003
Bugün,00:55
Çözüldü 
İ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ı: 62)
Please return your positive or negative ...
Cevapla


misilak
Aktif Üye
Kullanici Avatari
Aktif Üye
119
08/02/2010
3
İstanbul
Ofis 2010 32 Bit
30/10/2016,00:01
Çö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 da Cari Koda Göre Form Çağırma cagatay1234 5 179 10/10/2016, 11:05 atoz112
  Form içine form butonları ekleme IceMan7 7 530 26/07/2016, 11:44 IceMan7
Çözüldü access ana form üzerinde bulunan alt form da bulunan komutu çalıştırabilirmiyim serif_28 2 825 13/05/2015, 01:26 serif_28
Çözüldü ana form kayıt ve alt form veri güncelleme bulenttum 7 3.084 11/01/2015, 22:21 hakanuss
Çözüldü Form ve Alt Form Yenileme Yunus Bozkurt 4 1.064 01/11/2014, 16:29 Yunus Bozkurt


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