Büyük Harf

[İsmail Küçükşengün]

Merhaba;

Formdan kayıt yaptığımız metin kutusuna ne şekilde yazarsak yazalım, BÜYÜK HARF OLARAK yazılması nasıl sağlanır?

Teşekkürler.

 

[Recep İpek]

Kayıt edilecek tablonun ilgili alanlarının Format bölümüne > işareti koyunuz.

 

[beab05]

> bunu hiç denememiştim,formlarda biçim bölümüne koyduğumuzda harfler büyüyor ama tabloya gerçekte nasıl yazdıysak öyle kaydediyor... Bu yüzden;

StrConv([alan adı], 1)

yazmanız da alternatif olabilir..

 

[Recep İpek]

> formlarda biçim bölümüne koyduğumuzda harfler büyüyor ama tabloya gerçekte nasıl yazdıysak öyle kaydediyor..

Formlarda değil de Tablolarda Format(Biçim) bölümüne yazarsanız tabloya büyük harf yazıyor..

 

[beab05]

Evet hocam oluyor, nereye yazarsanız orayı büyük yapıyor.. Ben yine bi gıcıklık yapayım, üstüne tıklayınca yazım haline dönüyor :mrgreen:

 

[İsmail Küçükşengün]

Sayın ripek ilginize teşekkürler. Fakat Formlardan giriş yapıldığında, tabloya büyük harf olarak kaydediyor. Ama forma veriyi çağırdığımızda, yine küçük harf gösteriyor.

Sayın beab05 önerdiğiniz deyimi nereye yazmam gerekiyor.

Aslında benim istediğim, excelde olduğu gibi, metin kutusuna küçük harf veya karışık şekilde bile yazsak;

Yazdığımız metin kutusundan çıktığımızda, kendiliğinden BÜYÜK HARFE ÇEVİRMESİ ve tabloya da o şekilde aktarması.

 

[beab05]

İlgili alanın güncelleştirme sonrası koduna yazabilirsiniz..


Private Sub alan_ismi_AfterUpdate()
alan_ismi = StrConv([alan ismi], 1)
End Sub

gibi.....

not: 1 gördüğünüz yere 2 yazarsanız hepsi küçük, 3 yazarsanız sadece baş harfler büyük olur..

 

[İsmail Küçükşengün]

Sayın beab05

Çok teşekkür ediyorum.

İstediğim buydu.

Selamlarımla.

 

[gitarisyen]

Ben de, Access formlarında küçük harfleri büyük harfe çevirme aracı olarak sadece ">" karakterini biliyordum. Ancak bu yukarıda da değinildiği gibi tablolara yansımıyor; formun metin kutusuna büyük harf yazıyor, ama tabloya yine küçük harf olarak kaydediyordu. Ben de CAPS LOCK tuşuna sığınarak bu karakteri kullanmayı bırakmıştım. Sayın beab05' in önerdiği yöntemi biraz önce birkaç defa denedim. Tam benim istediğim gibi. Artık bu kodu sık sık kullanacağım... Bu konuda emeği geçen herkese teşekkürler...

 

[modalı]

Arkadaşlar çabuk sevindiniz ama i ve ı harflerinde problem yaşayacaksınız. Siz en iyisi aşağıdaki fonksiyonu kullanın bu iş için.

Public Function BuyukHarfYap(ByVal metin1 As String) As String
Dim sayac, sonuc, boy As Integer
Dim metin2, basmetin, bitmetin As String
boy = Len(Trim(metin1))
metin2 = UCase(Trim(metin1))
For sayac = 1 To boy
  sonuc = InStr(sayac, metin1, "i")
  If sonuc > 0 Then
    basmetin = Left(metin2, sonuc - 1)
    bitmetin = Right(metin2, boy - sonuc)
    metin2 = basmetin & "İ" & bitmetin
  End If
