Results 1 to 4 of 4
  1. #1
    3bgt650 is offline Novice
    Windows 10 Access 2010 64bit
    Join Date
    Feb 2017
    Posts
    3

    Question Multiply two fields from two different tables and update a field in one of them with the result

    All - I'm working with an MS ACCESS 2010 db developed for timekeeping purposes.

    One table (TRHISTORY) is used to collect hours (HRS) and cost (COST) per job, per employee (EMP_ID). The other table (WAGE) holds rate data (ImgRate) for each employee (IngEMP_ID).

    TRHISTORY table fields:
    EMP_ID
    HRS


    COST

    WAGE table fields:
    IngEMP_ID
    ImgRage

    My question -

    How do I calculate cost using the above fields (TRHISTORY.HRS and WAGE.ImgRate) and update the COST field in each TRHISTORY record accordingly?

  2. #2
    ranman256's Avatar
    ranman256 is offline VIP
    Windows Vista Access 2010 32bit
    Join Date
    Apr 2014
    Location
    Kentucky
    Posts
    9,521
    join TRHISTORY.HRS and WAGE.ImgRate on the EmpID. Then make a calc field: (wage.Rage*tHistory.hrs)

  3. #3
    aytee111 is offline Competent At Times
    Windows 10 Access 2013 64bit
    Join Date
    Nov 2011
    Location
    Nomad
    Posts
    3,936
    Duplicate post.

  4. #4
    3bgt650 is offline Novice
    Windows 10 Access 2010 64bit
    Join Date
    Feb 2017
    Posts
    3
    OK - I have two Queries that run in sequence and populate the COST field in one of them using two different fields in two different tables. The code for each is below.

    No matter what I do the COST is NOT calculated and updated in the TRHistory.COST field - only zeros appear....?????

    First Query -
    INSERT INTO TRHistory ( CONNO, CDESC, SCNO, SCDESC, ORNO, ORDESC, STNO, STDESC, JCNID, JCNDESC, IDX, EMPNAME, EMPID, PCODE, SCOPE, CCAT, ALLOW, CCODE, FUNCT, TASK, DDONE, HRS, PGS, COST )
    SELECT tblContracts.Contract_No, tblContracts.Description, tblSubContracts.SubContract_No, tblSubContracts.Description, tblOrders.Order_No, tblOrders.Description, tblSubTasks.SubTask_No, tblSubTasks.Description, CLng (tblJCN.JCN_ID) AS JCNID, tblJCN.JCN_Description, Clng (tblPageTime.INDEX_ID) AS IDX, tblEmployees.strEmpName, tblEmployees.lngEmpID, tblJCN.PRODCODE, tblJCN.Scope, tblCostCodes.CostCat, tblCostCodes.Allowable, tblPageTime.COSTCODE, tblCostCodes.Funct, tblCostCodes.Task, tblPageTime.DateDone, tblPageTime.Hours, tblPageTime.Pages, (tblPageTime.Hours*Wage.lngRate) AS COST
    FROM tblPageTime, tblJCN, tblContracts, tblSubContracts, tblOrders, tblSubTasks, tblCostCodes, tblEmployees, Wage
    WHERE ((tblEmployees.lngEmpID=tblPageTime.EMP_ID)
    AND (tblEmployees.lngEmpID=Wage.lngEmpID)
    AND (tblPageTime.COSTCODE=tblCostCodes.COSTCODE)
    AND (tblJCN.JCN_ID=tblPageTime.JCN_ID)
    AND (tblSubContracts.Assc_Contract_No=tblContracts.Con tract_No)
    AND (tblOrders.Assc_SubCon_No=tblSubContracts.SubContr act_No)
    AND (tblJCN.Assc_SUBTASK_ID=tblSubTasks.SUBTASK_ID )
    AND (tblSubTasks.Assc_Order_No=tblOrders.Order_No)
    AND (tblPageTime.INDEX_ID NOT IN (SELECT IDX FROM TRHistory)
    ));

    The Other Query that runs after the above one:

    UPDATE TRHistory, tblPageTime, Wage, tblEmployees, tblContracts, tblSubContracts, tblOrders, tblSubTasks, tblJCN, tblCostCodes SET TRHistory.CONNO = tblContracts.Contract_No, TRHistory.CDESC = tblContracts.Description, TRHistory.SCNO = tblSubContracts.SubContract_No, TRHistory.SCDESC = tblSubContracts.Description, TRHistory.ORNO = tblOrders.Order_No, TRHistory.ORDESC = tblOrders.Description, TRHistory.STNO = tblSubTasks.SubTask_No, TRHistory.STDESC = tblSubTasks.Description, TRHistory.JCNID = CLng ( tblJCN.JCN_ID ), TRHistory.JCNDESC = tblJCN.JCN_Description, TRHistory.PCODE = tblJCN.PRODCODE, TRHistory.SCOPE = tblJCN.Scope, TRHistory.CCAT = tblCostCodes.CostCat, TRHistory.ALLOW = tblCostCodes.Allowable, TRHistory.CCODE = tblPageTime.COSTCODE, TRHistory.FUNCT = tblCostCodes.Funct, TRHistory.TASK = tblCostCodes.Task, TRHistory.DDONE = tblPageTime.DateDone, TRHistory.MODDATE = tblPageTime.ModDATE, TRHistory.HRS = tblPageTime.Hours, TRHistory.PGS = tblPageTime.Pages, TRHistory.COST = ( tblPageTime.Hours*Wage.lngRate )
    WHERE ( ( tblSubContracts.Assc_Contract_No=tblContracts.Cont ract_No )
    AND ( tblOrders.Assc_SubCon_No=tblSubContracts.SubContra ct_No )
    AND ( tblSubTasks.Assc_Order_No=tblOrders.Order_No )
    AND ( tblJCN.Assc_SUBTASK_ID =tblSubTasks.SUBTASK_ID )
    AND ( tblPageTime.COSTCODE=tblCostCodes.COSTCODE )
    AND ( tblJCN.JCN_ID=tblPageTime.JCN_ID )
    AND ( tblEmployees.lngEmpID=tblPageTime.EMP_ID )
    AND ( tblEmployees.lngEmpID=Wage.lngEmpID )
    AND ( TRHistory.DDONE<>tblPageTime.ModDate )
    AND ( CLng ( tblPageTime.INDEX_ID )=TRHistory.IDX ) );

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Replies: 1
    Last Post: 02-23-2017, 09:09 AM
  2. Replies: 30
    Last Post: 09-23-2015, 07:24 AM
  3. Replies: 3
    Last Post: 04-23-2014, 08:22 PM
  4. Replies: 8
    Last Post: 03-18-2012, 11:17 AM
  5. Ado update for multiply records
    By thanosgr in forum Access
    Replies: 26
    Last Post: 03-16-2012, 01:26 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums