Listbox Büyük Yazı

23/05/2018, 15:01

sidd

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

ozanakkaya

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

sidd

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

sidd

(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
23/05/2018, 16:33

ozanakkaya

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ı?
23/05/2018, 16:49

sidd

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