Closing a Form Problem

[MuskokaMad]

Here is what I am trying to accomplish.

I have 2 Forms frm_NewCustomerEntry and frm_NewOrderEntry2.

I want to create a button that allows the user to fill in a new customer's data and then proceed directly to the Order Form with the Customer ID and Store ID (Which CustomerEntry Inherited from the Switchboard) Populated in the new form.

I have validation rules in both the Table and Form for the same fields as I worried this might be causing the problem. No Joy. Have tried splitting the functions into 2 buttons.

Button 1: cmdSaveRecord has on the OnClick Event.

If Me.Dirty Then
DoCmd.RunCommand acCmdSaveRecord
Forms!frm_CustomerEntry!cmdNewOrder.enabled = True
Forms!frm_CustomerEntry!cmdNewOrder.SetFocus
Else
MsgBox "There were no modifications made to the current record.", vbInformation, "Invalid Save"
End If

Button 2: cmdNewOrder has on the OnClick Event

DoCmd.OpenForm "frm_NewOrderEntry2", acNormal, , , acFormAdd
Forms!frm_NewOrderEntry2.cboCustomer = Me.ID
Forms!frm_NewOrderEntry2.cboStore = Forms!frm_NewCustomerEntry!StoreInfo_ID
DoCmd.Close acForm, "frm_NewCustomerEntry", acSaveNo



I get a runtime 3316 error not the validation message.

Suggestions and Help Greatly appreciated

[MuskokaMad]

Bump......

[maximus]

This is Code below. Let me explain what I understand from your thread:
1) You have a Form called frm_CustomerEntry to Enter New Customers.
2) Now if Data is entered data is Saved and a Command Button cmdNewOrder is enabled and receives focus.
3) You open a Form frm_NewOrderEntry2.
4) a ComboBox called cboCustomer=Forms!frm_CustomerEntry!ID

Now my question "Forms!frm_NewOrderEntry2.cboStore = Forms!frm_NewCustomerEntry!StoreInfo_ID". This oiece of code signifies that a combobox on Form frm_NewOrderEntry2=Form!frm_NewCustomerEntry!Store Info_ID, is this another form frm_NewCustomerEntry is this form open. If this form is not then you cannot close it also.


"I have 2 Forms frm_NewCustomerEntry and frm_NewOrderEntry2"

Now above is an extract from you thread. Now you mention that you have two forms
1. frm_NewCustomerEntry
2. frm_NewOrderEntry2

my question is frm_customerEntry should be frm_NewCustomerEntry



If Me.Dirty Then
DoCmd.RunCommand acCmdSaveRecord
Forms!frm_CustomerEntry!cmdNewOrder.enabled = True
Forms!frm_CustomerEntry!cmdNewOrder.SetFocus
Else
MsgBox "There were no modifications made to the current record.", vbInformation, "Invalid Save"
End If

Button 2: cmdNewOrder has on the OnClick Event

DoCmd.OpenForm "frm_NewOrderEntry2", acNormal, , , acFormAdd
Forms!frm_NewOrderEntry2.cboCustomer = Me.ID
Forms!frm_NewOrderEntry2.cboStore = Forms!frm_NewCustomerEntry!StoreInfo_ID
DoCmd.Close acForm, "frm_NewCustomerEntry", acSaveNo