Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
24/02/2012 22:54
Konu Sahibi
misilak
Yorumlar
3
Okunma
2315
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

misilak

Aktif Üye
Aktif Üye
 41
 123
 29
 08/02/2010
3
 İstanbul
 
 Ofis 2010 32 Bit
 25/07/2018,09:59
Çö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.

Kullanici Avatari

ayhan2122

accesstr.net , gayet net ;)
Uzman
 41
 681
 26
 30/10/2008
451
 -
 
 Ofis 2003
 26/07/2018,20: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.

Kullanici Avatari

POWER

Uzman
Uzman
UF.... ÖZ....
 54
 1.874
 43
 02/04/2010
 İzmir
 Bilgisayar Mühendisi
 Ofis 2003
 18/09/2018,02:14
Çö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ı: 72)
Please return your positive or negative ...

Kullanici Avatari

misilak

Aktif Üye
Aktif Üye
 41
 123
 29
 08/02/2010
3
 İstanbul
 
 Ofis 2010 32 Bit
 25/07/2018,09:59
Çözüldü 
Elinize sağlık hocam. İşimi gördü, teşekkür ederim...


misilak, 08-02-2010 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Ana Form'a Birkaç Tane Alt Form Ekleme kursun 4 110 25/08/2018, 02:43
Son Yorum: kursun
Çözüldü Tek Form Üzerinden Birden Fazla Form Açmak. m_demir 9 571 31/01/2018, 10:46
Son Yorum: m_demir
Çözüldü Form üzerinden hesaplanan alanın başka form üzerinden güncelleştirilmesi nightashes 16 1.536 08/12/2016, 21:40
Son Yorum: alpeki99
Çözüldü Form da Cari Koda Göre Form Çağırma cagatay1234 5 809 10/10/2016, 11:05
Son Yorum: atoz112
Çözüldü Form içine form butonları ekleme IceMan7 7 1.484 26/07/2016, 11:44
Son Yorum: IceMan7

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.