Virgüllü sayıların tanınmaması

[millis]

Selam Üstadlar ve arkadaşlar. Örnek çalışmamda da görüleceği gibi, mal alımları ekranında alınan ürünün cinsi seçildiğinde birim fiyatı kısmı aktarılıyor, alınan miktar girildiğinde alınan miktar ve birim fiyatı çarpımı toplam tutara aktarılıyor. Sorun şurda; Örnekliyecek olursak, Alınan ürün cinsini SİLGİ olarak seçtiğimizde Birim fiyatı kısmına tanımlanmış olan 2,30 gelmesi ve alınan miktar örnek olarak 10 birim girildiğinde toplam tutar kısmına 23,00 yazması gerekirken 230,00 rakkamı gelmektedir. anlaşıldığı gibi tanımlanmış olan SİLGİ nin birim fiyatını 2,30 olarak gözükmesine rağmen 23,00 olarak görüp işlem yapmakta. Bu konu hakkında yardımlarınızı bekliyorum. İlgilenen tüm Üstadlara ve arkadaşlara şimdiden saygılarımı ve teşekkürlerimi sunuyorum. Dosya ektedir.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[millis]

Teşekkür

Ekli dosyayı inceleyiniz.

Sayın üstad; size gerçekten çok teşekkür ederim. Saygılarımı sunuyorum. İyi çalışmalar.

 

[Orion1]

Sayın üstad; size gerçekten çok teşekkür ederim. Saygılarımı sunuyorum. İyi çalışmalar.

Rica ederim.
Saygılar benden.

 

[millis]

Rahatsız etmez isem bir sorum daha olacak

Rica ederim.
Saygılar benden.

Sayın üstad; aynı dosya içerisinde tarih girilen TextBox lar var. Bu kısımlara tarih girerken hatalı yada eksik girildiğinde bir uyarı vermesi gibi bir işlem yapılabilirmi? Örneğin; 15.03.207 diye bir giriş yapılıp yada 32.13.2007 gibi girişden sonra bir sonraki kutuya geçerken bir uyarı ile tarih hatalı gibi bir uyarı verebilme ihtimali varmı?

 

[Orion1]

Sayın üstad; aynı dosya içerisinde tarih girilen TextBox lar var. Bu kısımlara tarih girerken hatalı yada eksik girildiğinde bir uyarı vermesi gibi bir işlem yapılabilirmi? Örneğin; 15.03.207 diye bir giriş yapılıp yada 32.13.2007 gibi girişden sonra bir sonraki kutuya geçerken bir uyarı ile tarih hatalı gibi bir uyarı verebilme ihtimali varmı?

Aşağıdaki kodu kendi kodlarınıza uyarlayınız.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1.Value) Then
    MsgBox "Yanlış giriş.Geçerli bir tarih giriniz.", vbCritical
    Cancel = True
End If
End Sub