Based on the TechHelp videos Invoicing, Order Entry System and Invoicing Report I have the following question.

From the TaskForm I have a Task number.
This job number is copied into OrderForm.
However, as soon as I enter a new part, from SubForm OrderDetailForm, the Job number is removed.
How can I solve this?
Below is the VBA code.

Code from OrderForm and further down the code from OrderDetailForm:

Option Compare Database
Option Explicit
Private Sub CompanyCombobox_AfterUpdate()
    Me.Refresh
End Sub

Private Sub TaskNmr_AfterUpdate()
    Me.Refresh
End Sub

Private Sub CompanyCombobox_BeforeUpdate(Cancel As Integer)
    If MsgBox("This will change the customer for the current order. Are you sure?", _
        vbYesNoCancel) <> vbYes Then
            Cancel = True
            Exit Sub
    End If
End Sub

Private Sub Form_Current()
If Isloaded("Enter and/or change task data") Then
        CompanyCombobox.DefaultValue = Forms![Enter and/or change job data]!CompanyID
        TaskNmr.DefaultValue = Forms![Enter and/or change task data]!TaskNmr
    Else
        CompanyCombobox.DefaultValue = 0
        TaskNmr.DefaultValue = 0
    End If
End Sub


OrderDetailForm

Option Compare Database
Option Explicit
Private Sub PartsOrderDetailNumber_AfterUpdate()
    Me.Refresh
End Sub

Private Sub PartsOrderDetailPrice_AfterUpdate()
    Me.Refresh
End Sub

Add Private SubComponent_Click()
    If IsNull(PartsListCombo) Then
        DoCmd.GoToControl "PartsOverviewCombo"
        PartsOverviewCombo.Dropdown
        Exit Sub
    End If
    
    If IsNull(Forms!PartsOrderF!PartsOrderID) Then
        Forms!PartsOrderF!PartsOrderDate = Date
        Forms!PartsOrderF.Refresh
            
    End If
        
    DoCmd.GoToRecord , , acNewRec
    PartID = PartsOverviewCombo
    PartsOrderDetailProductName = PartsOverviewCombo.Column(1)
    PartsOrderDetailPiece Price = PartsOverviewCombo.Column(2)
    PartsOrderDetailNotes = Nz(DLookup("PartsOrderDetailNotes", "PartsOverviewT", "PartID=" & "PartsOverviewCombo"), "")
    Me.Refresh
End Sub


I hope you can help me.
Thanks, Klaas