Skip to main content

AccessTr.neT


açılan kutular

KARAHİSARLI
KARAHİSARLI
5
1807

açılan kutular

Çözüldü #1
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.
.rar yemek malzemesi.rar (Dosya Boyutu: 170,92 KB | İndirme Sayısı: 16)
Cevapla
Çözüldü #2
merhaba,

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

iyi çalışmalar.
saygılar.
Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
Çözüldü #3
alt forma "Malzeme Aktar" butonu ekledim. inceleyiniz.
.rar YEMEK_sld.rar (Dosya Boyutu: 27,88 KB | İndirme Sayısı: 30)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
Çözüldü #4
hocam elinize sağlık tek kelime ile on numara olmuş çok teşekkürler
Cevapla
Çözüldü #5
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.
Cevapla
Çözüldü #6
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.

Visual Basic Code
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

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da