Have a form OrderForm that adds a new record to the table ShipAddress(relationship One) and a subform OrderDetails with a table OrderDetails(relationship Many). In the ShipAddress table there is a field with a primary key named OID, that field gets populated with a DMax("[OID]","ShipAddress")+1, through the OrderForm.(That is what my problem is)

I have a select query RenewalForm and 3 append queries ShipAddressAppendForRenewals , OrderDetailsAppendForRenewals and "ShipAddressUpdateForRenewals".

From a Command button:
DoCmd.SetWarnings False
DoCmd.OpenQuery "ShipAddressAppendForRenewals"
DoCmd.OpenQuery "OrderDetailsAppendForRenewals"
DoCmd.OpenQuery "ShipAddressUpdateForRenewals"
DoCmd.SetWarnings True

These queries add a new record for customers when the renewal date comes up. There is a unique field named LotNumber and if I restrict the queries to only one lot number it works fine. If there is more than one customer, it tries to assign the same OID to all of them with no success because of the primary key, only one customer appends and it may not be the same information required for both tables. I would like if there is more than one customer to be renew, to be able to run the queries only once and add the records of all the customers up for renewal at the same time and then print the invoices. The report name is Invoice. This is the SQL for all 3 queries:

RenewalForm SQL
SELECT ColdStorageInvoicingQuery.BilledDate, ColdStorage2323.LotNumber, ColdStorageInvoicingQuery.ShipName, ColdStorage2323.ProductDescription, ColdStorage2323.[Renewal Rate], ColdStorage2323.BoxesIn AS PalletsIn, ColdStorageInvoiceQuery2.SumOfPalletsOut, [PalletsIn]-[SumofPalletsOut] AS BillablePallets, [Renewal Rate]*[BillablePallets] AS InvAmt, ColdStorageInvoicingQuery.OID, ColdStorageInvoicingQuery.DateIn, ColdStorage2323.CID, ColdStorage2323.Fresh, ColdStorage2323.Frozen, IIf(Month([BilledDate])=2,DateAdd("d",28,[BilledDate]),DateAdd("d",31,[BilledDate])) AS [Month]
FROM (ColdStorage2323 LEFT JOIN ColdStorageInvoicingQuery ON ColdStorage2323.LotNumber = ColdStorageInvoicingQuery.ColdStorage2323.LotNumber) LEFT JOIN ColdStorageInvoiceQuery2 ON ColdStorage2323.LotNumber = ColdStorageInvoiceQuery2.LotNumber
WHERE (((ColdStorageInvoicingQuery.BilledDate)<=Date()-30) AND ((ColdStorage2323.DateClosed) Is Null))
ORDER BY ColdStorageInvoicingQuery.BilledDate, ColdStorage2323.LotNumber;

ShipAddressAppendForRenewals SQL
INSERT INTO ShipAddress ( LotNumber, Notes, ShipName, CID, EID, ShipAddress, ShipCity, ShipState, ShipPostalCode, FOrderPerson, OID, COD, Cash, Charge, Deliver, Pickup )
SELECT RenewalForm.LotNumber, RenewalForm.ProductDescription, RenewalForm.ShipName, RenewalForm.CID, [Forms]![CurrentUser]![Text4] AS Expr3, Customers.Address, Customers.City, Customers.St, Customers.PostalCode, [Forms]![CurrentUser]![Text4] AS Expr9, DMax("[OID]","ShipAddress")+1 AS Expr4, Customers.COD2, Customers.Cash2, Customers.Charge2, Customers.Deliver2, Customers.Pickup2
FROM RenewalForm INNER JOIN Customers ON RenewalForm.CID = Customers.CID;

OrderDetailsAppendForRenewals
INSERT INTO OrderDetails ( Box, WeightUnits, TWeightUnits, ExtPrice, BoxShip, QShipped, PrdtID, OID, ProductName2, Price, LotNumber )
SELECT RenewalForm.BillablePallets, RenewalForm.BillablePallets, RenewalForm.BillablePallets, RenewalForm.InvAmt, RenewalForm.BillablePallets, RenewalForm.BillablePallets, "ZzStorage01" AS Expr1, DLast("[OID]","[ShipAddress]") AS Expr2, "Renewal Storage" AS Expr3, RenewalForm.[Renewal Rate], RenewalForm.LotNumber
FROM RenewalForm;

"ShipAddressUpdateForRenewals"
UPDATE ShipAddressUpdateForRenewalsMain SET ShipAddressUpdateForRenewalsMain.ShippedDate = Date(), ShipAddressUpdateForRenewalsMain.OrderDate = Date();

Thank you for any help. If need be I am willing to pay a fee to get this to work.