Lcase ve Ucase fonksiyonlarındaki i, ı ve I problemi
Tarih
11/11/2008 16:52
Konu Sahibi
accessdelisi
Yorumlar
2
Okunma
1416
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
accessdelisi
Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Aktif Üye
340
30/10/2008
27
27/03/2017,17:10
Çözüldü 
sayın site halkı,

sorguda tümü büyük yazılan kelimeleri adi_soyadi: Lcase([adi]) kodu ile küçük harfe çeviriyorum,

diğer harflerde de problem varmı bilmiyorum ama I (büyük ı) harfini i olarak küçültüyor, mesela TARIK kelimesini tarik yapıyor.

Ucase fonksiyonunda ise i harfini I yapıyor, ı harfini ise büyütmüyor, diğer harflerdede sıkıntı varmı bilmiyorum.

Yardımlarınızı irca ediyorum.
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.601
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,00:42
Çözüldü 
Sponsor Reklam
Aşağıdaki kodları modüle ekle, (kodları modüle yapıştırdıktan sonra modülü kaydettiğinden emin ol)

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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
Option Compare Database


Public Function ilkharfbuyuk(kelime)
   kont = Len(kelime)
   If kont <> 0 Then
       harf = Mid(kelime, 1, 1)
       If Asc(harf) = 73 Or Asc(harf) = 253 Then
           ilkharfbuyuk = ilkharfbuyuk & "I"
           ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
           ilkharfbuyuk = ilkharfbuyuk & "İ"

           ElseIf harf = "ç" Or harf = "Ç" Then
           ilkharfbuyuk = ilkharfbuyuk & "Ç"
           ElseIf harf = "ğ" Or harf = "Ğ" Then
           ilkharfbuyuk = ilkharfbuyuk & "Ğ"
           ElseIf harf = "ö" Or harf = "Ö" Then
           ilkharfbuyuk = ilkharfbuyuk & "Ö"
           ElseIf harf = "ş" Or harf = "Ş" Then
           ilkharfbuyuk = ilkharfbuyuk & "Ş"
           ElseIf harf = "ü" Or harf = "Ü" Then
           ilkharfbuyuk = ilkharfbuyuk & "Ü"
           Else
           ilkharfbuyuk = ilkharfbuyuk & 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
                  ilkharfbuyuk = ilkharfbuyuk & "I"
                   ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
                   ilkharfbuyuk = ilkharfbuyuk & "İ"
                   ElseIf harf = "ç" Or harf = "Ç" Then
                   ilkharfbuyuk = ilkharfbuyuk & "Ç"
                   ElseIf harf = "ğ" Or harf = "Ğ" Then
                   ilkharfbuyuk = ilkharfbuyuk & "Ğ"
                   ElseIf harf = "ö" Or harf = "Ö" Then
                   ilkharfbuyuk = ilkharfbuyuk & "Ö"
                   ElseIf harf = "ş" Or harf = "Ş" Then
                   ilkharfbuyuk = ilkharfbuyuk & "Ş"
                   ElseIf harf = "ü" Or harf = "Ü" Then
                   ilkharfbuyuk = ilkharfbuyuk & "Ü"
                   Else
                   ilkharfbuyuk = ilkharfbuyuk & UCase(harf)
               End If
               Else
               If Asc(harf) = 73 Or Asc(harf) = 253 Then
                   ilkharfbuyuk = ilkharfbuyuk & "ı"
                   ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
                   ilkharfbuyuk = ilkharfbuyuk & "i"
                   ElseIf harf = "ç" Or harf = "Ç" Then
                   ilkharfbuyuk = ilkharfbuyuk & "ç"
                   ElseIf harf = "ğ" Or harf = "Ğ" Then
                   ilkharfbuyuk = ilkharfbuyuk & "ğ"
                   ElseIf harf = "ö" Or harf = "Ö" Then
                   ilkharfbuyuk = ilkharfbuyuk & "ö"
                   ElseIf harf = "ş" Or harf = "Ş" Then
                   ilkharfbuyuk = ilkharfbuyuk & "ş"
                   ElseIf harf = "ü" Or harf = "Ü" Then
                   ilkharfbuyuk = ilkharfbuyuk & "ü"
                   Else
                   ilkharfbuyuk = ilkharfbuyuk & LCase(harf)
               End If
           End If
           eharf = harf
       Next I
   End If
