When receiving a purchase order in Northwind, receiving all records when press on a button

Question

Good morning,
This is a challenging request, I did not figure out how to receive all items at once in the receiving tab. I have created a button named "Post test" on which I have a test code that doesn't do exactly the right thing. I am posting the code from
the original database that works, but we have to do the receiving one row at a time, it is ok when we have few products on a purchase order, but when a user has 150 items, this is becoming time consuming.
So here is an image follow by the original the codes. (The code on the button is at the end of that document, you might want to begin there) is you understand my error faster.
Here is the link for accessing the Northwind database and a document on OneDrive
https://onedrive.live.com/redir?resid=F7190044A52FAE85%21663
My code on the button "Post test":
Private Sub Post_test_Click()
Dim InventoryID As Long
Dim ProductID As Long
Dim Quantity As Long
Dim PurchaseOrderID As Long
Dim InvoiceID As Long
PurchaseOrderID = Nz(Forms![Détails bon de commande].[Réf bon de commande], 0)
Dim rsw As New WrapperJeuEnregistrements
With rsw.GetRecordsetClone(Forms![Détails bon de commande].sbfPurchaseReceiving.Form.Recordset)
While Not .EOF
.Edit
![Date de réception] = Date
![Entré en inventaire] = True
ProductID = Nz(Me![Réf produit], 0)
Quantity = Nz(Me![Quantité], 0)
InventoryID = Nz(Me![Réf inventaire], 0)
If Inventaire.AddPurchase(Me![Réf bon de commande], ProductID, Quantity, InventoryID) Then
If InventoryID > 0 Then
Me![Réf inventaire] = InventoryID
Me![Entré en inventaire] = True
End If
End If
If InventoryID > 0 Then
Me![Entré en inventaire] = True
End If
rsw.Update
rsw.MoveNext
Wend
End With
Forms![Détails bon de commande].Requery
End Sub
I did have a post last week, but I have received 1 answer that specified that the original code was missing...
Thank you for your time...
Claude from Québec, Canada
Claude Larocque

Answer 1

Hi Claude,
I have downloaded the files and I tried to do as the steps in the document, but failed. When I tried to open the forms I got the error message "Item not found in this collection".
>>I did not figure out how to receive all items at once in the receiving tab
In my option, if you want to get all the items, yo​u could add a new query. You could query all the items you want and add a button to the form, when you want to show the all items, you could click the button to run the query. I have viewed the code you
provided, you requery the "Détails bon de commande" form which did not change the query statement, I think you could add a new form and bind a new query to it.
>>however, this is the model created by Microsoft that we can use in Access 2010 and 2013
This model is much complex and the logic of the model is complex too, as your description, some parets of the code is useless, I think we could recreate a new empty database and create the forms which are needed instead of modifying it in the original version.
Best Regards,
Edward
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click HERE to participate the survey.