Try this:
Code:
Private Sub PurchaseOrderID_DblClick(Cancel As Integer)
DoCmd.OpenForm [Purchase Orders], , , "[PurchaseOrderID]=" & Me.[PurchaseOrderID] , , , "Any text"
End Sub
Use the following code in the On Open event of the "Purchase Orders" form:
Code:
If IsNull(Me.OpenArgs) Then
DoCmd.GoToRecord , , acNewRec
End If
A form has an OpenArgs property which is usually Null. The code that open the form sets this property to "Any text". The code in the On Open event only goes to a new record if this property is Null.