• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1572
  • Last Modified:

Displaying a SUM value in a textbox using VBA

Hi,

I have a textbox on a form (txtCurrentBill) where I would like to display the user's current bill.

I have globally declared the the unique Account number (lngBarNo) based on the logged in user.

I would like to reference the Transactions table (tblTransactions) and display the Sum of the Amount field in tblTransactions for the given account number and where the Invoiced field = No

I tried using a SQL statement but this didn't work too well :(

Any idea what's wrong with my code or is there a better/cleaner way to do this?

Thanks in advance


Dim mydb As Database, rsEnq As Recordset
    Dim sqlCurrentBill As String
 
    sqlCurrentBill = "SELECT tblTransactions.BarNo, Sum(tblTransactions.Amount) AS SumOfAmount, tblTransactions.Invoiced " & vbCrLf & _
    "FROM tblTransactions " & vbCrLf & _
    "GROUP BY tblTransactions.BarNo, tblTransactions.Invoiced " & vbCrLf & _
    "HAVING (((tblTransactions.BarNo)= '" & lngBarNo & "') AND ((tblTransactions.Invoiced)=""No""));"
 
    ' Create database.
    Set mydb = DBEngine.Workspaces(0).Databases(0)
 
    ' Create dynaset.
    Set rsEnq = mydb.OpenRecordset(sqlCurrentBill, DB_OPEN_SNAPSHOT)
 
    ' Populate text box controls.
    On Error Resume Next
    Me![txtCurrentBill].Value = rsEnq.Fields("[SumOfAmount]").Value
 
    mydb.Close

Open in new window

0
itmtsn
Asked:
itmtsn
  • 2
2 Solutions
 
peter57rCommented:
Me![txtCurrentBill]=DSum("Amount","tblTransactions", "BarNo= " & lngBarNo & " AND Invoiced='No')

This assumes lngBarNo is a number.
0
 
itmtsnAuthor Commented:
When I copy/paste that into my code, I get

Compile error:

Expected: List seperator or )

0
 
itmtsnAuthor Commented:
Managed to get it working, thanks for the help :)
    Dim curX As Currency
    On Error Resume Next
    curX = DSum("[Amount]", "tblTransactions", _
    "[BarNo] = " & lngBarNo & " AND [Invoiced] = 'No'")
    Me.txtCurrentBill.Value = curX

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now