Skip to main content

AccessTr.neT M.

Listbox Büyük Yazı

Konu

Çözüldü #1
Merhabalar,

Kayıt formunda  format bolumune ">" koyarak , yazılanları büyük yazıya otomatik ceviriyorum.
fakat listboxda aynı bilgiler küçük harf olarak gözüküyor, nasıl orada da büyük harf olarak gösterebiliriz?

.rar DENEME-A.rar (Dosya Boyutu: 61,69 KB | İndirme Sayısı: 1)
Cevapla
#2
Merhaba, Kutuphane isimli modüle aşağıdaki kodu ekle,

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


MODÜLÜ KAYDET

Liste kutusunun satır kaynağındaki sorguda,


SQL Code
FirmaUnvan

alanını


SQL Code
Firma_Unvan: TumuBuyuk([FirmaUnvan])



kodu ile değiştir. Tümü büyük harf olması istenilen tüm alanlara TumuBuyuk(....) işlemini uygula

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
...........
#3
(23/05/2018 15:08)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba, Kutuphane isimli modüle aşağıdaki kodu ekle,

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


MODÜLÜ KAYDET

Liste kutusunun satır kaynağındaki sorguda,


SQL Code
FirmaUnvan

alanını


SQL Code
Firma_Unvan: TumuBuyuk([FirmaUnvan])



kodu ile değiştir. Tümü büyük harf olması istenilen tüm alanlara TumuBuyuk(....) işlemini uygula

teşekkürler, modulu yapıstırdım, ama Sql kodu nereye gireceğimi bulamadım. criteria bolumune mi?

Cevapla
#4
(23/05/2018 15:18)sidd Adlı Kullanıcıdan Alıntı:
(23/05/2018 15:08)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba, Kutuphane isimli modüle aşağıdaki kodu ekle,

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


MODÜLÜ KAYDET

Liste kutusunun satır kaynağındaki sorguda,


SQL Code
FirmaUnvan

alanını


SQL Code
Firma_Unvan: TumuBuyuk([FirmaUnvan])



kodu ile değiştir. Tümü büyük harf olması istenilen tüm alanlara TumuBuyuk(....) işlemini uygula

teşekkürler, modulu yapıstırdım, ama Sql kodu nereye gireceğimi bulamadım. criteria bolumune mi?

tamamdır, girişi yaptım ama adres bolumu için aşağıdaki hatayı verdi, sanırım hiçbir data yok diye, nasıl sorunu çözebiliriz.
Circular reference caused by alias

Cevapla
...........
#5
Data olup olmaması ile ilgisi yok. Adres alanını


SQL Code
Adres: TumuBuyuk([Adres])


şeklinde yazmış olabilirsiniz. alan ile tanımlamanın isimleri aynı olamaz. FirmaUnvan alanını nasıl değiştirdiğime dikkat edin, tanım ile alan ismi aynı mı?

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#6
(23/05/2018 16:33)ozanakkaya Adlı Kullanıcıdan Alıntı: Data olup olmaması ile ilgisi yok. Adres alanını


SQL Code
Adres: TumuBuyuk([Adres])


şeklinde yazmış olabilirsiniz. alan ile tanımlamanın isimleri aynı olamaz. FirmaUnvan alanını nasıl değiştirdiğime dikkat edin, tanım ile alan ismi aynı mı?


Teşekkürler Ozan Bey kesinlikle haklısınız, dediğiniz gibi ikisini de Adres yazmısım.
cozuldu.

Cevapla
...........

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da