Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
09/05/2013 21:43
Konu Sahibi
5800xpmm
Yorumlar
4
Okunma
2653
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.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
30/09/2017,01:57
Çözüldü 
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.870
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,10:24
Çözüldü 
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
Çözüldü Takvimde İlk Günü Pazartesi Yapma metin02 4 48 Dün, 22:40 metin02
Çözüldü Sql Serverdan Sorgu İle Yerel Veri Tabanına Veri Yazdırma ertans 1 157 24/08/2017, 11:22 burhanb
Çözüldü Tabloya Yeni Veri Girişini Engelleme ALTANs 2 185 17/08/2017, 13:13 ALTANs
Çözüldü Büyük Harf ufukcem 7 438 22/06/2017, 09:17 ufukcem
Çözüldü En Büyük Sözleşme Tarihi Üzerinden Hesaplama ALTANs 2 287 28/04/2017, 17:37 ALTANs

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.