HASTANE OTOMSAYONU İLE UGRAŞIYORUM VE DIŞARDAN GİRİLECEK VERİLERİN TÜMÜNÜN CAPS LOCK KAPALI BİLE OLSA BÜYÜK HARFLER İLE GİRİLMESİNİ İSTİYORUM BİLEN VARMI ?

En kolay yolu veri girdiğiniz metin kutusunun özelliklerinden biçim kısmına > işareti koymaktır. Eğer Türkçe karakterlerde de büyük olması sorun değilse bu yöntemi kullanabilirsiniz. Bu arada lütfen forumumuzda küçük harf kullanınız çünkü büyük harf sadece bağırmak anlamına gelir.

söylediginiz işe yaradı fakat formda görsel açıdan büyük yazıyor. tabloyada büyük harfle kayıt yapmak için nasıl bi yöntem uygulaya bilirim ?

Site Kuralları gereği tümü büyük harflerle konu başlığı veya mesaj yazmak yasak.

6-) Konu başlığını veya mesajı tümü büyük harfle yazmak yasaktır.
[Uyarı Puanı: +2]


Böyle giderse benimde siteye büyük harfleri küçük harfe çeviren fonksiyon eklemem gerekecek.

Aşağıdaki kodu modüle kaydet.

Public Function TumuBuyuk(kelime)



Dim kont, harf, I As Integer

Dim eharf As String

 

 kont = Len(kelime)

   If kont <> 0 Then

       harf = Mid(kelime, 1, 1)

       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

       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

                  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

Veri girerken büyük olmasını istediğin metin kutusunun güncelleştirme sonrasında olayına (metin kutusu Metin0 olarak farzedersek)

Me.Metin0 = TumuBuyuk([Metin0])

teşekkürler