Yeni bir modül oluştur. Modüle aşağıdaki kodları ekle

Option Compare Database



Option Explicit



Function UygunIsGunu(GeciciTarih As Date, Zorluk As Integer) As Date





    Dim i As Long

    

    i = 1

    Do While i <= 3

        If Weekday(GeciciTarih) <> 1 And Weekday(GeciciTarih) <> 7 And Dsum ("[ZORLUK_PUAN]", "Tablo1", "CALISILACAK_HAFTA = " & Format(GeciciTarih, "\#mm\/dd\/yyyy\#")) + Zorluk <= 4 Then

        i = i + 1

        GeciciTarih = DateAdd("d", 1, GeciciTarih)

        Else

        Exit Do

        End If

    Loop



    Do While Weekday(GeciciTarih) = 1 Or Weekday(GeciciTarih) = 7 Or Dsum ("[ZORLUK_PUAN]", "Tablo1", "CALISILACAK_HAFTA = " & Format(GeciciTarih, "\#mm\/dd\/yyyy\#")) + Zorluk > 4

        GeciciTarih = DateAdd("d", 1, GeciciTarih)

    Loop



    UygunIsGunu = GeciciTarih

End Function

Modülü kaydet, 

Tarihi nasıl atayacağınızı bilmediğim için gerekli kodu yazamıyorum. Forma buton ekleyip tıklandığında olayına

Me.CALISILACAK_HAFTA = UygunIsGunu(Date, Çerçeve443)

yazarsan formdaki ilgili alana uygun tarihi ekler.