+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: açılan kutular (/konu-acilan-kutular.html)
açılan kutular - KARAHİSARLI - 28/02/2014
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.
Cvp: açılan kutular - atoz112 - 28/02/2014
merhaba,
çalışmanızı 2003 olarak da eklemek ister misiniz,incelenmesi için.
iyi çalışmalar.
saygılar.
Cvp: açılan kutular - ozanakkaya - 04/03/2014
alt forma "Malzeme Aktar" butonu ekledim. inceleyiniz.
Cvp: açılan kutular - KARAHİSARLI - 10/03/2014
hocam elinize sağlık tek kelime ile on numara olmuş çok teşekkürler
Cvp: açılan kutular - KARAHİSARLI - 12/03/2014
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.
Cvp: açılan kutular - ozanakkaya - 12/03/2014
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