ACCESS ~ SQL
Büyük Harf Yapmak. - Yazdırılabilir Sürüm

+- ACCESS ~ SQL (http://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (/Forum-ACCESS-SORULARI)
+--- Konu: Büyük Harf Yapmak. (/Konu-Buyuk-Harf-Yapmak)

1 2 3


Büyük Harf Yapmak. - İsmail Küçükşengün - 10-09-2008 09:56

Merhaba.

Formda bulunan bir metin kutusuna ne şekilde yazılırsa yazılsın, tamamını büyük harfe çevirmek için güncelleştirme sonrasında:
Kod:
Private Sub txtAdiSoyadi_AfterUpdate()
AdiSoyadi = BuyukHarfYap(AdiSoyadi)
End Sub

şeklinde kod var.

Buınunla yazılanların tümü büyük harfe çevriliyor.

Sorun:

I harflerini İ olarak çeviriyor.
Bu hususu nasıl düzeltebilirim.?

Selamlarımla.


RE: Büyük Harf Yapmak. - Taruz - 10-09-2008 10:58

Merhaba İsmail Bey..

O kod bir modülde tutulan bir fonksiyonu tetikliyor.. Bence tüm o modülü ve kodu silin.. Wink


AdiSoyadi metin kutusunun Biçim Özelliğine > büyük işaretini koymanız istediğinizi yapmaya yeterli..

Selamlar..


RE: Büyük Harf Yapmak. - İsmail Küçükşengün - 10-09-2008 11:18

Sayın Taruz;

Merhaba.merhaba

Yani bu kadar kolay ve kesin çözüm?

Dediğim gibi doçentlikten çıkıp, prof. luğa yükselmişsiniz.Wink


Selamlar.


RE: Büyük Harf Yapmak. - mehmetdemiral - 14-09-2008 12:13

Sayın Taruz,
Yanlış hatırlamıyorsam Türkçe karakterleri doğru olarak çevirmesi için o modül ile ilgili bir çalışmanız vardı. Sadece > ile yapılan çevirme işleminde bildiğiniz gibi i harfi sorunu var. Aslında sayın Küçükşengün'ün olmasını istediği şey sanırım normal olanın dışında birşey. Yani modül doğrusunu yapmak için yazılmış. Böylece küçük i büyük İ 'ye küçük ı da büyük I'ya çevrilmiş oluyor. Yanlış mı biliyorum? Sizin bu konuyla ilgili modül örneğinizin adresini buraya ekler misiniz?


RE: Büyük Harf Yapmak. - Taruz - 14-09-2008 15:04

Merhaba..

> ile yapılan çevirmelerde hiç bir sorun yok.. Yani i harfini İ ye ı I ya düzgün bir şekilde çevirir..

Bu yöntem raporlarda da kullanılabilir.. Formda yada raporda bu yöntemi kullanmanın problem olabilecek tek yanı tabloda harflerin küçük olarak kalması..

İsmail Bey'in kullandığı sanırım aşağıdaki modüle benzer bir kod..

Bunda da problem yok..
Kod:
Option Compare Database
Option Explicit

Public Function BH(ByVal b As String) As String
On Error GoTo trz

Dim sy, sn, boy As Integer
Dim a, mb, mt As String
boy = Len(Trim(b))
a = UCase(Trim(b))
For sy = 1 To boy
  sn = InStr(sy, b, "i")
  If sn > 0 Then
    mb = Left(a, sn - 1)
    mt = Right(a, boy - sn)
    a = mb & "İ" & mt
  End If

Next
For sy = 1 To boy
  sn = InStr(sy, b, "ı")
  If sn > 0 Then
    mb = Left(a, sn - 1)
    mt = Right(a, boy - sn)
   a = mb & "I" & mt
  End If
Next

BH = a
trz:

End Function

Bu fonksiyon, harfleri, sözde değil özde büyütüyor.. Smile


RE: Büyük Harf Yapmak. - İsmail Küçükşengün - 14-09-2008 22:03

Tabloda da ilgili alanının biçimini > olarak belirlersek, mesele kalmıyor. (Kısa yol)