Saygıdeğer üstadlarım Tanımlanmış Yemek isimine göre Öğünler itiarıyla (TABLO YAP SORGUSU) hesaplama yapılmaktadır.

YEMEK adında (TABLO YAP SORGUSU) 'nun arkasında yazılı olan SQL kodudur.

Aşağıda yazılı olan SQL kodunun daha basit bir yazım şekli varmıdır.
Yardımlarınız için şimdiden teşekkür ederim

SELECT MevcutA.SNO, MevcutA.TARİH, [GİRİSTABLOSU].GNo, [GİRİSTABLOSU].YEMEKADI, [GİRİSALTTABLO].ADI, [GİRİSALTTABLO].GRAMAJ, IIf([SABAH]=[GNo] Or [SABAH1]=[GNo] Or [SABAH2]=[GNo] Or [SABAH3]=[GNo] Or [SABAH4]=[GNo],[SSAYISI])+0 AS Deyim1, IIf([ÖĞLE]=[GNo] Or [ÖĞLE1]=[GNo] Or [ÖĞLE2]=[GNo] Or [ÖĞLE3]=[GNo],[ÖSAYISI]) AS Deyim2, IIf([AKŞAM]=[GNo] Or [AKŞAM1]=[GNo] Or [AKŞAM2]=[GNo] Or [AKŞAM3]=[GNo],[ASAYISI]) AS Deyim3, IIf([ASABAH]=[GNo] Or [ASABAH1]=[GNo] Or [ASABAH2]=[GNo],[AÖ1]) AS Deyim4, IIf([AÖĞLE]=[GNo] Or [AÖĞLE1]=[GNo] Or [AÖĞLE2]=[GNo]=[GNo],[AÖ2]) AS Deyim5, IIf([AAKŞAM]=[GNo] Or [AAKŞAM1]=[GNo] Or [AAKŞAM2]=[GNo],[AÖ3]) AS Deyim6, IIf([AÖA]=[GNo] Or [AÖA1]=[GNo] Or [AÖA2]=[GNo],[AÖ4]) AS Deyim7, IIf([AÖB]=[GNo] Or [AÖB1]=[GNo] Or [AÖB2]=[GNo],[AÖ5]) AS Deyim8, IIf([AÖC]=[GNo] Or [AÖC1]=[GNo] Or [AÖC2]=[GNo],[AÖ6]) AS Deyim9 INTO GRAMAJLI_YEMEK_TABELASI
FROM MevcutA, GİRİSTABLOSU INNER JOIN GİRİSALTTABLO ON [GİRİSTABLOSU].GNo = [GİRİSALTTABLO].SNO
WHERE (((MevcutA.TARİH)>=[forms]![Rapor Tarih Aralığı]![İlkTarih] And (MevcutA.TARİH)<=[forms]![Rapor Tarih Aralığı]![SonTarih]) AND (([GİRİSTABLOSU].GNo)=[SABAH] Or ([GİRİSTABLOSU].GNo)=[SABAH1] Or ([GİRİSTABLOSU].GNo)=[SABAH2] Or ([GİRİSTABLOSU].GNo)=[SABAH3] Or ([GİRİSTABLOSU].GNo)=[SABAH4] Or (([GİRİSTABLOSU].GNo)=[ÖĞLE] Or ([GİRİSTABLOSU].GNo)=[ÖĞLE1] Or ([GİRİSTABLOSU].GNo)=[ÖĞLE2] Or ([GİRİSTABLOSU].GNo)=[ÖĞLE3]) Or (([GİRİSTABLOSU].GNo)=[AKŞAM] Or ([GİRİSTABLOSU].GNo)=[AKŞAM1] Or ([GİRİSTABLOSU].GNo)=[AKŞAM2] Or ([GİRİSTABLOSU].GNo)=[AKŞAM3]) Or (([GİRİSTABLOSU].GNo)=[ASABAH] Or ([GİRİSTABLOSU].GNo)=[ASABAH1] Or ([GİRİSTABLOSU].GNo)=[ASABAH2]) Or (([GİRİSTABLOSU].GNo)=[AÖĞLE] Or ([GİRİSTABLOSU].GNo)=[AÖĞLE1] Or ([GİRİSTABLOSU].GNo)=[AÖĞLE2]) Or (([GİRİSTABLOSU].GNo)=[AAKŞAM] Or ([GİRİSTABLOSU].GNo)=[AAKŞAM1] Or ([GİRİSTABLOSU].GNo)=[AAKŞAM2]) Or (([GİRİSTABLOSU].GNo)=[AÖA] Or ([GİRİSTABLOSU].GNo)=[AÖA1] Or ([GİRİSTABLOSU].GNo)=[AÖA2]) Or (([GİRİSTABLOSU].GNo)=[AÖB] Or ([GİRİSTABLOSU].GNo)=[AÖB1] Or ([GİRİSTABLOSU].GNo)=[AÖB2]) Or (([GİRİSTABLOSU].GNo)=[AÖC] Or ([GİRİSTABLOSU].GNo)=[AÖC1] Or ([GİRİSTABLOSU].GNo)=[AÖC2])))
ORDER BY MevcutA.SNO, MevcutA.TARİH, [GİRİSTABLOSU].GNo;

