Lcase ve Ucase fonksiyonlarındaki i, ı ve I problemi
Tarih
11/11/2008 16:52
Konu Sahibi
accessdelisi
Yorumlar
2
Okunma
1300
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
314
30/10/2008
24
-
Ofis 2010 32 Bit
Dün,01:22
Çö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.009
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,01:16
Çözüldü 
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
314
30/10/2008
24
-
Ofis 2010 32 Bit
Dün,01:22
Çö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
  Form Açıldığında Yeni Kayda Gitme Problemi ferhatozge 6 198 30/11/2016, 15:53 ferhatozge
  Arama problemi ve bir kaç diğer sorun nightashes 3 104 28/11/2016, 01:22 nightashes
  Tabloya Eklenen Resmi Formda Gösterme Problemi peter088 2 128 19/10/2016, 20:24 peter088
  Sorgulama Problemi accessdelisi 4 3.197 12/09/2016, 18:32 accessdelisi
  Kilitleme problemi Kardeşpayı 8 384 16/08/2016, 11:49 Kardeşpayı


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya