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

Derecelendirme: 0/5 - 0 oy

misilak

Aktif Üye
Kullanici Avatari
Aktif Üye
123
08/02/2010
3
İstanbul
Ofis 2010 32 Bit
30/03/2018,14:29
Çö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
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.
Cevapla

POWER

Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.871
02/04/2010
İzmir
Bilgisayar Mühendisi
Ofis 2003
17/04/2018,16:16
Çö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ı: 71)
Please return your positive or negative ...
Cevapla

misilak

Aktif Üye
Kullanici Avatari
Aktif Üye
123
08/02/2010
3
İstanbul
Ofis 2010 32 Bit
30/03/2018,14:29
Çö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
Çözüldü Tek Form Üzerinden Birden Fazla Form Açmak. m_demir 9 281 31/01/2018, 10:46 m_demir
Çözüldü Form üzerinden hesaplanan alanın başka form üzerinden güncelleştirilmesi nightashes 16 1.300 08/12/2016, 21:40 alpeki99
Çözüldü Form da Cari Koda Göre Form Çağırma cagatay1234 5 695 10/10/2016, 11:05 atoz112
Çözüldü Form içine form butonları ekleme IceMan7 7 1.266 26/07/2016, 11:44 IceMan7
Çözüldü access ana form üzerinde bulunan alt form da bulunan komutu çalıştırabilirmiyim serif_28 2 1.242 13/05/2015, 01:26 serif_28

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
 
 
Forum use Krzysztof "Supryk" Supryczynski addons.