It's really independent of what I've done, isn't it? I just want to
prevent the auto-save-on-close "feature" of MS Access, otherwise I just
may have to resort to writing the queries manually instead of joining
tables and using a ready-made query. All I've done (manually) is:
Private Sub Save_New_Record_Click()
On Error GoTo Err_Save_New_Record_Click
ExpCode.SetFocus
If ExpCode.Text <> 0 Then
ExpDate.SetFocus
If ExpDate.Text <> "" Then
Through.SetFocus
If Through.Text <> "" Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu,
acSaveRecord, , acMenuVer70
MsgBox "Form Saved!"
DoCmd.GoToRecord , , acNewRec
ExpCode.SetFocus
Else
MsgBox "No Payment Method Chosen"
End If
Else
MsgBox "Enter Proper Date: MM/DD/YYYY"
End If
End If
Exit_Save_New_Record_Click:
Exit Sub
Err_Save_New_Record_Click:
MsgBox Err.Description
Resume Exit_Save_New_Record_Click
End Sub