Question : Assigner la valeur d'un db.OpenRecordset (« choisir… le rapport à une variable

Des experts, je dois obtenir une valeur qui est une somme () d'une colonne dans un mdb séparé, je usaly le
open avec le dao et le findfirst, puis la boucle pour chacun et garder un cumul.  Mais car j'avais lu qu'un choisi devrait être beaucoup plus rapide, mais je ne peux pas l'obtenir pour fonctionner. le code du

This existent dans une base de données différente et sont accédés par l'intermédiaire d'un réseau sur un WAN, c'est pourquoi j'emploie DAO, et c'est pourquoi je n'emploie pas la boucle, est était de ralentir. Ne pas savoir si vous avez besoin de cet information.
This est l'erreur ; « Trop peu de paramètres ont prévu que 1
This est où il se brise ;  Placer les rs =

What de db.OpenRecordset (le « somme choisie (compte) de vente où InvNo = dblInvNo ») que je fais ne pourrais pas être la meilleure manière tellement en d'autres termes ce qui est la manière la plus rapide d'obtenir la réponse suivante du MDB joint ; le
si le dblInvNo = puis le dblCount 2401 = le 325

Thank vous vraiment **************** du
d'Experts
mdlp

CECI EST LE CODE QUE JE L'AI JUSQU'à CE *************** du
de POINT est actuellement attaché à un strDBname GoTo d'Err_cbColShpQnty_Click

Dim de cbColShpQnty_Click du button

Private de commande () d'erreur secondaire du
On comme DB de String
Dim comme rs de DAO.Database
Dim comme stDocName de DAO.Recordset
Dim comme dblInvNo de String
Dim comme dblCount de Double
Dim comme Double

dblInvNo = [des formes] ! [CollectShippingQty] ! [tbInvNo] le

strDBname = de « W:\ActCost.mdb " DB = les rs de
Set d'OpenDatabase (strDBname) = le
du
de db.OpenRecordset le
Set (« vente », dbOpenDynaset) 'ERRROR = « trop peu de paramètres s'est attendu les rs de 1
= au
rs du
de db.OpenRecordset (« somme choisie (compte) de vente où InvNo = dblInvNo »). Rs de Close
Set = Nothing
db. Close
Set DB = Nothing

Need à ; la taille et le weight
'Print de boîte du
'Calc sélectionnent le label


Exit_cbColShpQnty_Click : Sortie Sub

Err_cbColShpQnty_Click du
:
End Sub
d'Exit_cbColShpQnty_Click
de résumé du
MsgBox Err.Description
class= " lastRow de

>Attachments de " nom " de class= de

class= " valeur " de

>