Questione : Assegnare il valore da un db.OpenRecordset (“selezionare… la dichiarazione ad una variabile

Esperti, devo ottenere un valore che è una somma () di una colonna in un mdb separato, io usaly
open con il dao e findfirst, quindi ciclo per ciascuno e mantenere un totale corrente.  Ma poichè sto leggendo che un prescelto dovrebbe essere molto più veloce, ma non posso convincerlo per funzionare. il codice del

This esiste in una base di dati differente ed è raggiunto via una rete su una WAN, ecco perché sto usando DAO e ecco perché non sto usando il ciclo, sono dovevo ritardare. Non sapere se avete bisogno di questo information.
This siete l'errore; “Troppo pochi parametri hanno preveduto che 1
This fosse dove si arresta;  Regolare i rs = il

What che di db.OpenRecordset (“somma prescelta (conteggio) dalla vendita dove InvNo = dblInvNo„) sto facendo non potrei essere il migliore senso così in altre parole che cosa è il senso più veloce ottenere la seguente risposta dal MDB allegato; il
se il dblInvNo = allora dblCount 2401 = 325

Thank voi molto **************** del
di Experts
mdlp

QUESTO È IL CODICE CHE FINO a QUESTO *************** del
del PUNTO esso è attualmente addetto ad uno strDBname di avanzamento di Err_cbColShpQnty_Click

Dim del cbColShpQnty_Click del button

Private di ordine () di errore secondario del
On come db di String
Dim come rs di DAO.Database
Dim come stDocName di DAO.Recordset
Dim come dblInvNo di String
Dim come dblCount di Double
Dim come Double

dblInvNo = [forme]! [CollectShippingQty]! [tbInvNo] il

strDBname = “di W:\ActCost.mdb " db = rs del
Set di OpenDatabase (strDBname) =
del
di db.OpenRecordset il
Set (“vendita„, dbOpenDynaset) 'ERRROR = “troppo pochi parametri ha preveduto i rs di 1
= il
rs del
di db.OpenRecordset (“somma prescelta (conteggio) dalla vendita dove InvNo = dblInvNo„). Rs di Close
Set = Nothing
db. Close
Set db = Nothing

Need a; il formato della scatola del
'Calc e il weight
'Print selezionano il label


Exit_cbColShpQnty_Click: Uscita Sub

Err_cbColShpQnty_Click del
:
End Sub
di Exit_cbColShpQnty_Click
del riassunto del
MsgBox Err.Description
class= " lastRow del

>Attachments " di nome " del class= del class= " valore " del

il