princess15s
Registered User.
- Local time
- Today, 20:44
- Joined
- Aug 2, 2001
- Messages
- 15
Private Sub Trade_Date_AfterUpdate()
On Error GoTo Err_Trade_Date_AfterUpdate
Me.Refresh
DoCmd.RunQuery CalcualteNetPrice
DoCmd.RunQuery CalculateSettlementDate
Me.frmTrade(M).Requery
Exit_Trade_Date_AfterUpdate:
Exit Sub
Err_Trade_Date_AfterUpdate:
MsgBox Err.Description
Resume Exit_Trade_Date_AfterUpdate
End Sub
On Error GoTo Err_Trade_Date_AfterUpdate
Me.Refresh
DoCmd.RunQuery CalcualteNetPrice
DoCmd.RunQuery CalculateSettlementDate
Me.frmTrade(M).Requery
Exit_Trade_Date_AfterUpdate:
Exit Sub
Err_Trade_Date_AfterUpdate:
MsgBox Err.Description
Resume Exit_Trade_Date_AfterUpdate
End Sub