Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Listbox Büyük Yazı

sidd
sidd
Access Cevaplanmış Soruları
5
2162

Listbox Büyük Yazı

Çözüldü #1
sidd
Aktif Üye
sidd
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 53
Konum: -
Ofis Versiyonu: -
Son Oturumu: 14/10/2018,09:23
Yorumları: 61
Konuları: 14
Kayıt Tarihi: 14/05/2018
Teşekkür Puanı: 0
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ı: 3)
Cevapla
#2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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
Cevapla
#3
sidd
Aktif Üye
sidd
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 53
Konum: -
Ofis Versiyonu: -
Son Oturumu: 14/10/2018,09:23
Yorumları: 61
Konuları: 14
Kayıt Tarihi: 14/05/2018
Teşekkür Puanı: 0
(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?
Cevapla
#4
sidd
Aktif Üye
sidd
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 53
Konum: -
Ofis Versiyonu: -
Son Oturumu: 14/10/2018,09:23
Yorumları: 61
Konuları: 14
Kayıt Tarihi: 14/05/2018
Teşekkür Puanı: 0
(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
Cevapla
#5
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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ı?
Cevapla
#6
sidd
Aktif Üye
sidd
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 53
Konum: -
Ofis Versiyonu: -
Son Oturumu: 14/10/2018,09:23
Yorumları: 61
Konuları: 14
Kayıt Tarihi: 14/05/2018
Teşekkür Puanı: 0
(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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task