09/05/2013, 21:43
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 ?
09/05/2013, 21:43
09/05/2013, 22:09
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
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
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
teşekkürler