Question : Assign the value from an db.OpenRecordset("Select ... statement to a variable

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
mdlp

 
****************   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")
 
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

Need to;
'Calc box size and weight
'Print pick label


Exit_cbColShpQnty_Click:
    Exit Sub

Err_cbColShpQnty_Click:
    MsgBox Err.Description
    Resume Exit_cbColShpQnty_Click
   
End Sub

Attachments:

ActCost.mdb (148 KB) (File Type Details) 

sample data for the issues

Answer : Assign the value from an db.OpenRecordset("Select ... statement to a variable

do your routers have a web interface enabled?  If so it can be done through there.  Otherwise you can
thank kenboonejr for this walk through.


kenboonejr:First log on to the router either via telnet, ssh or through the console port.
It should prompt you for a login.
Once you are logged in you will need to be in enable mode.
If you see the prompt like this:

hostname>    

Note that is a greater than sign - then you are not in enable mode so if that is the case type
"enable" and hit enter

If you are at enable mode it will look like this:

hostname#

With a # sign after the name

Now you type "config t" and hit enter

Your prompt will change to hostname(config)#

ip name-server x.x.x.x y.y.y.y

where x.x.x.x and y.y.y.y are you primary and secondary name servers.

Hit enter after you type that in, then type exit and enter

Then type "wr mem" and enter to save the config.