User Profile

Collapse

Profile Sidebar

Collapse
Digital Oatmeal
Digital Oatmeal
Last Activity: May 18 '12, 09:15 PM
Joined: Mar 27 '12
Location:
  •  
  • Time
  • Show
  • Source
Clear All
new posts
  • Digital Oatmeal
    replied to Calling an adodb recordset in a text box
    in Access
    Don't give me all the credit. I did have a little help from my friends.

    < SNIP >
    See more | Go to post
    Last edited by NeoPa; Apr 1 '12, 11:24 AM. Reason: Links to competing forum sites are not allowed.

      Leave a comment:

    • Digital Oatmeal
      replied to Calling an adodb recordset in a text box
      in Access
      SOLVED!!!!!

      Here's the code:
      Code:
      Function Receipts(ByVal CHEMICAL As String) As Variant
    Dim sql As String
    Dim beginningDate As Date
    Dim endingDate As Date
    Dim chemicalID As String

    beginningDate = DateAdd("h", 6, [Forms]![frmProduction]![txtBeginningDate])
    endingDate = DateAdd("h", 30, [Forms]![frmProduction]![txtEndingDate])
    chemicalID
      ...
      See more | Go to post
      Last edited by NeoPa; Mar 27 '12, 11:28 PM. Reason: Added mandatory [CODE] tags for you.

        Leave a comment:

      • Digital Oatmeal
        replied to Calling an adodb recordset in a text box
        in Access
        Rookie mistake. Now I have this:
        Code:
        SELECT (Sum(Abs([tblReceiptScaleData]![WeightIn1]-[tblReceiptScaleData]![WeightOut2]+[tblReceiptScaleData]![WeightIn2]-[tblReceiptScaleData]![WeightOut1]))) AS OffloadQty
FROM ItemMasterList INNER JOIN (sPULINH INNER JOIN tblReceiptScaleData ON sPULINH.Pono=tblReceiptScaleData.OrderNumber) ON ItemMasterList.SAGEItemKey=sPULINH.Itemkey
WHERE (((ItemMasterList.OperationsDescription) ='BD') And ((tblReceiptScaleData.TimeOut2)>=#3/27/2012
        ...
        See more | Go to post
        Last edited by NeoPa; Mar 27 '12, 11:27 PM. Reason: Added mandatory [CODE] tags for you

          Leave a comment:

        • Digital Oatmeal
          started a topic Calling an adodb recordset in a text box
          in Access

          Calling an adodb recordset in a text box

          I am trying to call a function from a text box on a subform that returns a summed total of a single calculated field. I need to reproduce this function in multiple subforms so it is encapsulated as possible. Here's the code:

          Code:
          Function Receipts(ByVal CHEMICAL As String) As ADODB.Recordset
    Dim sql As String
    Dim beginningDate As Date
    Dim endingDate As Date
    Dim chemicalID As String
          ...
          See more | Go to post
          No activity results to display
          Show More
          Working...