Elbette var. Ama bu şekilde yardımcı olmaz işi zorlaştırır. Bu sebeple ilgili sorgu ve ilişkili olduğu tabloları yüklemeniz yardım için yeterli olur.

Dsum ile örnek, sonraki tek tarih nasıl oluştururum veya tarihler olmadan nasıl yaparım soruları Komut19 düğmesi altında.

  Ahmet51(SQL).rar (Boyut: 181,57 KB / İndirilme: 49)

  Deneme.rar (Boyut: 220,09 KB / İndirilme: 43)

(07-04-2023, 06:51)dsezgin demiş ki: Dsum ile örnek, sonraki tek tarih nasıl oluştururum veya tarihler olmadan nasıl yaparım soruları Komut19 düğmesi altında.

Saygıdeğer üstadım yazmış olduğunuz sql vba kodu çalışıyor. Ancak Kriter olarak girilem İlkTarih ve SonTarih sadece koşul olarak kullanılıyor. Oluşturulan "GRAMAJLI_YEMEK_TABELASI" tablosuna değer olarak atılmamalı. Bu tabloya atılacak değer "MevcutA" Tablosundaki TARİH alanı olmalı. Cuma gününden bu yana üzerinde bayağı çalışmama rağmen işin içinden çıkamadım. "Sorgu1" isimli  Tablo yapma sorgusu Bu Oluşturulan "GRAMAJLI_YEMEK_TABELASI" Tablosuna dayalı olarak "YEMEK_TABELASI" isimli tablo oluşturulmaktadır. Bunun nedeni "GRAMAJLI_YEMEK_TABELASI" tabloda oluşturulan yemek içerikleri her yemek için ayrı ayrı oluşmaktadır. Bu ayrı oluşan yemek içerikleri "YEMEK_TABELASI" tablosuna toplamı yazılmaktadır. (Örnek Sabah, Öğle, Akşam yemekleri içerisinde kullanılan Ayçiçekyağı günlük yemeklerde bir çok yerde kullanılmaktadır) Bu malzemeler "YEMEK_TABELASI" nda gramajlar toplam alınmaktadır.

Siz değerli üstadlarıma Tam çalışan Örneği ekledim.

Örneği incelediğinizde ne demek istediğimi anlayacaksınız.

Bununla ilgili yöntemlerin nasıl olması gerektiği hususunda yardımlarınızı bekler; teşekkür ederim.

(10-04-2023, 10:48)Ahmet51 demiş ki: Bu tabloya atılacak değer "MevcutA" Tablosundaki TARİH alanı olmalı.

Sn Ahmet51; iki tarih arası hangi değeri yazmalı?

(10-04-2023, 12:54)dsezgin demiş ki:

(10-04-2023, 10:48)Ahmet51 demiş ki: Bu tabloya atılacak değer "MevcutA" Tablosundaki TARİH alanı olmalı.

Sn Ahmet51; iki tarih arası hangi değeri yazmalı?

Üstadım İki tarih arası ilişkisiz alan günlük değerleri veya girilen ilk ve son tarihe göre "GRAMAJLI_YEMEK_TABELASI" oluşturmak veya iki tarih arasında rapor almak gibi kriterleri sağlamakta ancak hiçbir yerde depolanmamaktadır.

Üstadım birde "GRAMAJLI_YEMEK_TABELASI"' n daki SSAYISI, ASAYISI vb alanlar sayı içermektedir. Sizin yazdığınız sql vba kodunda MevSb,MevOg, MevAk ve devamındaki alanlar KısaMetin olarak tanımlanmış.