Вопрос : Задайте значение от db.OpenRecordset («выберите… заявление к перемеююому

Специалисты, я должен получить значением которое будет сумма () колонки в отдельно mdb, я usaly
open с dao и findfirst, тогда петля для каждого и сдержать идущий итог.  Но по мере того как я читал что отборное должно быть гораздо быстре, но я не могу получить, что его работал. Кодий

This существует в по-разному базе данных и достигано через сеть на БОЛЕЗНЕННОМ, то почему я использую DAO, и то почему я не использую петлю, должно было замедлять. Не знайте если вам нужно это information.
This будете ошибкой; «Слишком немногие параметров предпологали 1
This где оно разбивает;  Установите rs =

What, котор db.OpenRecordset («отборной суммы (отсчета) от сбывания где InvNo = dblInvNo») я делаю не мог быть самой лучшей дорогой настолько иначе говоря будет самой быстрой дорогой получить следующий ответ от прикрепленного MDB;
если dblInvNo = после этого dblCount 2401 = 325

Thank вы очень много ****************
Experts
mdlp

ЭТО БУДЕТ КОДИМ, то Я ИМЕЮ ДО ЭТОГО ***************
ПУНКТА его будет в настоящее время атташе к ошибки
On cbColShpQnty_Click button

Private командование strDBname Err_cbColShpQnty_Click

Dim Sub () переход как db String
Dim как rs DAO.Database
Dim как stDocName DAO.Recordset
Dim как dblInvNo String
Dim как dblCount Double
Dim как Double

dblInvNo = [формы]! [CollectShippingQty]! [tbInvNo]

strDBname = «W:\ActCost.mdb " db =
Set OpenDatabase (strDBname) rs =

db.OpenRecordset
Set («сбывание», dbOpenDynaset) 'ERRROR = «слишком немногие параметров надеялось rs 1
установленные =
rs
db.OpenRecordset («отборная сумма (отсчет) от сбывания где InvNo = dblInvNo»). Rs Close
Set = Nothing
db. Close
Set db = Nothing

Need к; размер коробки
'Calc и weight
'Print выбирают label


Exit_cbColShpQnty_Click: Выход Sub

Err_cbColShpQnty_Click
:
End Sub
Exit_cbColShpQnty_Click
резюма
MsgBox Err.Description
class= " lastRow

>Attachments " имени " class= class= " значение "

>