Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Lcase ve Ucase fonksiyonlarındaki i, ı ve I problemi

access_delisi
access_delisi
Access Cevaplanmış Soruları
3
3670

Lcase ve Ucase fonksiyonlarındaki i, ı ve I problemi

Çözüldü #1
access_delisi
Tımarhaneden Yeni Kaçtım
access_delisi
Bul
Aktif Üye
Adı Soyadı: Ah.... Fu.... Ce....
Yaşı: 48
Konum: Denizli
Ofis Versiyonu: -
Son Oturumu: 14/01/2023,00:45
Yorumları: 454
Konuları: 87
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 20
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
Çözüldü #2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Aşağıdaki kodları modüle ekle, (kodları modüle yapıştırdıktan sonra modülü kaydettiğinden emin ol)

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
TumKucAd: TumuKucuk([adi])

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

TumBuyAd: TumuBuyuk([adi])



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

IHarfBuyAdi: ilkharfbuyuk([adi])

kodlarını sorguya ekle

[Resim: do.php?img=4941]
.rar buyukkucukharf.rar (Dosya Boyutu: 19,38 KB | İndirme Sayısı: 1.814)
Cevapla
Çözüldü #3
access_delisi
Tımarhaneden Yeni Kaçtım
access_delisi
Bul
Aktif Üye
Adı Soyadı: Ah.... Fu.... Ce....
Yaşı: 48
Konum: Denizli
Ofis Versiyonu: -
Son Oturumu: 14/01/2023,00:45
Yorumları: 454
Konuları: 87
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 20
Sayın sledgeab, çok çok teşekkür ederim. bundan daha iyisi olamazdı.
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
#4
te-kin
Aktif Üye
te-kin
Bul
Aktif Üye*
Adı Soyadı: Te.... ÇE....
Yaşı: 48
Konum: Konya
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 30/11/2024,22:04
Yorumları: 183
Konuları: 54
Kayıt Tarihi: 10/01/2012
Teşekkür Puanı: 0
Bencede çok güzel ve her zaman işimize yarayacak bir fonsiyon. Teşekkürler...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task