kayıtlı bilgiyi çekme ve güncelleme

[kadirdursun]

Arkadaşlar merhaba;
Malzeme kaydı tablosuna malzemeleri kaydediyorum. Bazı malzemelerde hem ytl hem $ fiyatı yada euro ytl fiyatı olabiliyor. Aynı zamanda malzeme ile ilgili birde açıklama kısmı var.

1- A_MALZEME_GIDERLERI tablosuna, MALZEME GİDERLERİ formunu kullanarak kayıt yapmak istiyorum. MALZEME GİDERLERİ formundan malzemeyi seçince kendisi MALZEME_KAYDI tablosundan seçili malzemenin fiyatı yada fiyatlarını (ytl, euor, $) ve açıklama kısmını getirsin. Birde tytl, teuro, tdolar alanları fiyatların miktarla çarpılmış hali. Onları da hesaplasın istiyorum.
2- Malzeme fiyatları sabit kalmadığından yeni fiyatları güncelleyince MALZEME GİDERLERİ tablosundaki eski fiyatlar değişmesin.

Uzun bir süredir uğraşıyorum ama yapmadım.

Private Sub MALZEME_AfterUpdate()
If BDOLAR.Value = "" Then BDOLAR.Value = MALZEME.Column(4) And TDOLAR.Value = MIKTAR.Value * BDOLAR.Value
If BEURO.Value = "" Then BEURO.Value = MALZEME.Column(3) And TEURO.Value = MIKTAR.Value * BEURO.Value
If BYTL.Value = "" Then BYTL.Value = MALZEME.Column(2) And TYTL.Value = MIKTAR.Value * BYTL.Value
End Sub

Formdan okuduklarımla MALZEME GİDERLERİ formundaki malzeme açılan kutusunun afterupdatesine yukarıdaki gibi bir takım kodlar yazmaya çalıştım ama olmadı.

Yardımcı olursanız sevinirim.

 

[gulsum1]

Private Sub MALZEME_AfterUpdate()
BDOLAR.Value = MALZEME.Column(4)
TDOLAR.Value = MIKTAR.Value * BDOLAR.Value
End Sub

bu şekilde devam edecek

kurlarıda merkez bankasından bağlı tablo olrak al

bir düğme ve

Private Sub Komut31_Click()
DoCmd.DeleteObject acTable, "Currency"
Application.ImportXML _
DataSource:="http://www.tcmb.gov.tr/kurlar/200701/26012007.xml", _
ImportOptions:=acStructureAndData


End Sub

26012007 bu tarihi değişken yapacan günlük olarak sen istediğin zaman kuru günceler
eski Currency tablosunu siler ve güncel olanı alır

 

[kadirdursun]

sayın GULSUM1
teşekkür ederim


Private Sub MALZEME_AfterUpdate()

BYTL.Value = MALZEME.Column(2)
TYTL.Value = MIKTAR.Value * BYTL.Value
BDOLAR.Value = MALZEME.Column(3)
TDOLAR.Value = MIKTAR.Value * BDOLAR.Value
BEURO.Value = MALZEME.Column(4)
TEURO.Value = MIKTAR.Value * BEURO.Value

End Sub


yukardaki kodu yazdım fakat yanlız ytl fiyatını alıyor.diğerlerini almadı.
birde güncelleme deyince kur güncellemesi değil ürünlere gelen zamların güncellemesi sonrası eski fiyatlar değişmesin istiyorum

 

[gulsum1]

cevap

be kardeşim sen açılan kutuda stun sayısını 2 yaparsan nasıl gelmesini bekliyorsun

stun sayısını 5 yada altı yap stun genişliklerinide 1cm;1cm;1cm;1cm;1cm görünmesini istemediğin stunun ölçüsünü 0 yap başka bir problemin yok ben sadece onu düzelttim düzeldi

 

[gulsum1]

cevap

sen zaten hep yeni kayıt ekleyceğin için öyle bir problemin yok kur işine gelince sadece sen malzemenin dolar fiatını yazacan yada euro o merkez bankasından aldığı kur ile çarpıp ytl fiatını yazacak

 

[kadirdursun]

burada 3 farklı para birimi var. bazı malzemeler ytl üstünden geliyor.
dolayısıyla malzeme fiyatı değişikliğinide ytl olarak yazmam lazım. dolar ve euoroda belki sıkıntı yok gibi gözüksede ytlde var. onu nasıl hallederim?

 

[kadirdursun]

üstteki mesajları okuyup bana yardımcı olabilecek var mı?

 

[kadirdursun]

arkadaşlar dosya yukrdaki mesajlarda ekli
bana yardımcı olacak kimse yok sanırım.
aslında kolay bir şey olsa gerek ama yeterince bilgim yok.
yardımlarınızı bekliyorum.