Where's the rest of the code? Or is there no End Sub and you're trying to call the Thank You function?

Hi Adam, see below the rest of the code, thank you

Details

Dim NewRenewalDate As Date
  
  Me.OrderBy = "RenewalDate"
  Me.OrderByOn = True
  DoCmd.GoToRecord , , acFirst
  
   Status "Begin"
  
   While RenewalDate <= Date
  
        Select Case PeriodCombo
            Case "D"
                 NewRenewalDate = RenewalDate + NumPeriods
            Case "M"
                 NewRenewalDate = DateAdd("m", NumPeriods, RenewalDate)
                        
        End Select
  
    DoCmd.OpenForm "OrderF", , , , acFormAdd
    
    Forms!OrderF!CustomerCombo = CustomerCombo
    Forms!OrderF!OrderDate = Date
    Forms!OrderF!Description = "Membership Thru" & NewRenewalDate
    Forms!OrderF!IsPaid = False
    Forms!OrderF!ToBePrinted = True
    Forms!OrderF!IsQuote = False
    Forms!OrderF!Adress = Nz(DLookup("Adress", "CustomerT", "CustomerID=" & CustomerCombo), "")
    Forms!OrderF!Adress = Nz(DLookup("Province", "CustomerT", "CustomerID=" & CustomerCombo), "")
    Forms!OrderF!.Refresh
    
    Forms!OrderF!OrderDetailF!.Form!ProductID = ProductCombo
    Forms!OrderF!OrderDetailF!.Form!ProductName = Nz(DLookup("Description", "ProductT", "ProductID=" & ProductCombo), "")
    Forms!OrderF!OrderDetailF!.Form!UnitPrice = Amount
    Forms!OrderF!OrderDetailF!.Form!Quantity = 1
    Forms!OrderF!OrderDetailF!.Form.Refresh
    RenewalDate = DateAdd("m", 1, RenewalDate)
        
    DoCmd.Close acForm, "orderF", acSaveYes
    
    RenewalDate = NewRenewalDate
    Me.Requery
    
    Wend
    
    Status "Done"
    
      
    
    End Sub
Copy

Which line does the code stop on?

I do see in your Subform references you are using both a Exclamation Point and a Period.
    Forms!OrderF!OrderDetailF!.Form.Refresh

Remove the extra Exclamation Points.
    Forms!OrderF!OrderDetailF.Form.Refresh

Value From Subform

Keven,
Thank you for your reply, I used the code in Richard's Tech Help Extended Cut (Access Membership Database. Recurring Billing)
Will go through it and compare my code, must have made a mistake or more.