- Katılım
- 2 Ocak 2007
- Mesajlar
- 148
- Excel Vers. ve Dili
- office xp
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.
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.