Experts, I have to get a value that is a sum() of a column in a seperate mdb, I would usaly
open with dao and findfirst, then loop for each and keep a running total. But as I have been reading that a select should be much faster, but I can not get it to work.
This code exist in a different database and is accessed via a network on a WAN, that is why I am using DAO, and that is why I am not using the loop, is was to slow. Don't know if you need this information.
This is the error; "Too few Parameters expected 1
This is where it crashes; Set rs = db.OpenRecordset("select sum(Count) from sale where InvNo = dblInvNo")
What I am doing might not be the best way so in other words What is the fastest way to get the following answer from the attached MDB;
if dblInvNo = 2401 then dblCount = 325
Thank you very much Experts
**************** THIS IS THE CODE THAT I HAVE UP TO THIS POINT
*************** It is currently attache to a Command button
Private Sub cbColShpQnty_Click()
On Error GoTo Err_cbColShpQnty_Click
Dim strDBname As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim stDocName As String
Dim dblInvNo As Double
Dim dblCount As Double
dblInvNo = [Forms]![CollectShippingQty]![tbInvNo]
strDBname = "W:\ActCost.mdb"
Set db = OpenDatabase(strDBname)
Set rs = db.OpenRecordset("Sale", dbOpenDynaset)
'ERRROR = "Too few Parameters expected 1
Set rs = db.OpenRecordset("select sum(Count) from sale where InvNo = dblInvNo")
Set rs = Nothing
Set db = Nothing
'Calc box size and weight
'Print pick label
Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.