Pergunta : Atribuir o valor de um db.OpenRecordset (“selecionar… a indicação a uma variável

Peritos, eu tenho que começ um valor que seja uma soma () de uma coluna em um mdb separado, mim usaly o
open com dao e findfirst, a seguir o laço para cada um e manter um total running.  Mas como eu tenho lido que um seleto deve ser muito mais rápido, mas eu não posso consegui-lo trabalhar. o código do

This existe em uma base de dados diferente e é alcançado através de uma rede em um MACILENTO, aquele é porque eu estou usando DAO, e aquele é porque eu não estou usando o laço, é era retardar. Não saber se você precisa este information.
This é o erro; “Demasiado poucos parâmetros esperaram que 1
This é onde deixa de funcionar;  Ajustar os rs = o

What que de db.OpenRecordset (“soma seleta (contagem) da venda onde InvNo = dblInvNo”) eu estou fazendo não pude ser a melhor maneira assim em outras palavras o que é a maneira a mais rápida de começ a seguinte resposta do MDB unido; o
se o dblInvNo = então o dblCount 2401 = o 325

Thank você muito **************** do
de Experts
mdlp

ISTO É O CÓDIGO QUE EU O TENHO ATÉ ESTE *************** do
do PONTO é atualmente diplomata do erro secundário do
On do cbColShpQnty_Click do button

Private do comando a um strDBname empreendedores de Err_cbColShpQnty_Click

Dim () como o DB de String
Dim como rs de DAO.Database
Dim como o stDocName de DAO.Recordset
Dim como o dblInvNo de String
Dim como o dblCount de Double
Dim como Double

dblInvNo = [formulários]! [CollectShippingQty]! [tbInvNo] o

strDBname = de “W:\ActCost.mdb " DB = de
Set de OpenDatabase (strDBname) rs =
do
de db.OpenRecordset
Set (“venda”, dbOpenDynaset) 'ERRROR = “demasiado poucos parâmetros esperou os rs de 1
= o
rs do
de db.OpenRecordset (“soma seleta (contagem) da venda onde InvNo = dblInvNo”). Rs de Close
Set = Nothing
db. Close
Set DB = Nothing

Need a; o tamanho da caixa do
'Calc e o weight
'Print escolhem o label


Exit_cbColShpQnty_Click: Saída Sub

Err_cbColShpQnty_Click do
:
End Sub
de Exit_cbColShpQnty_Click
do resumo do
MsgBox Err.Description
class= do " lastRow do

>Attachments do " nome " do class= do class= " valor " do

>