скорее всего, в этом инвойсе 2 позиции
если будет 3 позиции - будет утроивать.
попробуйте построить построителем Ваш запрос и посмотреть кол-во записей, которое возвращает запрос.

РС
переходите на АДО - можно контролировать все операции

эта ссылка не на кол-вл строк с таблице, а на нумерацию строк запроса:
http://hiprog.com/index.php?option=com_content&task=view&id=359&Itemid=35
кол-во записей в форме можно посчитать так:
http://hiprog.com/index.php?option=com_content&task=view&id=121

Отказался я от запросов SQL. Перешел на ADO

мне кажется Вы путаете понятия.
ADO - механизм доступа к данным
SQL - язык запросов

можно отказаться от JET или DAO в пользу ADO, но никак от SQL в пользу ADO.
rst.open "select * from tbl" .....
это разве не SQL?

IMHO, исполнение запроса на обнолвение (методами JET, ADO или DAO), всегда быстрее чем построчная работа с рекордсетом.

>перешел на заполнение временной таблицы с помощью рекордсета
А если временную таблицу заполнять запросом на добавление, IMHO, будет еще быстрее.
Мое личное убеждение:
"всегда и везде, где возможно, использовать .EXECUTE вместо
.EDIT (.ADDNEW) + .UPDATE

Если запрос на обновление обслуживает одну таблицу и расчеты относительно просты, то работать с ним легко, приятно и быстро: EXECUTE - будьте любезны. Если для расчета требуются данные из нескольких таблиц, данные подлежат проверке, обработке и пр. - без вложенных запросов врядли обойдешься, а это уже не так быстро работает. Конечно, я погорячился, заявив, что отказался от SQL, но в подобных случаях я выбираю ADO, открываю необходимое количество рекордсетов, некоторые из них просто служат массивами данных, а разумное использование курсора и методов блокировки дает хорошие результаты. Кроме того, в этом случае алгоритм расчета можно записать в таблицу, и для изменения параметров расчета достаточно добавить(удалить) строку, столбец, отредактировать таблицу ) а не редактировать код. Что же до: rst.Open "Select * from tbl", то можно rst.Open "tblName"

ничего себе дискуссия................
енто конечно приятно, что задета такая наболевшая тема.................
и людей она интересует, но ощущаю я себя честно говоря не лучшим бразом, как бы слегка малограмотным..................
так вот..........
вернумся к нашим баранам..................

я на форме приляпал кнопку34 и поле35...........
и на "нажате кнопки " повесил следующее....................

Private Sub кнопка34_Click()

Dim rstSrc As Recordset
Set rstSrc = Me.Form.RecordsetClone
If rstSrc.RecordCount < 1 Then ' нет записей в форме
MsgBox "в форме отсутствуют строки", vbInformation, "Ошибка"
Exit Sub
End If '.RecordCount < 1
With rstSrc
.MoveLast
.MoveFirst
End With

поле35.Value = rstSrc.RecordCount

End Sub

но при нажатии выдает ошибку :

compile error
user-defined type not defined.

ну так вот ...............
поумничали теоретически..........
пора бласнуть практическими знаниями..............
подскажите малограмотному самоучке.............
как говориться - сами мы не местные и т.д. и т.п...................

>http://hiprog.com/index.php?option=com_content&task=blogcategory&id=119&Itemid=159
>вопрос №2

>Отсюда вывод:
>нужно явно описывать тип рекордсета который вы будете использовать, тогда вы не будете >зависить от порядка подключения библиотек.

>dim srt as DAO.Recordset

>или

>dim rst as ADODB.recordset


пробовал оба варианта..............
тот же результат...............

причем выделяет желты строку

>Private Sub кнопка34_Click()

так в чем же ошибка.???........

Public Function RecordCounter(frm As Form) As Variant
On Error GoTo ErrorHandler
Dim rs As DAO.Recordset
Set rs = frm.Recordset.Clone

If rs.BOF And rs.EOF Then
RecordCounter= "Нет записей"
Else
rs.MoveLast
rs.MoveFirst
RecordCounter=rs.RecordCount

End If

ErrorHandler:

Set rs = Nothing

If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Ошибка"
End If

Private Sub кнопка34_Click()
поле35.Value = RecordCounter(Me)
End Sub