AccessTr.neT

AccessTr.neT > Microsoft Access > Access Cevaplanmış Soruları > Listbox Büyük Yazı
Tam Versiyon: Listbox Büyük Yazı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.

sidd

23/05/2018, 15:01
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?

ozanakkaya

23/05/2018, 15:08
Merhaba, Kutuphane isimli modüle aşağıdaki kodu ekle,

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,


FirmaUnvan
alanını


Firma_Unvan: TumuBuyuk([FirmaUnvan])


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

sidd

23/05/2018, 15:18
(23/05/2018, 15:08)ozanakkaya yazdı: [ -> ]Merhaba, Kutuphane isimli modüle aşağıdaki kodu ekle,

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,


FirmaUnvan
alanını


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?

sidd

23/05/2018, 15:29
(23/05/2018, 15:18)sidd yazdı: [ -> ]
(23/05/2018, 15:08)ozanakkaya yazdı: [ -> ]Merhaba, Kutuphane isimli modüle aşağıdaki kodu ekle,

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,


FirmaUnvan
alanını


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

ozanakkaya

23/05/2018, 16:33
Data olup olmaması ile ilgisi yok. Adres alanını


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ı?

sidd

23/05/2018, 16:49
(23/05/2018, 16:33)ozanakkaya yazdı: [ -> ]Data olup olmaması ile ilgisi yok. Adres alanını


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.
AccessTr.neT > Microsoft Access > Access Cevaplanmış Soruları > Listbox Büyük Yazı