Merhaba arkadaşlar Formda verilerimi topluyorum denetim kaynağına işlemi yazarak ancak,
Vba da bu işlemi nasıl yapabilirim ? Bir iki adet kod buldum yabancı sitVal(elerde ancak çalışmadı. misal A1 ile B1 Toplayacaksak
=Val(A1.text)+Val(B1.text) boyle bir formul bulmuştum ancak çalışmadı. Genel olarak nasıl yapılacak yardımcı olabilir misiniz ?
İyi Çalışmalar
Toplam alanını göstermek istediğiniz metin kutusunun adı ToplamSonuc olsun:
Dim s1, s2 As Double
s1 = A1
s2 = B1
Metin5 = s1 + s2
şeklinde yapabilirsiniz. Bu kodları bir buton ekleyip o butonun tıklanma olayına yazabilirsiniz.
teşekkürler hocam cevap için. bende bu şekilde yaptım(Site kapalıydı baktığımda nette dolaşırken rastladım bunada)
Private Sub UrunAlisFiyati_AfterUpdate()
Toplam1= Nz(Ucret) * Nz(adet)
End Sub
Şuan için problemsiz çalışıyor
) Bi fark olur mu ikisi arasında ?
İyi Çalışmalar
Pek çok yöntem var ihtiyaca binaen herhangi birisi kullanılabilir. Sizin kullandığınız
NZ fonksiyonunu tam olarak kullanılmamış diyebiliriz.
Nz( alan_adı, alanda_deger_olmayınca_olacak_deger )
şeklinde kullanılır. Genellikle bir alanda değer olmayınca yapılan işlemler sırasında programda hata olur. Bu tip durumlarda varsayılan değer atamaya yarar.
Arada farklar var ve şu şekilde test edebilirsiniz:
İlk önce sizin yazdığınız şekilde metin kutularına rakam yerine harf yazın programda hata alacaksınız. Diyelim ki ücret kısmına A yazdınız adet kısmına B yazdınız Type Mismatch hatası alırsınız. Benim yazdığım şekilde uygulayacak olursanız hata almazsınız ancak AB şeklinde bir sonuc görürsünüz.
CInt,CDbl vb. fonksiyonlar ile sayıya çevirme işlemleri yapılabilir ancak genel manada kullanılması en doğru olan yöntem benim yazdığım şekilde değişkenleri tanımlayıp türlerini önceden deklare etmekten geçer. Böylelikle program derlenirken ve çalışırken variant değişken türü olarak değilde hangi değişken türü olarak tanımladı iseniz ona göre hafızada yer ayırır.
Hocam sizin dediğiniz şekilde yaptım
Gayette güzel çalışıyor. Teşekkür ederim hocam
)