Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
23/05/2018 15:01
Konu Sahibi
sidd
Yorumlar
5
Okunma
364
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
sidd

sidd

Aktif Üye
97268
 47
 14
 61
 14/05/2018
0
 -
 
 -
 14/10/2018,09:23
Çözüldü 
Merhabalar,

Kayıt formunda  format bolumune ">" koyarak , yazılanları büyük yazıya otomatik ceviriyorum.
fakat listboxda aynı bilgiler küçük harf olarak gözüküyor, nasıl orada da büyük harf olarak gösterebiliriz?



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.102
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Merhaba, Kutuphane isimli modüle aşağıdaki kodu ekle,

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Public Function TumuBuyuk(kelime)

Dim kont, harf, i As Integer
Dim eharf As String
 
 kont = Len(kelime)
   If kont <> 0 Then
       harf = Mid(kelime, 1, 1)
       If Asc(harf) = 73 Or Asc(harf) = 253 Then
           TumuBuyuk = TumuBuyuk & "I"
           ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
           TumuBuyuk = TumuBuyuk & "İ"
           ElseIf harf = "ç" Or harf = "Ç" Then
           TumuBuyuk = TumuBuyuk & "Ç"
           ElseIf harf = "ğ" Or harf = "Ğ" Then
           TumuBuyuk = TumuBuyuk & "Ğ"
           ElseIf harf = "ö" Or harf = "Ö" Then
           TumuBuyuk = TumuBuyuk & "Ö"
           ElseIf harf = "ş" Or harf = "Ş" Then
           TumuBuyuk = TumuBuyuk & "Ş"
           ElseIf harf = "ü" Or harf = "Ü" Then
           TumuBuyuk = TumuBuyuk & "Ü"
           Else
           TumuBuyuk = TumuBuyuk & UCase(harf)
       End If
       For i = 2 To Len(kelime)
           harf = Mid(kelime, i, 1)
           If eharf = "." Or eharf = " " Or eharf = "-" Or eharf = "/" Then
               If Asc(harf) = 73 Or Asc(harf) = 253 Then
                  TumuBuyuk = TumuBuyuk & "I"
                   ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
                   TumuBuyuk = TumuBuyuk & "İ"
                   ElseIf harf = "ç" Or harf = "Ç" Then
                   TumuBuyuk = TumuBuyuk & "Ç"
                   ElseIf harf = "ğ" Or harf = "Ğ" Then
                   TumuBuyuk = TumuBuyuk & "Ğ"
                   ElseIf harf = "ö" Or harf = "Ö" Then
                   TumuBuyuk = TumuBuyuk & "Ö"
                   ElseIf harf = "ş" Or harf = "Ş" Then
                   TumuBuyuk = TumuBuyuk & "Ş"
                   ElseIf harf = "ü" Or harf = "Ü" Then
                   TumuBuyuk = TumuBuyuk & "Ü"
                   Else
                   TumuBuyuk = TumuBuyuk & UCase(harf)
               End If
               Else
               If Asc(harf) = 73 Or Asc(harf) = 253 Then
                   TumuBuyuk = TumuBuyuk & "I"
                   ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
                   TumuBuyuk = TumuBuyuk & "İ"
                   ElseIf harf = "ç" Or harf = "Ç" Then
                   TumuBuyuk = TumuBuyuk & "Ç"
                   ElseIf harf = "ğ" Or harf = "Ğ" Then
                   TumuBuyuk = TumuBuyuk & "Ğ"
                   ElseIf harf = "ö" Or harf = "Ö" Then
                   TumuBuyuk = TumuBuyuk & "Ö"
                   ElseIf harf = "ş" Or harf = "Ş" Then
                   TumuBuyuk = TumuBuyuk & "Ş"
                   ElseIf harf = "ü" Or harf = "Ü" Then
                   TumuBuyuk = TumuBuyuk & "Ü"
                   Else
                   TumuBuyuk = TumuBuyuk & UCase(harf)
               End If
           End If
           eharf = harf
       Next i
   End If
End Function


MODÜLÜ KAYDET

Liste kutusunun satır kaynağındaki sorguda,


SQL Code
FirmaUnvan

alanını


SQL Code
Firma_Unvan: TumuBuyuk([FirmaUnvan])



kodu ile değiştir. Tümü büyük harf olması istenilen tüm alanlara TumuBuyuk(....) işlemini uygula


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
sidd

sidd

Aktif Üye
97268
 47
 14
 61
 14/05/2018
0
 -
 
 -
 14/10/2018,09:23
(23/05/2018 15:08)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba, Kutuphane isimli modüle aşağıdaki kodu ekle,

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Public Function TumuBuyuk(kelime)

