Open Form To Corresponding Product and Create New Record

[burrina]

I am trying to open my main form from another form. The form opened shows the ProductName and other stuff. My main form has a subform on it where products are entered. I would like to open my main form, create a new order, and display the Corresponding Products in my subform.



Form opened is InventoryReceiving, Main form is OrderDetails and subform is OrderDetailsSubform where the ProductID is located.

Here is my code now that opens my main form but not to a new record or displays the corresponding Product on the subform.

On Error GoTo Err_Command51_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "OrderDetails" 'Opens Corresponding Order
DoCmd.GoToRecord acDataForm, "OrderDetails", acNewRec


stLinkCriteria = "[ProductName]=" & Me![ProductID] 'This wont work I'm sure.
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command51_Click:
Exit Sub

Err_Command51_Click:
MsgBox Err.Description
Resume Exit_Command51_Click

____________________________________
DoCmd.OpenForm "OrderDetails", , , "[ProductID]=forms![OrderDetails].form![ProductID]" 'Trying this to see if it will work??? NOPE! It DOES NOT WORK EITHER
DoCmd.GoToRecord acDataForm, "OrderDetails", acNewRec

[burrina]

Am I getting Close? No, errors out on this line of code; Forms!OrderDetails!OrderDetailsSubform.Form.Produc tID .SetFocus (On SetFocus) is the error!


Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "OrderDetails" 'Opens Corresponding Product and Creates a New Order

DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord acDataForm, "OrderDetails", acNewRec
Forms!OrderDetails!OrderDetailsSubform.Form.Produc tID .SetFocus
DoCmd.FindRecord Me.ProductID

__________________________________________________ ___________Trying New Code,Almost there,could use some help.
Private Sub Purchase_Click()
On Error GoTo Err_Command51_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "OrderDetails" 'Opens Main Form OrderDetails.

DoCmd.OpenForm stDocName, , , stLinkCriteria 'Link Criteria
DoCmd.GoToRecord acDataForm, "OrderDetails", acNewRec 'Creates New Record
Forms!OrderDetails!OrderDetailsSubform.Form.SetFoc us 'Sets Focus on Subform OrderDetailsSubform
ProductID.SetFocus 'Sets Focus To Product Field
With Me.[ProductID].Form.RecordsetClone 'Does Something?
.AddNew 'Adds New Record
!ProductID = Forms!InventoryControl!ProductName 'Unsure but Link by Product Name
!ProductID = ProductID 'ProductID = ProductID
'etc.
.Update 'Updates the form with criteria.
End With 'End Routine

Exit_Command51_Click:
Exit Sub

Err_Command51_Click:
MsgBox err.Description
Resume Exit_Command51_Click
End Sub