Next
For sayac = 1 To boy
  sonuc = InStr(sayac, metin1, "ı")
  If sonuc > 0 Then
    basmetin = Left(metin2, sonuc - 1)
    bitmetin = Right(metin2, boy - sonuc)
    metin2 = basmetin & "I" & bitmetin
  End If
Next
BuyukHarfYap = metin2
End Function

İyi çalışmalar

 

[İsmail Küçükşengün]

Sayın Modalı;

Sayın üstadım. Erken uyarınız için çok teşekkürler.

1-)Yukarıdaki kodu nereye yazacağız?

2-) Ü, ç , ğ gibi harfler için de ne yapacağız.
Bu sorunu kökten çözen bir kod var mıdır?

Selamlarımla.
İyi akşamlar dilerim.

 

[modalı]

Sayın kucuksengun,

Diğer Türkçe karakterlerde problem yaşanmıyor. Sıkıntı i ve ı da. Gördüğünüz gibi yazdığım bir fonksiyon ister bir modüle yazın ister formun kod sayfasına.

Alanİsmi=BuyukHarfYap(Alanİsmi) olarak kullanabilirsiniz.


İyi çalışmalar

 

[hegu42]

Sayın modalı,
Alanİsmi=BuyukHarfYap(Alanİsmi)
bunu büyük harf yapmak istediğimizin denetim kaynağı kısmına mı yazacağız
çok teşekkür ederim.

 

[hegu42]

arkadaşlar
tamam hallettim
kod kısmına yazacakmışım
Peki baş harfi büyük diğerleri küçük yapmak için ne yapmamız lazım. (İki isimlilerede uygun olsun)
teşekkür ederim.

 

[hozzeybek]

teşekkürler sayın modalı süper.

 

[yeni54]

Arkadaşlar çabuk sevindiniz ama i ve ı harflerinde problem yaşayacaksınız. Siz en iyisi aşağıdaki fonksiyonu kullanın bu iş için.

Public Function BuyukHarfYap(ByVal metin1 As String) As String
Dim sayac, sonuc, boy As Integer
Dim metin2, basmetin, bitmetin As String
boy = Len(Trim(metin1))
metin2 = UCase(Trim(metin1))
For sayac = 1 To boy
  sonuc = InStr(sayac, metin1, "i")
  If sonuc > 0 Then
    basmetin = Left(metin2, sonuc - 1)
    bitmetin = Right(metin2, boy - sonuc)
    metin2 = basmetin & "İ" & bitmetin
  End If
Next
For sayac = 1 To boy
  sonuc = InStr(sayac, metin1, "ı")
  If sonuc > 0 Then
    basmetin = Left(metin2, sonuc - 1)
    bitmetin = Right(metin2, boy - sonuc)
    metin2 = basmetin & "I" & bitmetin
  End If
Next
BuyukHarfYap = metin2
End Function

İyi çalışmalar

Sayın modalı, fonksiyonda bir kaçak var.

büyük I harfini İ harfine çeviriyor.

 

[İsmail Küçükşengün]

Sayın Modalı

Ben verdiğiniz kodu modüle yazıp, alan isminin güncelleştirme sonrasına:
" Call Buyuk HarfYap" yazdığımda olmamıştı.

Bu kez Alanİsmi=BuyukHarfYap(Alanİsmi) yazdığımda oldu.

Çok da güzel oldu.

Çok teşekkür ediyorum.

Allah sizi başımızdan (forumumuzdan) eksik etmesin.

Saygılarımla.

 

[hegu42]

sayın yeni54,
senin verdiğin modülde aynısını yapıyor
birde baş harfi büyük diğer harfler küçük yapan modül rica ediyorum (İki isimliye uygun)
teşekkür ederim

 

[yeni54]

...senin verdiğin modülde aynısını yapıyor
...

Ne gönderdim ki?

 

[hegu42]

pardon
alttaki modülü sen yazdın sandım
kusura bakma