Skip to main content

AccessTr.neT

Kayıt Ol

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

Tabloda İlk Harfi Büyük Yapmak

Mert1985
Mert1985
Access Cevaplanmış Soruları
10
1148

Tabloda İlk Harfi Büyük Yapmak

#2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,22:20
Yorumları: 13.536
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
İlk Harf Büyük

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


Tümü Büyük

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


Tümü Küçük

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


Kodları modüle kaydedin. 

Form üzerindeki butonun tıklandığında olayına

Metin0 = IlkHarfBuyuk(Metin0)


kodu eklerseniz, Metin0 daki metnin ilk harfini büyük yapar.
Örnek uygulamanızı eklerseniz net çözüm üretilebilir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Tabloda İlk Harfi Büyük Yapmak - Yazar: Mert1985 - 26/05/2021, 18:54
RE: Tabloda İlk Harfi Büyük Yapmak - Yazar: ozanakkaya - 26/05/2021, 19:20
RE: Tabloda İlk Harfi Büyük Yapmak - Yazar: feraz - 26/05/2021, 19:43
RE: Tabloda İlk Harfi Büyük Yapmak - Yazar: Mert1985 - 27/05/2021, 16:36
RE: Tabloda İlk Harfi Büyük Yapmak - Yazar: Mert1985 - 27/05/2021, 20:23
RE: Tabloda İlk Harfi Büyük Yapmak - Yazar: berduş - 27/05/2021, 23:23
RE: Tabloda İlk Harfi Büyük Yapmak - Yazar: Mert1985 - 28/05/2021, 17:22
RE: Tabloda İlk Harfi Büyük Yapmak - Yazar: Mert1985 - 29/05/2021, 14:19
Tablo - Yazar: Mert1985 - 28/05/2021, 17:36
Task