Listbox Büyük Yazı - Baskı Önizleme

Listbox Büyük Yazı - Baskı Önizleme

+- 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ığı: Listbox Büyük Yazı (/konu-listbox-buyuk-yazi.html)

Listbox Büyük Yazı - sidd - 23/05/2018

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?

Cvp: Listbox Büyük Yazı - ozanakkaya - 23/05/2018

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

Cvp: Listbox Büyük Yazı - sidd - 23/05/2018

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

Cvp: Listbox Büyük Yazı - sidd - 23/05/2018

(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

Cvp: Listbox Büyük Yazı - ozanakkaya - 23/05/2018

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

Cvp: Listbox Büyük Yazı - sidd - 23/05/2018

(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.