Dim kont, harf, i As Integer
Dim eharf As String
 
 kont = Len(kelime)
   If kont <> 0 Then
       harf = Mid(kelime, 1, 1)
       If Asc(harf) = 73 Or Asc(harf) = 253 Then
           TumuBuyuk = TumuBuyuk & "I"
           ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
           TumuBuyuk = TumuBuyuk & "İ"
           ElseIf harf = "ç" Or harf = "Ç" Then
           TumuBuyuk = TumuBuyuk & "Ç"
           ElseIf harf = "ğ" Or harf = "Ğ" Then
           TumuBuyuk = TumuBuyuk & "Ğ"
           ElseIf harf = "ö" Or harf = "Ö" Then
           TumuBuyuk = TumuBuyuk & "Ö"
           ElseIf harf = "ş" Or harf = "Ş" Then
           TumuBuyuk = TumuBuyuk & "Ş"
           ElseIf harf = "ü" Or harf = "Ü" Then
           TumuBuyuk = TumuBuyuk & "Ü"
           Else
           TumuBuyuk = TumuBuyuk & UCase(harf)
       End If
       For i = 2 To Len(kelime)
           harf = Mid(kelime, i, 1)
           If eharf = "." Or eharf = " " Or eharf = "-" Or eharf = "/" Then
               If Asc(harf) = 73 Or Asc(harf) = 253 Then
                  TumuBuyuk = TumuBuyuk & "I"
                   ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
                   TumuBuyuk = TumuBuyuk & "İ"
                   ElseIf harf = "ç" Or harf = "Ç" Then
                   TumuBuyuk = TumuBuyuk & "Ç"
                   ElseIf harf = "ğ" Or harf = "Ğ" Then
                   TumuBuyuk = TumuBuyuk & "Ğ"
                   ElseIf harf = "ö" Or harf = "Ö" Then
                   TumuBuyuk = TumuBuyuk & "Ö"
                   ElseIf harf = "ş" Or harf = "Ş" Then
                   TumuBuyuk = TumuBuyuk & "Ş"
                   ElseIf harf = "ü" Or harf = "Ü" Then
                   TumuBuyuk = TumuBuyuk & "Ü"
                   Else
                   TumuBuyuk = TumuBuyuk & UCase(harf)
               End If
               Else
               If Asc(harf) = 73 Or Asc(harf) = 253 Then
                   TumuBuyuk = TumuBuyuk & "I"
                   ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
                   TumuBuyuk = TumuBuyuk & "İ"
                   ElseIf harf = "ç" Or harf = "Ç" Then
                   TumuBuyuk = TumuBuyuk & "Ç"
                   ElseIf harf = "ğ" Or harf = "Ğ" Then
                   TumuBuyuk = TumuBuyuk & "Ğ"
                   ElseIf harf = "ö" Or harf = "Ö" Then
                   TumuBuyuk = TumuBuyuk & "Ö"
                   ElseIf harf = "ş" Or harf = "Ş" Then
                   TumuBuyuk = TumuBuyuk & "Ş"
                   ElseIf harf = "ü" Or harf = "Ü" Then
                   TumuBuyuk = TumuBuyuk & "Ü"
                   Else
                   TumuBuyuk = TumuBuyuk & UCase(harf)
               End If
           End If
           eharf = harf
       Next i
   End If
End Function


MODÜLÜ KAYDET

Liste kutusunun satır kaynağındaki sorguda,


SQL Code
FirmaUnvan

alanını


SQL Code
Firma_Unvan: TumuBuyuk([FirmaUnvan])



kodu ile değiştir. Tümü büyük harf olması istenilen tüm alanlara TumuBuyuk(....) işlemini uygula

teşekkürler, modulu yapıstırdım, ama Sql kodu nereye gireceğimi bulamadım. criteria bolumune mi?



sidd

sidd

Aktif Üye
97268
 47
 14
 61
 14/05/2018
0
 -
 
 -
 14/10/2018,09:23
(23/05/2018 15:18)sidd Adlı Kullanıcıdan Alıntı:
(23/05/2018 15:08)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba, Kutuphane isimli modüle aşağıdaki kodu ekle,

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Public Function TumuBuyuk(kelime)

