Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
11/11/2008 16:52
Konu Sahibi
accessdelisi
Yorumlar
2
Okunma
1856
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

accessdelisi


AH.... FU.... CE....
 41
 375
 79
 30/10/2008
27
 -
 
 -
 08/10/2018,07:18
Çö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.



Kullanici Avatari

ozanakkaya


OZ.... AK....
 41
 11.375
 466
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Çö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: do.php?img=4941]


Ek Dosyalar
.rar   buyukkucukharf.rar(Dosya Boyutu: 19,38 KB / İndirme Sayısı: 1.799)
"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. 

Kullanici Avatari

accessdelisi


AH.... FU.... CE....
 41
 375
 79
 30/10/2008
27
 -
 
 -
 08/10/2018,07:18
Çözüldü 
Sayın sledgeab, çok çok teşekkür ederim. bundan daha iyisi olamazdı.


SÖZ VERİYORUM... USLU DURUCAM...


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Dosya Yolu Problemi notrino 2 96 03/10/2018, 20:26
Son Yorum: notrino
Çözüldü Zengin Metin Problemi notrino 3 78 28/09/2018, 14:57
Son Yorum: ozanakkaya
Çözüldü Açılan Kutuda Kimlik Kaydı Problemi notrino 3 89 26/09/2018, 17:09
Son Yorum: notrino
Çözüldü Qr Code Raporda Gösterme Problemi hbal09 10 281 21/09/2018, 17:40
Son Yorum: hbal09
Çözüldü Access Runtime İle Çalışırken İstemci Ayarlarında Sorgu Onayı Problemi hbal09 4 142 11/09/2018, 17:59
Son Yorum: hbal09

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