Record not clearing?

[Xterra14s]

This is the code I have:
Private Sub Command0_Click()
[Forms]![DME Database]!MainFormMachines.SetFocus
[Forms]![DME Database]!MainFormMachines = [Forms]![DME Database]![Machines Hidden]
[Forms]![DME Database]!MainFormSupplies.SetFocus
[Forms]![DME Database]!MainFormSupplies = [Forms]![DME Database]![Supplies Hidden]
[Forms]![DME Database]![NavigationSubform]![Order input form].SetFocus
[Forms]![DME Database]![NavigationSubform].[Form]![Order input form]!ID.SetFocus
DoCmd.GoToRecord , , acNewRec
MsgBox (" Order Submitted! ")
DoCmd.OpenForm "PA2_Form"
End Sub



Everything is working fine except the DoCmd.GoToRecord , , acNewRec. The record wont clear to go to the next. Any idea why its doing this?

[pbaldy]

First thing I would do is fill in the missing arguments to specify the form. By the way, you don't have to set focus to a control to give it a value.

[Xterra14s]

do you mean in this part: DoCmd.GoToRecord , , acNewRec

[pbaldy]

Yes, if you look in help on GoToRecord, you've skipped 2 arguments.

[Xterra14s]

[Forms]![DME Database]![NavigationSubform]![Order input form].DoCmd.GoToRecord , , acNewRec

Would that be more appropriate?

[Xterra14s]

Private Sub Command0_Click()
[Forms]![DME Database]!MainFormMachines.SetFocus
[Forms]![DME Database]!MainFormMachines = [Forms]![DME Database]![Machines Hidden]
[Forms]![DME Database]!MainFormSupplies.SetFocus
[Forms]![DME Database]!MainFormSupplies = [Forms]![DME Database]![Supplies Hidden]
[Forms]![DME Database]![NavigationSubform]![Order Input form].SetFocus
[Forms]![DME Database]![NavigationSubform].[Form]![Order Input form]!ID.SetFocus
[Forms]![DME Database]![NavigationSubform].[Form]![Order Input form].DoCmd.GoToRecord , , acNewRec
MsgBox (" Order Submitted! ")
DoCmd.OpenForm "PA2_Form"

I wrote it out this way but am still having the same issue.

[John_G]

Can you clarify on which form you want to move to a new record? It looks like it is the subform [Order input form] - correct?

If that form is not going to a new record, check the setting for its "Allow Additions" property - it should be "Yes"

Are you getting any error messages in this process?

[Xterra14s]

That is the correct form and I do have allow additions set to yes. The error sates : Run time error '2498' An an expression you entered is the wrong data type for one of the arguements.
I was recommended to set up that line like this:
DoCmd.GoToRecord , [Forms]![DME Database]![NavigationSubform].[Form]![Order Input form], acNewRec

[John_G]

The second argument is the problem - the command is expecting a Text String containing the name of an object (check the help file for details).

What you can do is set the focus to the sub-form, and then go to a new record:

[Forms]![DME Database]![NavigationSubform]![Order Input form].SetFocus
DoCmd.gotorecord ,,acNewRec

By leaving the first two arguments blank, the command uses the current object, which is the input order form.