+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri Girişini Büyük Harf Yapma (/konu-veri-girisini-buyuk-harf-yapma.html)
Veri Girişini Büyük Harf Yapma - 5800xpmm - 09/05/2013
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 ?
Cvp: VERİ GİRİŞİNİ BÜYÜK HARF YAPMA - mehmetdemiral - 09/05/2013
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.
Cvp: VERİ GİRİŞİNİ BÜYÜK HARF YAPMA - 5800xpmm - 09/05/2013
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 ?
Cvp: VERİ GİRİŞİNİ BÜYÜK HARF YAPMA - ozanakkaya - 09/05/2013
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])Cvp: VERİ GİRİŞİNİ BÜYÜK HARF YAPMA - 5800xpmm - 10/05/2013
teşekkürler