Veri Girişini Büyük Harf Yapma
Tarih
09/05/2013 21:43
Konu Sahibi
5800xpmm
Yorumlar
4
Okunma
2309
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
5800xpmm
Üye
Kullanici Avatari
Üye
R.... Ö....
12
4
07/03/2013
0
Hatay
Ofis 2010
10/06/2013,17:03
Çözüldü 
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

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.757
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
23/05/2017,21:19
Çözüldü 
Sponsor Reklam
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

5800xpmm
Üye
Kullanici Avatari
Üye
R.... Ö....
12
4
07/03/2013
0
Hatay
Ofis 2010
10/06/2013,17:03
Çözüldü 
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

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.596
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,10:16
Çözüldü 
Sponsor Reklam
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
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])


Cevapla

5800xpmm
Üye
Kullanici Avatari
Üye
R.... Ö....
12
4
07/03/2013
0
Hatay
Ofis 2010
10/06/2013,17:03
Çözüldü 
teşekkürler
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  En Büyük Sözleşme Tarihi Üzerinden Hesaplama ALTANs 2 66 28/04/2017, 17:37 ALTANs
  Sürekli Formda Satırlardaki Onay Kutularını Aktif / Pasif Yapma akif_erdem 10 199 29/03/2017, 18:25 akif_erdem
  Formda Arama Yapma uiakouwr 9 350 20/02/2017, 23:34 ozanakkaya
Exclamation Access Büyük Verilerde Sorgu Hatası aydogdu_115 9 457 05/02/2017, 13:26 atoz112
  Cümlenin ilk harfini büyük yapmak Serkan Keleş 10 335 23/01/2017, 09:02 Serkan Keleş


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status