Private Sub GISTDiagnosisDate_AfterUpdate()
If Not IsNull(Me.GISTDiagnosisDate) Then
Me.AgeAtDiagnosis = GetAgeAtDiag(Me.PatientID)
End If
End Sub
Private Sub MisdiagnosedGIST_AfterUpdate()
If Me.MisdiagnosedGIST = True Then
Me.AgeAtDiagnosis = GetAgeAtDiag(Me.PatientID)
End If
End Sub
Private Sub IstCancerDiagnosisDate_AfterUpdate()
If (Me.MisdiagnosedGIST = True) And (Not IsNull(Me.IstCancerDiagnosisDate)) Then
Me.AgeAtDiagnosis = GetAgeAtDiag(Me.PatientID)
End If
End Sub
Private Sub EstimatedIstSymptonsDate_AfterUpdate()
If (Me.MisdiagnosedGIST = True) And (Not IsNull(Me.EstimatedIstSymptonsDate)) Then
Me.AgeAtDiagnosis = GetAgeAtDiag(Me.PatientID)
End If
End Sub
|