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