(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