Sorry for the confusion, I am sharpening my skills. Below is what I had before the additional requirements were realized.
My code is as followed:
Private Sub Command378_Click()
DoCmd.RunSQL "INSERT INTO tblLogNPRFinalIDs ([NPR ID], [User ID], [Number of Parts], [NPR Name], [Director_Manager], [Oracle Prod], [Oracle UAT2], [Online Store], [ServiceMax], " & _
"[ECommerce], [Price Force], [Price Book], [Zuora UAT], [Zuora Prod], [Finance], [Contract], [Planning Analysis], [Order Management], [Postal Compliance], [Service], " & _
"[Legal], [Leasing], [Memphis], [PriceBook], [Operations], [Approval Required], [Finance Approval Rec Date], [Contract Approval Rec Date], [Planning Analysis Approval Rec Date], " & _
"[Order Mngmnt Approval Rec Date], [Postal Compliance Approval Rec Date], [Service Approval Rec Date], [Legal Approval Rec Date], [Leasing Approval Rec Date], [Memphis Approval Rec Date], " & _
"[PriceBook Approval Rec Date], [Operations Approval Rec Date]) " & _
"SELECT [NPR ID] & '.1', [User ID], [Number of Parts], [NPR Name], [Director_Manager], [Oracle Prod], [Oracle UAT2], [Online Store], [ServiceMax], [ECommerce], [Price Force], " & _
"[Price Book], [Zuora UAT], [Zuora Prod], [Finance], [Contract], [Planning Analysis], [Order Management], [Postal Compliance], [Service], [Legal], [Leasing], [Memphis], [PriceBook], [Operations], " & _
"[Approval Required], [Finance Approval Rec Date], [Contract Approval Rec Date], [Planning Analysis Approval Rec Date], [Order Mngmnt Approval Rec Date], [Postal Compliance Approval Rec Date], [Service Approval Rec Date], " & _
"[Legal Approval Rec Date], [Leasing Approval Rec Date], [Memphis Approval Rec Date], [PriceBook Approval Rec Date], [Operations Approval Rec Date] " & _
"FROM tblLogNPRFinalIDs " & _
"WHERE ([NPR ID] = '" & Me.Combo233 & "')"
Call SendRejectEmail
End Sub