kusura bakmayın galiba bir yerde hesap hatası yapmışım
access fonksiyonları ile oluşturamadım
ama gün sabit olduğundan fonksiyonu ona göre yeniden düzenledim

Function GunEkle(Trh As Date) As Date

GnSy = 0

Do While GnSy < 7

Trh = Trh + 1

If Trh Mod 7 > 1 Then GnSy = GnSy + 1

Loop

GunEkle = Trh

End Function

sorgudaki plandate3:GunEkle([plandate1]) şeklinde düzenlenmeli
Not: Access fonksiyonlarıyla olur mu diye araştırmaya devam ederim