A family of Microsoft relational database management systems designed for ease of use.
This is what is easier to use:
=IIf([finish1]=#12/25/2005#,"TBD",(IIf([Finish1]=#12/25/2000#,"ASAP",(IIf(Finish1=#10/1/2000#,"N/A",Month(Finish1) & "/" & Day(Finish1))))))
If you want to encapsulate the expression, it would involve creating a new standard module and paste the following code. Save the module with a name like "modBusinessCalcs"
Public Function GetFinishDate(datFinish as Date) as String
' this function will accept the Finish1 field and
' return the Finish Date expression
' use the function in a query or control source like:
' =GetFinishDate([Finish1])
' FinishDate: GetFinishDate([Finish1])
Select Case datFinish
Case #12/25/2005#
GetFinishDate = "TBD"
Case #12/25/2000#
GetFinishDate = "ASAP"
Case #10/1/2000#
GetFinishDate = "N/A"
Case Else
GetFinishDate = Month(datFinish) & "/" & Day(datFinish)
End Select
End Function