Nested If with DateAdd

[Jazz Balmain]

I'm trying to write a query that says "If [Type] = "Probationary Review 1" then add 14 days to [Employment Date]; "If [Type] = "Probationary Review 2" then add 3 months to [Employment Date]; "If [Type] = "Probationary Review 3" then add 5 months to [Employment Date] but I just can't get it and can't find anything to help me!

[ADezii]

One approach would be to use a Recordset to perform the Conditional Updating of the [Employment Date] Field based on the Values in the [Type] Field. Assuming your Table is named tblData:

Dim MyDB As DAO.Database
Dim rst As DAO.Recordset
Dim dteNewDate As Date
 
Set MyDB = CurrentDb
Set rst = MyDB.OpenRecordset("tblData", dbOpenDynaset)
 
With rst
  Do While Not .EOF
    Select Case ![Type]
      Case "Probationary Review 1"          'Add 14 Days
        dteNewDate = DateAdd("d", 14, ![Employment Date])
      Case "Probationary Review 2"          'Add 3 Months
        dteNewDate = DateAdd("m", 3, ![Employment Date])
      Case "Probationary Review 3"          'Add 5 Months
        dteNewDate = DateAdd("m", 5, ![Employment Date])
      Case Else                             'None of the above, keep Date
        dteNewDate = ![Employment Date]
    End Select
      .Edit
        ![Employment Date] = dteNewDate
      .Update
        .MoveNext
  Loop
End With
 
rst.Close
Set rst = Nothing

[NeoPa]

Are you looking at a display query or an update query? Your question is unclear on this.

Can [Type] have any other values or are those three a closed list?