09/05/2013, 21:43
Veri Girişini Büyük Harf Yapma
09/05/2013, 22:09
mehmetdemiral
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.
09/05/2013, 22:26
5800xpmm
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 ?
09/05/2013, 23:54
ozanakkaya
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.
Veri girerken büyük olmasını istediğin metin kutusunun güncelleştirme sonrasında olayına (metin kutusu Metin0 olarak farzedersek)
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])
10/05/2013, 00:32
5800xpmm
teşekkürler