Module Code:
Option Compare Database
Option Explicit
Public Sub UpdateQty_TOT(pType As String, pBarcode As String, pQty As Integer, pLoc_cls As String)
Dim db As DAO.Database, sqlTable As String, sqlExpr As String, sqlWhere As String
Set db = CurrentDb
sqlTable = Choose(Val(pLoc_cls), "Update...