End Function

Public Function tumubuyuk(kelime)
   kont = Len(kelime)
   If kont <> 0 Then
       harf = Mid(kelime, 1, 1)
        For I = 1 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

Public Function tumukucuk(kelime)
   kont = Len(kelime)
   If kont <> 0 Then
       harf = Mid(kelime, 1, 1)
        For I = 1 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
                   tumukucuk = tumukucuk & "I"
                   ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
                   tumukucuk = tumukucuk & "i"
                   ElseIf harf = "ç" Or harf = "Ç" Then
                   tumukucuk = tumukucuk & "ç"
                   ElseIf harf = "ğ" Or harf = "Ğ" Then
                   tumukucuk = tumukucuk & "ğ"
                   ElseIf harf = "ö" Or harf = "Ö" Then
                   tumukucuk = tumukucuk & "ö"
                   ElseIf harf = "ş" Or harf = "Ş" Then
                   tumukucuk = tumukucuk & "ş"
                   ElseIf harf = "ü" Or harf = "Ü" Then
                   tumukucuk = tumukucuk & "ü"
                   Else
                   tumukucuk = tumukucuk & LCase(harf)
               End If
               Else
               If Asc(harf) = 73 Or Asc(harf) = 253 Then
                   tumukucuk = tumukucuk & "ı"
                   ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
                   tumukucuk = tumukucuk & "i"
                   ElseIf harf = "ç" Or harf = "Ç" Then
                   tumukucuk = tumukucuk & "ç"
                   ElseIf harf = "ğ" Or harf = "Ğ" Then
                   tumukucuk = tumukucuk & "ğ"
                   ElseIf harf = "ö" Or harf = "Ö" Then
                   tumukucuk = tumukucuk & "ö"
                   ElseIf harf = "ş" Or harf = "Ş" Then
                   tumukucuk = tumukucuk & "ş"
                   ElseIf harf = "ü" Or harf = "Ü" Then
                   tumukucuk = tumukucuk & "ü"
                   Else
                   tumukucuk = tumukucuk & LCase(harf)
               End If
           End If
           eharf = harf
       Next I
   End If
End Function


Tablodaki adi alanındaki verilerin sorguda tümünün küçük görünmesi için

SQL Code
TumKucAd: TumuKucuk([adi])


tümünün büyük görünmesi için

SQL Code
TumBuyAd: TumuBuyuk([adi])




Sadece ilk harfinin büyük, diğer harflerin küçük görünmesi için

SQL Code
IHarfBuyAdi: ilkharfbuyuk([adi])


kodlarını sorguya ekle

resim



Ek Dosyalar
.rar   buyukkucukharf.rar (Dosya Boyutu: 19,38 KB / İndirme Sayısı: 1.799)
Cevapla

accessdelisi
Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Aktif Üye
340
30/10/2008
27
27/03/2017,17:10
Çözüldü 
Sayın sledgeab, çok çok teşekkür ederim. bundan daha iyisi olamazdı.
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Sad İki Tarih Arası Sorgu Problemi AloneX 13 262 26/05/2017, 11:14 ozanakkaya
  Alt Formdaki Verileri Sıralama Problemi hbal09 4 115 27/03/2017, 11:22 atoz112
  Sorguya Kriter Ekleme Problemi estapan 4 245 04/03/2017, 10:06 estapan
  64 Bit Ofiste MouseHook, MouseWheel Problemi zzr 4 142 18/02/2017, 09:48 zzr
  #Hata ve #Boyut! Problemi kadirdursun 8 274 11/01/2017, 12:29 kadirdursun


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status