Hello,
I am trying to update a date field based on a record code and I am having some issues. I am just learning the If command but my code looks like the examples im looking at but I don't know what is wrong.
Private Sub DateOfRecentMedical_Click()
If CaseStatusCode = "DE" Then
MedicalFollowUpDate = DateAdd("m", 14, [DateOfRecentMedical])
ElseIf
CaseStatusCode = "PN" Then
MedicalFollowUpDate = DateAdd("m", 36, [DateOfRecentMedical])
ElseIf
CaseStatusCode = "PR" Then
MedicalFollowUpDate = DateAdd("m", 12, [DateOfRecentMedical])
ElseIf
CaseStatusCode = "PS" Then
MedicalFollowUpDate = DateAdd("m", 14, [DateOfRecentMedical])
ElseIf
CaseStatusCode = "PW" Then
MedicalFollowUpDate = DateAdd("m", 24, [DateOfRecentMedical])
Else
MedicalFollowUpDate = ""
End If
End Sub