1 - pazartesi ve salı günleri için sorguları düzenledim diğerleri de benzer şeklide halledilebilir
2 - sorguların üstünde yer alan isimlendirmek için kullandığınız metin kutularının isimlerini değiştirdim
3 - form yükleme olayına aşağıdaki kodu ekledim
ilkGun = CLng(Date - Weekday(Date, 2)) '
For x = 1 To 7
Me.Controls("HfGn" & x) = Format(ilkGun + x, "dd.mm.yyyy dddd")
Next x
ilkGun = CLng(Date - Weekday(Date, 2))+1 kodu haftanın ilk günün tarihini verir