Question : after_update is not responding

hi guys

I have 3 dates fields, once the user change any of them, i have to recalculate another field, check the code, it should be working, i tested out and it respond only in the first change, after that it does not respond
I tried with after_Update and OnChange, but nothing
Code Snippet:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
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
Open in New Window Select All

Answer : after_update is not responding

in the properties window for the control make sure it says [Event Procedure] behind afterupdate in the events tab
Random Solutions  
 
programming4us programming4us