AccessTr.neT

Tam Versiyon: Alt Formlar Arası Çoklu Veri Kaydetmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Hayırlı sabahlar
maliyet hesaplama bir uygulama yapmaya çalışıyorum.

iki adet alt formum var 1.de bulunan verilerin 2.forma satırlar halinde çoklu olarak kaydolmasını istiyorum.

çeşitli örnekler inceledim, recordset  örnekleri üzerinde denemeler yaptım ama netice alamadım 
ekte örnek mevcut.

malzeme alt formunda bulunan 
---tarif malzeme adi
---miktari 

verilerinin 

stok alt formu
--malzeme adi stok
--malzeme miktari stok


tüm satırların kaydolmasını yapmaya çalışıyorum ama sizin bilginize ihtiyacım var


ilginize şimdiden teşekkür ederim.

---
Butonun tıklandığında olayına aşağıdaki kodu ekle.
Kod:
Dim GMalzemeAdi As String

GMalzemeAdi = [malzeme alt formu].Form![malzeme_adi]

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO stok ( malzeme_adi_satok, malzeme_miktari_stok ) SELECT tarif_malzeme_adi, miktari FROM malzeme WHERE (((malzeme_adi)='" & GMalzemeAdi & "'));"
DoCmd.SetWarnings True

[stok alt formu].Form.Requery
Ozan hocam ellerinize sağlık yine çok hızla cevapladınız

size sormamak için oldukça uğraştım ama ..

affınıza sığınarak ana formdanda aynı veriye kayıt eklemek için ne yapmalıyım.

tarif_formu
-usta
-tarih

malzeme alt formunda bulunan 
---tarif malzeme adi
---miktari 

verilerinin 

stok alt formu
--malzeme adi stok
--malzeme miktari stok

-usta
-tarih


[Resim: do.php?img=10023]
usta metin kutusu: mtn_usta,
tarih metin kutusu: mtn_tarih

kullanılacak kod

DoCmd.RunSQL "INSERT INTO stok ( malzeme_adi_satok, malzeme_miktari_stok, usta, tarih ) SELECT tarif_malzeme_adi, miktari, [Formlar]![tarif]![mtn_usta] AS usta, [Forms]![tarif]![mtn_tarih] AS tarih FROM malzeme WHERE ((([malzeme_adi])='" & GMalzemeAdi & "'));"
ellerinize sağlık Ozan hocam 
tamamdır.
 tekrar teşekkür ederim.
saygılar.