Sub sorgu51()
DoCmd.RunSQL "INSERT INTO sorguladım ( tarih, mal, Deyim2, yemek, ONAY ) " &_
"SELECT tarih.tarih, malzeme.mal, Sum([kilo]*[aksamtoplam]) AS Deyim2, "yemek10" AS Deyim1, malzeme.onay " &_
"FROM ((yemek INNER JOIN tarih ON yemek.yemek = tarih.yemek10) INNER JOIN öğün_toplam ON tarih.tarih = öğün_toplam.tarih) INNER JOIN malzeme ON yemek.yemek = malzeme.yemek " &_
"GROUP BY tarih.tarih, malzeme.mal, malzeme.onay " &_
"HAVING (((tarih.tarih) Between [Forms]![tttth]![Başlangıç Çağrı Saati] And [Forms]![tttth]![bitiş Çağrı Saati]));", 0
End Sub
İyiki Varsın Access