alt frm toplamda sorun?

[erdem55]

Alt formda aratoplamı alabiliyorum fakat sağ taraftaki dolar kuruyla çarpım bölümünü halledemedim. Form açıldığında hesaplama işlemi yaptırıyorum ama benim istediğim alt forma her bilgi girişimde yada silişimde yada değişiminde bu kısmında aratplamda olduğu gibi güncellenmesi.
mantık şu alt form diyelim bilgi girdim aratoplam değişiyor sol kısım ise döviz birimine bakıp dolarsa dolar kuru ile euro ise euro kuru ile çarpıp soldaki aratoplama yazmasını istiyorum yardımlarınız için şimdiden tşkler

 

[mehmetdemiral]

2007 vers. olduğu için açamıyorum. 2003'e çevirip gönderir misiniz?

 

[erdem55]

buyrun 2003 çevirdim

 

[beab05]

Merhaba;
Altformun güncelleştirme sonrasına alttaki kodu ekleyebilirsiniz..

Select Case Forms![Sipariş Giriş Ekranı]![doviz]
Case "USD"
Forms![Sipariş Giriş Ekranı]!dov_aratop = Forms![Sipariş Giriş Ekranı]!aratop * Forms![Sipariş Giriş Ekranı]!usdkur
Case "Euro"
Forms![Sipariş Giriş Ekranı]!dov_aratop = Forms![Sipariş Giriş Ekranı]!aratop * Forms![Sipariş Giriş Ekranı]!eurokur
Case "YTL"
Forms![Sipariş Giriş Ekranı]!dov_aratop = Forms![Sipariş Giriş Ekranı]!aratop
Case Else
Forms![Sipariş Giriş Ekranı]!dov_aratop = "beab"
End Select

 

[mehmetdemiral]

Sevgili hemşerim,
Öncelikle formun geçerli olduğunda olayına yazdığın

Private Sub Form_Current()
If Me.doviz = USD Then
Me.dov_aratop = aratop * usdkur
Else
Me.dov_aratop = aratop * eurokur
End If
End Sub

komutlarında dolar ve euronun değerleri gelmiyor. Bunu düzeltmek için USD ve EURO'yu tırnak içinde yaz..Ver bence kodları da şöyle değiştir. (Else kullanmışsın ama euro yerine YTL de seçilebilir.)

Private Sub Form_Current()
If Me.doviz = "USD" Then
Me.dov_aratop = aratop * usdkur
end if
If Me.doviz = "EURO" Then
Me.dov_aratop = aratop * eurokur
End If
End Sub

Gelelim asıl soruna.. Sol taraftaki döviz ara toplamı hesaplanmış bir alandan veri aldığı için sanıyorum güncellenmiyor. Ben denemek için bir makro oluşturdum ve yenidensorgula komutunu kullandım. Bu makroyu da bir komut düğmesine bağladım. Buna tıkladığımda alanın güncelleniyor. O zaman requery komutu da kullanılabilir. Bunun için sanırım alt formdaki miktar alanının güncellenmesinden sonra dov_aratop.requery yapmak gerekiyor. Ama bu komutun ana forma yöneltilmesi gerekir. Alt form üzerinden ana formu güncelleyen bir komutla bu şekilde işlem halledilebilir sanırım. Zamanım olmadığı için deneyemedim. Sen bir dene istersen...

 

[mehmetdemiral]

Ben projeni incelerken zaten sevgili beab05 de bunu yapmış. Alt formun güncellemesinden sonra ana forma güncellem kodları göndermiş. Dediğim diğer ufak tefek değişiklikleri de yapınca problemsiz çalışır.

 

[erdem55]

Elinize sağlık akşama eve geçtiğimde hemen deneyeceğim sağolun

 

[erdem55]

arkadaşlar malesef iki yöntemde işe yaramadı başka bi çözümü olan varmı acaba?

 

[mehmetdemiral]

Neden? Ben denedim çalışıyor..

 

[assenucler]

Rica.

Sayın mehmetdemiral;

Sayın beab05 hocamın ve sizin kodlarınızı ilgili yerlere yazdım, özellikle sizin makro ve düğmeyle ilgili yazdıklarınızı bir türlü yapamadım.

Sanırım benim bilgim de bu konuda yetersiz. Acaba dosya üzerine eklemenizi rica etsem, mümkün mü?

İlginiz için teşekkürler.

Selam ve sevgiler.

 

[mehmetdemiral]

Tamam. Gönderiyorum. Beab05'ın çözümünü eklemedim ama ben kendi söylediğimi yaptım. Umarım beab alınmaz)

 

[beab05]

Beab neden alınsın ki ?

Benim verdiğim kodları altformun güncelleştirme sonrasına yazması kafiydi. Sanırım hem sizin dediklerinizi hem benim verdiğim kodları aynı anda uygulamaya kalkıştı ve hata yaptı..

 

[mehmetdemiral]

)) Sanırım öyle oldu.. Şaka olsun diye yazdım zaten.. Senin alınmayacağını zaten biliyorum....

 

[erdem55]

hayır ikinizinkini aynı anda yazmadım beab05 sizin verdiğiniz kodları sizin söylediğiniz gibi alt formun güncelleme sonrasına ekledim fakat çalışmadı çalışmamasının nedeni ise toplamı zaten güncelleme sonrasında topladığından sizin kodlar devreye girdiğinde ara toplam kısmı daha güncellenmemiş oluyor. ikinci satırı eklediğimde ilk satıırın rakamlarını sol taraftaki ara toplam kısmına alıyor. şimdi verilen örneği deneyeceğim ayrıca ilgilendiğiniz için tşk ederim