aşağıdaki fonksiyon işinize yarayabilir

Private Sub SonTrh()

dt = Left(Me.Recordset("görevebaslamatarihi"), 10)

xSrEkle = Val(Me.çalıştığısure)

If IsDate(dt) And xSrEkle > 0 Then

xTrh = ""

    If çalıştığısure Like "*ay*" Then

        xTrh = "m"

    ElseIf çalıştığısure Like "*g?n*" Then

        xTrh = "d"

    ElseIf çalıştığısure Like "*y?l*" Then

        xTrh = "yyyy"

    End If

   If xTrh <> "" Then Me.sontarih = DateAdd(xTrh, xSrEkle, dt): Me.sontarih.Requery

End If

End Sub