Skip to main content

AccessTr.neT


Veri Girişini Büyük Harf Yapma

Veri Girişini Büyük Harf Yapma

Çözüldü #1
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 ?
Cevapla
Çözüldü #2
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.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #3
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 ?
Cevapla
Çözüldü #4
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.

Visual Basic Code
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)

Visual Basic Code
Me.Metin0 = TumuBuyuk([Metin0])
"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. 
Cevapla
Çözüldü #5
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