Inventory Problem Beginner Database

[joe.ise]

Code it is then. I took a C++ class many years ago and barely passed, so I am not a code writer but I will try my best. What I have done is copied the last set of code we used to calculate current inventory and pasted it into "Module2" in the attached database. Then I wrote some comments, all begin with the double asterisks **. If you have time to look at that and give me some feedback that would be great.
Thanks RuralGuy

[RuralGuy]

I'm going to suggest you start by looking at your module and then go to Debug>Compile and fix all of the problems first. All modules should begin with:
Option Compare Database
Option Explicit
...to eliminate typos.

[joe.ise]

So I added "Option Explicit" to Module2, clicked Debug, Compile and it opened the Form_tblStockTake (Code) and threw the error shown in attached. So I added "Option Explicit" to Form_tblStockTake (Code) and it threw the same error.

[RuralGuy]

That's right. That code does not belong in the form and you can't put a Function inside of a Sub.

[joe.ise]

I am not exactly sure what a Sub is but I removed the line of code that I think was the Sub, Debugged again and got the attached error.

[RuralGuy]

You have still not renamed the Function in the 2nd module and the OnHand function is already in the 1st module.

[joe.ise]

Is the Form_CurrentInventory not supposed to have a Sub as well ? I also added "Option Explicit". Still getting same error.

[joe.ise]

Sorry, just saw your 8:26 am reply, working on it

[RuralGuy]

None of your errors are being caused by the Option Explicit statement. Option Explicit simply insists you Dim any variable before you use it.

[joe.ise]

OK
I renamed the function in Module2 to be OnHandTwo and anywhere else in the code where I saw OnHand I changed it to OnHandTwo. I clicked Debug and the Compile option was shaded out / not available. I assume that means it is good, not sure.

[RuralGuy]

Edit a module, Add a space somewhere and take it out and the Compile should now be available. If it completes without an error, you have made all of the corrections for now. Post a new copy of your zipped db for us.

[joe.ise]

I edited the module by adding a space and removing and compile became available as you said. It ran with no errors. I also added vOrderUpToQuantity in the top area of the function, Debugged and rand with no errors. I assume now I basically have a copy of the Allen Browne example in Module2 renamed OnHandTwo. So I think it should do the same thing as OnHand, so now I need to add codes somewhere at the bottom that says:
If CurrentInventory is less than ReOrderQuantity tell the user to order OrderUpToQuantity minus CurrentInventory.
New copy of zipped db attached as requested.

[RuralGuy]

I believe you've got it.

[joe.ise]

I took a stab at it. My code is in screenshot 12, my error after compiling is in screenshot 13. Any advice ? Thanks

[RuralGuy]

Every If requires an End If.