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.

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

İsmail Küçükşengün · **Kayıt Tarihi:** 11.03.2008

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.

mehmetdemiral · **Kayıt Tarihi:** 30.03.2008

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?

Taruz · 14-09-2008, 15:04

Merhaba..

> ile yapılan çevirmelerde hiç bir sorun yok.. Yani i harfini İ ye ı yı 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

İ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)

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Ana Form Ve Alt Formdaki Checkbox'lı Alanlardaki Verileri Buton Ile Null Yapmak.	M_Kemal_Askeri	4	150	01-05-2026, 16:30 Son Mesaj: M_Kemal_Askeri
	Access Ile Web Den Veri Almak Ve Güncelleme Yapmak.	karamurat42	0	356	08-10-2024, 15:42 Son Mesaj: karamurat42
	[SORGU] En Büyük Tarihteki Birim Fiyatını Getirme	bilservisci	3	438	10-09-2024, 06:16 Son Mesaj: dsezgin
	Harf Haricindeki Karakterleri Kelimeden Nasıl çıkartılır?	sevincili	12	1.007	09-07-2023, 14:01 Son Mesaj: halily
	Toplu .csv, .xlsx, .xls, .xml Dosya Aktarımı Yapmak	adnnfrm	2	593	22-06-2023, 19:04 Son Mesaj: dsezgin
	[SORGU] Acceste Kelimeyi Harf Harf Ayirma	ŞabanTR	5	536	16-04-2023, 14:23 Son Mesaj: halily
	[SORGU] Büyük Tarihli Kayıtlar Hk.	meceka	6	615	15-12-2022, 08:47 Son Mesaj: meceka
	Uzun ürün Isimlerinde Arama Yapmak	ankaram	4	602	13-12-2022, 11:29 Son Mesaj: ankaram

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL