AccessTr.neT

arkadaşlar çok zor bir açılan kutu çalışması yapmak istiyorum ama bana çok ağır geldi bu uygulama

ekteki örnekte üç tablo ve altalta form oluşturdum
ilk formda tarihi seçtiğimde
onun altındaki formda yemek türünü seçiciem
ücüncü formda ise o yemek ile ilgili yemek türü için malzemelerin bulunduğu tüm verilerin açılan kutuya otomatik gelmesini sağlıcam ama nasıl olacak anlayamadım.

örnek
1genel formuna 28,02,2014 yemek tarihini girdim

2yemek formuna fasulyeyi seçtim,
3malzeme formunda fasulye için lazım olan üç kaydın otomatik gelmesini istiyorum

2yemek formuna yeni kayıt ekleyip pide yi seçtiğimde 3 malzeme foruna 3 pide için malzemelerin gelmesini istiyorum

28,02,2014 tarihli menü için yemek menülerinin ayrı ayrı eklenip malzemenin ayrı ayrı kaydının tutulmasını istiyorum. sonra bunların maliyetleri üzeirene çalışıp formüllemeleri yapıp geliştireceğim.

yardımcı olursanız sevinirim.

merhaba,

çalışmanızı 2003 olarak da eklemek ister misiniz,incelenmesi için.

iyi çalışmalar.
saygılar.

alt forma "Malzeme Aktar" butonu ekledim. inceleyiniz.

hocam elinize sağlık tek kelime ile on numara olmuş çok teşekkürler

Başta ozanakkaya olmak üzere hocalarıma soruyorum program çok güzel olmuş, programda malzeme aktar butonuna basınca çok güzel çalışıyor, açılan ve malzeme tablosuna KDV ekledim, malzeme aktardaki formülü

Private Sub Komut9_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO 3MALZEME ( TÜRÜ, MİKTAR, 3MALZEME, KDV, MNO, yemek ) SELECT ACILAN.TÜRÜ, ACILAN.MİKTARI, ACILAN.MALZEME, ACILAN.KDV, Val([Formlar]![1GENEL]![2YEMEK].[Form]![YNO]) AS İfade1, ACILAN.YEMEK FROM ACILAN WHERE (((ACILAN.YEMEK)=[Formlar]![1GENEL]![2YEMEK].[Form]![YEMEK]));"
DoCmd.SetWarnings True
Me.[3MALZEME].Requery
End Sub
şelinde düzenledim, ancak ifade1 nerde onu bulamadım. şimdi programa ekleme yapamıyorum. neyi nerde eksik yaptım yardımcı olursanız sevinirim.

ACILAN ve 3MALZEME tablolarında KDV alanının olması gerekiyor.
her iki tabloda KDV alanı varsa kodu aşağıdaki ile değiştir.

DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO 3MALZEME ( TÜRÜ, MİKTAR, 3MALZEME, KDV, MNO, yemek ) SELECT ACILAN.TÜRÜ, ACILAN.MİKTARI, ACILAN.MALZEME, ACILAN.KDV, Val([Formlar]![1GENEL]![2YEMEK].[Form]![YNO]) AS İfade1, ACILAN.YEMEK FROM ACILAN WHERE (((ACILAN.YEMEK)=[Formlar]![1GENEL]![2YEMEK].[Form]![YEMEK]));"

DoCmd.SetWarnings True

Me.[3MALZEME].Requery