Here is the code that I am having problems with:
Private Sub Result_AfterUpdate()
Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.Save acForm, "Customer FRM"
If [Result] = "APT" Then
DoCmd.OpenForm "AppointmentDate FRM", , , "[ResultsID]=" & Me![ResultsID]
End If...