I have the following code in VB:
Private Sub days_after_AfterUpdate()
If IsNull(Me![Combo119]) Then
Me![Date Due] = DateAdd("d", Me![Seq], Me![Date Due])
Else
DLookup("[Miledate]", "Mile1", Me![Date Due] = Me![Combo119]) = Me![Date Due].Value = DateAdd("d", Me![Seq], Me![Date...