Private Sub Current_StatusCombo_BeforeUpdate(Cancel As Integer)
If CurrentStatusCombo <> CurrentStatus Then
CurrentDb.Execute "INSERT INTO[tblStatusHistory]([AppraisalorderId],[oldstatus],[oldstatusdate])" & "values ('" & Me.AppraisalID & "','" & Me.CurrentStatus.OldValue & "','" &...