Dim kont, harf, i As Integer
Dim eharf As String
 
 kont = Len(kelime)
   If kont <> 0 Then
       harf = Mid(kelime, 1, 1)
       If Asc(harf) = 73 Or Asc(harf) = 253 Then
           TumuBuyuk = TumuBuyuk & "I"
           ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
           TumuBuyuk = TumuBuyuk & "İ"
           ElseIf harf = "ç" Or harf = "Ç" Then
           TumuBuyuk = TumuBuyuk & "Ç"
           ElseIf harf = "ğ" Or harf = "Ğ" Then
           TumuBuyuk = TumuBuyuk & "Ğ"
           ElseIf harf = "ö" Or harf = "Ö" Then
           TumuBuyuk = TumuBuyuk & "Ö"
           ElseIf harf = "ş" Or harf = "Ş" Then
           TumuBuyuk = TumuBuyuk & "Ş"
           ElseIf harf = "ü" Or harf = "Ü" Then
           TumuBuyuk = TumuBuyuk & "Ü"
           Else
           TumuBuyuk = TumuBuyuk & UCase(harf)
       End If
       For i = 2 To Len(kelime)
           harf = Mid(kelime, i, 1)
           If eharf = "." Or eharf = " " Or eharf = "-" Or eharf = "/" Then
               If Asc(harf) = 73 Or Asc(harf) = 253 Then
                  TumuBuyuk = TumuBuyuk & "I"
                   ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
                   TumuBuyuk = TumuBuyuk & "İ"
                   ElseIf harf = "ç" Or harf = "Ç" Then
                   TumuBuyuk = TumuBuyuk & "Ç"
                   ElseIf harf = "ğ" Or harf = "Ğ" Then
                   TumuBuyuk = TumuBuyuk & "Ğ"
                   ElseIf harf = "ö" Or harf = "Ö" Then
                   TumuBuyuk = TumuBuyuk & "Ö"
                   ElseIf harf = "ş" Or harf = "Ş" Then
                   TumuBuyuk = TumuBuyuk & "Ş"
                   ElseIf harf = "ü" Or harf = "Ü" Then
                   TumuBuyuk = TumuBuyuk & "Ü"
                   Else
                   TumuBuyuk = TumuBuyuk & UCase(harf)
               End If
               Else
               If Asc(harf) = 73 Or Asc(harf) = 253 Then
                   TumuBuyuk = TumuBuyuk & "I"
                   ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
                   TumuBuyuk = TumuBuyuk & "İ"
                   ElseIf harf = "ç" Or harf = "Ç" Then
                   TumuBuyuk = TumuBuyuk & "Ç"
                   ElseIf harf = "ğ" Or harf = "Ğ" Then
                   TumuBuyuk = TumuBuyuk & "Ğ"
                   ElseIf harf = "ö" Or harf = "Ö" Then
                   TumuBuyuk = TumuBuyuk & "Ö"
                   ElseIf harf = "ş" Or harf = "Ş" Then
                   TumuBuyuk = TumuBuyuk & "Ş"
                   ElseIf harf = "ü" Or harf = "Ü" Then
                   TumuBuyuk = TumuBuyuk & "Ü"
                   Else
                   TumuBuyuk = TumuBuyuk & UCase(harf)
               End If
           End If
           eharf = harf
       Next i
   End If
End Function


MODÜLÜ KAYDET

Liste kutusunun satır kaynağındaki sorguda,


SQL Code
FirmaUnvan

alanını


SQL Code
Firma_Unvan: TumuBuyuk([FirmaUnvan])



kodu ile değiştir. Tümü büyük harf olması istenilen tüm alanlara TumuBuyuk(....) işlemini uygula

teşekkürler, modulu yapıstırdım, ama Sql kodu nereye gireceğimi bulamadım. criteria bolumune mi?

tamamdır, girişi yaptım ama adres bolumu için aşağıdaki hatayı verdi, sanırım hiçbir data yok diye, nasıl sorunu çözebiliriz.
Circular reference caused by alias



...........
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.102
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Data olup olmaması ile ilgisi yok. Adres alanını


SQL Code
Adres: TumuBuyuk([Adres])


şeklinde yazmış olabilirsiniz. alan ile tanımlamanın isimleri aynı olamaz. FirmaUnvan alanını nasıl değiştirdiğime dikkat edin, tanım ile alan ismi aynı mı?


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

sidd

sidd

Aktif Üye
97268
 47
 14
 61
 14/05/2018
0
 -
 
 -
 14/10/2018,09:23
(23/05/2018 16:33)ozanakkaya Adlı Kullanıcıdan Alıntı: Data olup olmaması ile ilgisi yok. Adres alanını


SQL Code
Adres: TumuBuyuk([Adres])


şeklinde yazmış olabilirsiniz. alan ile tanımlamanın isimleri aynı olamaz. FirmaUnvan alanını nasıl değiştirdiğime dikkat edin, tanım ile alan ismi aynı mı?


Teşekkürler Ozan Bey kesinlikle haklısınız, dediğiniz gibi ikisini de Adres yazmısım.
cozuldu.



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Mail Gönderirken Gövdeye Yazı Aralarına Resim Eklemek Ve Satır Ara Boşlukları zetyu 6 380 22/03/2019, 23:52
Son Yorum: zetyu
Çözüldü Listbox Oto Sütun Genişliği acar6783 6 311 06/02/2019, 21:55
Son Yorum: acar6783
Çözüldü Listbox Seçilen Değerin Görünmemesi yahzee_61 5 164 24/01/2019, 15:11
Son Yorum: ozanakkaya
Çözüldü Sayısal Değeri En Büyük Olana Ait Kayıtları Listelemek derebeyi 4 238 16/11/2018, 08:19
Son Yorum: derebeyi
Çözüldü Yıla Göre Aylık Toplu Ve Yıla Göre Aylık Listbox Filtreli Rapor shephard 6 501 19/09/2018, 20:13
Son Yorum: shephard

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