2 tane metin kutusu içindeki sayıların toplamını yazdı

[By_Screen]

form üzerinde 3 tane metin kutusu oluşturdum. 2 tane metin kutusunun içine rakamlar yazdım 3. metin kutusunada bu iki metin kutusunun içindeki rakamları toplattırmak istiyorum. :kafa:

 

[isakarakus]

http://www.excel.web.tr/viewtopic.php?t=5278&sid=7d99d7f55e5bbd50652a4bed55fe096d
bu örnekte çarpılıyor,
* yerine + yazarsanız toplar..
ayrıca Kond yazmaya başlıyorum dersinde de yararlı bilgiler mevcut.

 

[isakarakus]

özür dilerim,
makro sorusu zanettim.

 

[red_lion_72]

selam,

Metin kutusunun varsayılan değeri kısmına =-(-[metin0]-[metin2]) yazarsanız oluyor. Toplamayı vermiyor gerçekten ama çıkarma ve çarpmayı veriyor ilginç. Ben Access'ten fazla anlamam ama denedim böyle oldu

Kolay gelsin.

 

[By_Screen]

Selam,

Metin kutusunun varsayılan değeri kısmına yazdığımda o işlemi bir kere yapıyor fakat daha sonra işlemi tekrarladığımda aynı işlemi gerçekleştirmiyor. Çünkü ilk değeri varsayılan olarak alıyor ve işlemi bir kereye mahsus olarak gerçekleştiriyor.

Henüz soruma tam ve doğru olarak cevap bulamadım. Yardımcı olacak arkadaşların bana msn yoluyla yada forum yoluyla ulaşmalarını rica ediyorum.

Recep ÇETİN
recep_cetin@hotmail.com

 

[Ongun]

Selam;
sitede gezerken bir arkadaşımısın yaptığı çalışmayı olduğu gibi yazıyorum belki işinize yarayabilir. bir deneyin Not: 3.metin kutusunun kod kısmına aşağıdaki kodu yazarak deneyin umarım işinize yarar.
Kolay Gelsin.
Private Sub TextBox12_Change()
On Error Resume Next
a = Round(TextBox9, 2)
a = WorksheetFunction.Substitute(a, ",", ".")
b = Round(TextBox10, 2)
b = WorksheetFunction.Substitute(b, ",", ".")
c = Round(TextBox11, 2)
c = WorksheetFunction.Substitute(c, ",", ".")
d = Round(TextBox19, 2)
d = WorksheetFunction.Substitute(d, ",", ".")
z = Val(a) + Val(b) + Val(c) + Val(d)
z = WorksheetFunction.Substitute(z, ".", ",")
TextBox12 = z
End Sub

 

[By_Screen]

Selam

Ongun arkadaşım ben Excel'de değil Access'le ilgili bir soru sormuştum. Excel'de dediğin kodları yazarak bu işi çözebilirim ama bana Access işlemleri lazım. Ama yinede ilgin için çok sağol.

Yardımcı olabilecek arkadaşlar bana forum yada msn (recep_cetin@hotmail.com) yoluyla ulaşabilirler. Teşekkürler

Recep ÇETİN

 

[jale]

Günaydın :hey:

Table1:

ID------------------ Autonumber
x------------------- Number
y------------------- Number
Toplam------------ Number

Table1 den wizard ile bir Form oluşturun.

y textboxının AfterUpdate’ne aşağıdaki codu yazın.

Me.Toplam = Me.x + Me.y

 

[karaayhan]

diyelimki aşağıdaki metin kutuları elimizde mevcut;
'Metin1, Metin2, Metin3

Metin1+Metin2 'yi Metin3 e yazdırmak istiyorsunuz..(varsayılan olarak)

Kod Kısmına;

Me.Metin3.Value=Me.Metin1+Me.Metin2 'yazarsan [Metin3] kutusuna Metin1 ile Metin2 'nin toplamı varsayılan olarak yazılacaktır.

Bu kodu Metin2'den çıkıldığında olay yordamına yazabilirsin.. :keyif:

bir dene görüşelim... :icelim: