Farklı veri giriş

[meraklı biri]

Değerli Arkadaşlar
Bir alana ,İlk üç rakamı örneğin 111 ile başlayan bir veri girildiğinde 2.alana bunu yazı ile yüzonbir yazsın.Ekteki dosyaya formülü girmeniz dileğimle saygılar

 

[beab05]

Merhaba;
Sizin yukarıdaki örneğinize göre formunuza yeni bir metin kutusu yapın ve denetim kaynağına;

=IIf(Left([iLK ÜÇ RAKAMI 111  İLE BAŞLAYAN];3)="111";"yüzonbir";" ")

Yazınız....

 

[meraklı biri]

sn beab05 Çoooook teşekkür ederim ilginize ,unutmuşum bu arada aynı formüle 222 yazdığında ikiyüzyirmiiki yazması için nasıl formüle edecem..Bu isteğimide belirtirseniz memnun kalırım. Sevgi ve saygılar

 

[beab05]

Merhaba;

İçiçe "iif" lerle de olur ama biz daha kullanışlısını yapalım.. Rakamların yazdığı metin kutusunun güncelleştirme sonrasına alttaki kodu yazınız.. Yine yukarıdaki örneğinize göre;

Select Case Left(Me.iLK_ÜÇ_RAKAMI_111__İLE_BAŞLAYAN, 3)
Case Is = "111"
Me.[metin kutumuz] = "yüzonbir"
Case Is = "222"
Me.[metin kutumuz] = "ikiyüzyirmiiki"
Case Is = "999"
Me.[metin kutumuz] = "Dokuzyüzdoksandokuz"
Case Else
Me.[metin kutumuz] = ""
End Select

"metin kutumuz" isimli alan yazıyla görmek istediğiniz alanın ismidir. Bu şekilde birçok "case" ekleyerek istediğiniz gibi düzenleyebilirsiniz..

 

[gulsum1]

cevap

örnek ekte

 

[meraklı biri]

sn beab05
Herhalde ben uygulayamadım galiba.Size zahmet dosyanın içerisine yerleştirirseniz çok memnun kalırım.Bu formül uygulandığında benim isteğim yerine gelmiş olacak.Saygılarımla.

 

[beab05]

Öncelikle istediğiniz sadece 2-3 rakamın çevrilmesiye mi ilgili yani sadece "111" ve "222" gibi. Ben böyle anlamıştım. Eğer böyle değilse 5 mesajdaki sayun gülsüm'ün örneğini kullanınız..

 

[meraklı biri]

sn gulsum1
Ben herhalde isteğimi tam olarak ifade edemedim.benim istediğim bu değildi.Her rakamı çevirmek değil.Belki aynı yola çıkıyor ama.İsterseniz Soruyu şöyle biraz açayım ve soruyu şöyle değiştireyim.Veriye girilen Rakamlar 5 hane veya daha fazla olduğunu varsayalım.Girilen rakamsal verinin İlk 3 rakamları 111 olduğunda birinciler,222 olduğunda ikinciler .333 yazıldığındada üçüncüler yazsın.Fazlada bunu çoğaltmak istemiyorum.Şimdi isteğimi tam olarak belirtmiş oldum.İlginize çok teşekkür ediyorum.Saygılarımla

 

[meraklı biri]

Sn beab05 isteğimi siz tam anlamışsınız. Bir zahmet siz formülü yazıverirseniz bu iş bitmiş ola saygılarımla.

 

[beab05]

Merhaba;
"Form1" i inceleyiniz.. Yine aynı "select case" kodlarıyla..

 

[meraklı biri]

Sn beab05
Size ve diğer arkadaşlarıma çok teşekkür ediyorum.İsteğim gerçekleşti.Sorularımıza böyle uygulamalı olarak cevap verdiğiniz için sizlere minnettarım.Saygılarımla.

 

[meraklı biri]

Sn beab05
sizin formül örneğinizi yeni bir dosyaya koydum.Bir türlü beceremedim.Benim eksikliğim nedir anlayamadım.Ekteki dosyayı bir inceleyebilir misiniz.Siziin formül eklenmiş ama çalışmıyor.Saygılarımla

 

[Taruz]

Merhaba..

Çalışmamasının nedeni; kod kümesindeki ilgili alanların formunuzdakilerle örtüşmemesinden kaynaklanıyor..

Misal Me.bb olarak hareket gören denetim formunuzda metin olarak görünüyor.. Bu ve buna benzer farklılıkları denkleştirirseniz sorun ortadan kalkar..

 

[modalı]

Sayın meraklıbiri,

Yazının yazılacağı metin kutusuna metin adını verdiniz. Kodlar da ise bb olarak alınmış.

Private Sub ilk_üç_rakamı_111_ile_başlayan_AfterUpdate()
Select Case Left(Me.ilk_üç_rakamı_111_ile_başlayan, 3)
Case Is = "111"
Me.metin = "yüzonbir"
Case Is = "222"
Me.metin = "ikiyüzyirmiiki"
Case Is = "333"
Me.metin = "üçyüzotuzüç"
Case Else
Me.metin = ""
End Select
End Sub

İyi çalışmalar

 

[meraklı biri]

Sn modalı evet anladım,çok teşekkürler...