AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Alt Formlar Arası Çoklu Veri Kaydetmek

12/04/2020, 05:48

zetyu

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.

---
12/04/2020, 11:28

ozanakkaya

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
12/04/2020, 17:18

zetyu

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


13/04/2020, 17:49

ozanakkaya

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 & "'));"
14/04/2020, 00:22

zetyu

ellerinize sağlık Ozan hocam 
tamamdır.
 tekrar teşekkür ederim.
saygılar.