Loop Inside loop for writing text lines

[Aggelos]

Hi Guys!!!

Thanks in advance for any kind of help about this problem.

The problem:

Acces Database
One Table 'Orders' and second 'OrderItems'

I want to export in txt file using FSO and write all orderitems
ordered by orders.
And i want to write a blankline if the orderitems is more than 5, for
example, in one order.

I try to do using this code:

..........a lot of code here

=============== =============== =============== ====
if objrec3("expr10 00")<admin("cou nt_lines") Then
objfile.writeli ne orders_line
objrec1.movenex t
else
count = 0

Do While count < admin("count_li nes")

objfile.writeli ne orders_line
count = count+1
if count=admin("co unt_lines") Then
objfile.writeli ne
end if
Loop

objrec1.movenex t
end if

wend
objrec.movenext
if not objrec.eof AND objrec3("expr10 00")<admin("cou nt_lines") Then
objfile.writeli ne
else
end if
wend
=============== =============== =============== =============== =============== ==
.............. a lot of code here.

"objrec3("expr1 000")" is that counts the number of orderitems in one
order.
"admin("count_l ines")" is the number of lines that i want to write and
after this number of lines i want to write one blankline if
objrec3("expr10 00") is bigger than this.

This code works but it repeats "objrec3("expr1 000")", for example 8,
times the "objfile.writel ine orders_line", for example 8 times.
How can stop the loop and tell the code to stop repeat it, but
continue with the next "objfile.writel ine orders_line"?

Thanks in advance again.

[dlbjr]

Why not query the database to have one record per order with the count of
Order Items?
Show me the field names and I'll give you some sample code to do what you
want.

-dlbjr

Discerning resolutions for the alms

[Aggelos]

"dlbjr" <do******@do. u> wrote in message news:<%qbsb.181 $Qy4.14180@typh oon01>...

Why not query the database to have one record per order with the count of
Order Items?
Show me the field names and I'll give you some sample code to do what you
want.

-dlbjr

Discerning resolutions for the alms

Thank you for your reply.

1). The query of orders.
strsql="select OrderID,
CustomerID,Orde rDate,TotalSum, OrderItems,Orde rStatus from orders WHERE
OrderStatus = 'ok'"

2). The query of orderitems inside while not objrec.eof.. wend.
strsql1="select OrderItemID,Ord erID,ProductID, ItemNumber,Item Price
from orderitems where orderid = " & orderid