VB Code for Access DB for Inventory Tracking with FIFO

[rao.gnaneswara]

Thanks for the update. Good luck with your project.

Hi

I finished the inventory project successfully which has now capability evaluate all of our fleet vessels inventory on FIFO basis. I am very thankful for your help on this.



best regards
TG

[rao.gnaneswara]

OK, there were a few things wrong.

You forgot to include the procedure’s argument, rlngAdjustmentID, both in the procedure’s declaration and in the call to the procedure.

The procedure declaration should be:

Public Sub AllocateConsumption(rlngAdjustmentID As Long)

And the call to the procedure:

Mod_AllocateConsumption.AllocateConsumption Me.AdjustmentID

There are some spelling mistakes – all mine I think, sorry! – but it was difficult without having the actual table definition.

My procedure tested something called AdjustmentType which does not exist; the correct name is AdjustType.

ElseIf rstSparesAdjusted!AdjustType <> "Consumption" Then

Similarly SparesID should be SpareID

lngSpareID = rstSparesAdjusted!SpareID

"WHERE SpareID = " & lngSpareID & " AND (QtyAdjusted - Nz(ConsumedQTYfromReceipts,0)) > 0 " & _

Again QtyAdjust should be QtyAdjusted

lngQtyAvailable = !QtyAdjusted - Nz(!ConsumedQtyfromReceipts, 0)

The definition of ConsumedQtyfromReceipts has no default value of zero so nulls are possible. There are 5 lines to be changed to include a Nz(,0)

"WHERE SpareID = " & lngSpareID & " AND (QtyAdjusted - Nz(ConsumedQTYfromReceipts,0)) > 0 " & _

lngQtyAvailable = lngQtyAvailable + !QtyAdjusted - Nz(!ConsumedQtyfromReceipts, 0)

lngQtyAvailable = !QtyAdjust - Nz(!ConsumedQtyfromReceipts, 0)

!ConsumedQtyfromReceipts = Nz(!ConsumedQtyfromReceipts, 0) + lngQtyToAllocate

!ConsumedQtyfromReceipts = Nz(!ConsumedQtyfromReceipts, 0) + lngQtyAvailable

I have made these changes and return the database.

Attachment 9764

Two points:

1. I recommend you always include Option Explicit at the start of every module.
2. There is no check to determine whether a receipt has already been allocated.

Hi

Thanks a lot to you on this info.It could give me lot understanding how I should work on these tables. Thank you very much buddy. Finally, I finished by inventory project now.