Code:
'------------------------------------------------------------
' NEW_CONTRIBUTION
'
'------------------------------------------------------------
Function NEW_CONTRIBUTION()
On Error GoTo NEW_CONTRIBUTION_Err
With CodeContextObject
On Error GoTo 0
If (.AMOUNT > 0) Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RefreshRecord
Beep
MsgBox "Saved Record", vbInformation, "SAVED:"
Else
DoCmd.RefreshRecord
Beep
MsgBox "Amount is missing.", vbExclamation, "ENTER AMOUNT:"
End If
[Forms]![CONTRIBUTIONS].Refresh
End With
NEW_CONTRIBUTION_Exit:
Exit Function
NEW_CONTRIBUTION_Err:
MsgBox Error$
Resume NEW_CONTRIBUTION_Exit
End Function