Büyük Harf

[modalı]

Küçük harf yapma fonksiyonu:

Public Function KucukHarfYap(ByVal metin1 As String) As String 
Dim sayac, sonuc, boy As Integer 
Dim metin2, basmetin, bitmetin As String 
boy = Len(Trim(metin1)) 
metin2 = LCase(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 
KucukHarfYap = metin2 
End Function

İyi çalışmalar:hey:

 

[modalı]

Birde ilk harfler büyük gibi bir istek var. Onunla ilgili yazın başka bir uygulama geliştirmiştim.

Bu gibi değişimler Word belgelerinde daha kolay olduğundan, tüm özellikleri sağ klik menüsüne ekledim. Ondan sonra bilgiler arka planda açılan word belgesine yollanıyorlar orada istenen değişiklikler yapılıyor ve tekrar ilgili alana yazılıyor. Gariptir access de Türkçe karakterlerde düzgün çalışmayan fonksiyonlar, word dökümanlarında düzgün çalışıyorlar.

İyi çalışmalar:hihoho:

12 Nisan 2008 silinmiş uygulama tekrar yüklendi.

 

[karaayhan]

zaman oldu sayın hocamın(modalı) eklediği "sağ klikle karakter türü değiştir." lazım oldu ama ne mümkün malüm sebeplerden dolayı yok dosya rica etsem elinde olan varsa ekleyebilir mi?

teşekkürler kolay gelsin

 

[modalı]

Sayın karaayhan,

Uygulama tekrar yüklendi.

İyi çalışmalar

 

[assenucler]

Sayın Modalı;

Bu güzel paylaşım için teşekkürler.

İyi hafta sonları...

 

[altuntas78]

Daha önce benimde böyle bir şeye ihtiyacım olmuştu.

Şöyle bir alternatif geliştirmiştim.

Private Sub SOYADI_KeyPress(KeyAscii As Integer)
If KeyAscii = 246 Then '(ö) ise
KeyAscii = 214 '(Ö) yap
ElseIf KeyAscii = 231 Then '(ç) ise
KeyAscii = 199 '(Ç) yap
ElseIf KeyAscii = 351 Then '(ş) ise
KeyAscii = 350 '(Ş) yap
ElseIf KeyAscii = 105 Then '(i) ise
KeyAscii = 304 '(İ) yap
ElseIf KeyAscii = 252 Then '(ü) ise
KeyAscii = 220 '(Ü) yap
ElseIf KeyAscii = 287 Then '(ğ) ise
KeyAscii = 286 '(Ğ) yap

ElseIf KeyAscii = 305 Then '(ı) ise
KeyAscii = 73 '(I) yap

ElseIf KeyAscii > 96 And KeyAscii < 123 Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End If
End Sub

 

[tamer42]

Birde ilk harfler büyük gibi bir istek var. Onunla ilgili yazın başka bir uygulama geliştirmiştim.

Bu gibi değişimler Word belgelerinde daha kolay olduğundan, tüm özellikleri sağ klik menüsüne ekledim. Ondan sonra bilgiler arka planda açılan word belgesine yollanıyorlar orada istenen değişiklikler yapılıyor ve tekrar ilgili alana yazılıyor. Gariptir access de Türkçe karakterlerde düzgün çalışmayan fonksiyonlar, word dökümanlarında düzgün çalışıyorlar.

İyi çalışmalar:hihoho:

12 Nisan 2008 silinmiş uygulama tekrar yüklendi.

Sn Modalı burada Sağ_Click yaptığımızda çıkan menüyü yapamadım,

Yardımcı olurmusunuz?

iyi çalışmalar.

 

[arifdurgut]

Gerçekten yardım edecek kimse varmı burada

Arkadaşlar öncelikle şu kodları nereye yazsam olmuyor bi yerde bi yanlış mı yapıyoruz şunu tane tane anlatacak biri yokmu
ben şunu yapmak istiyorum
bir excel de bir hücreye (doğru) yazmak daha sonra o hücreye mausla tıklatınca yanlış yazsın istiyorum bu mümkünmü yardım edecek biri varmı

 

[Mahir64]

Arkadaşlar öncelikle şu kodları nereye yazsam olmuyor bi yerde bi yanlış mı yapıyoruz şunu tane tane anlatacak biri yokmu
ben şunu yapmak istiyorum
bir excel de bir hücreye (doğru) yazmak daha sonra o hücreye mausla tıklatınca yanlış yazsın istiyorum bu mümkünmü yardım edecek biri varmı

Merhaba
Düzentme: Excel sorusu diye ek eklemiştim sildim.