Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
24/02/2012 22:54
Konu Sahibi
misilak
Yorumlar
3
Okunma
2283
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
08/02/2010
3
İstanbul
Ofis 2010 32 Bit
14/07/2018,11:02
Çö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
30/10/2008
451
-
Ofis 2003
05/12/2017,16:58
Çö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.871
02/04/2010
İzmir
Bilgisayar Mühendisi
Ofis 2003
16/07/2018,14:12
Çö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
08/02/2010
3
İstanbul
Ofis 2010 32 Bit
14/07/2018,11:02
Çö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ü Tek Form Üzerinden Birden Fazla Form Açmak. m_demir 9 422 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.423 08/12/2016, 21:40
Son Yorum: alpeki99
Çözüldü Form da Cari Koda Göre Form Çağırma cagatay1234 5 761 10/10/2016, 11:05
Son Yorum: atoz112
Çözüldü Form içine form butonları ekleme IceMan7 7 1.371 26/07/2016, 11:44
Son Yorum: IceMan7
Çözüldü access ana form üzerinde bulunan alt form da bulunan komutu çalıştırabilirmiyim serif_28 2 1.308 13/05/2015, 01:26
Son Yorum: serif_28

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