Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Still on single record file

1 view
Skip to first unread message

Luciano Marrocco

unread,
May 21, 2001, 5:52:08 PM5/21/01
to
The following code give me error 33 Record Not Available
Why?

OPEN(NUMERI)
Access:NUMERI.Close() !Clse file
Access:NUMERI.Open
SET(NUMERI)
Access:NUMERI.Next()
PRE:NUMREG=NUM:NUMREG+1
NUM:NUMREG=PRE:NUMREG
Access:NUMERI.Update() ! PUT(NUMERI)
Relate:NUMERI.Close !Clse file

Thank for help

Luciano


Steve Parker

unread,
May 21, 2001, 5:58:00 PM5/21/01
to
Check the FAQ on control files in my kb

--

Steve Parker
[Team Topspeed - Internet Connect]

-------------------------------------------------------------
Knowledge base: www.par2.com/cws/c5launch.dll/faqs/thefaqs.exe.0
Download center: www.par2.com/cws/c5launch.dll/d7.exe.0
--------------------------------------------------------------

"Luciano Marrocco" <mult...@tin.it> wrote in message
news:3b09...@news.softvelocity.com...

Luciano Marrocco

unread,
May 21, 2001, 6:11:06 PM5/21/01
to
Steve
i read your FQA and your article in Clarion Magazine
but I have not found the reason of error 33

"Steve Parker" <spa...@megsinet.net> ha scritto nel messaggio
news:3b0990e5$1...@news.softvelocity.com...

Eddie Sizemore

unread,
May 21, 2001, 6:38:41 PM5/21/01
to
If there is no records in the file you will get error 33 when you call the
update method.

"Luciano Marrocco" <mult...@tin.it> wrote in message
news:3b09...@news.softvelocity.com...

Mark Riffey

unread,
May 21, 2001, 6:43:31 PM5/21/01
to
In article <3b09...@news.softvelocity.com>, Luciano Marrocco wrote:
> OPEN(NUMERI)
> Access:NUMERI.Close() !Clse file
>

Im not sure why this is here, but the rest of it looks fine to me,
other than the fact that you are mixing relate: and access: (which may
or may not cause you some grief) and legacy and ABC open/close logic.


---
Mark Riffey
Granite Bear Development
http://www.granitebear.com

Software for professional photography
studios, cultured marble / cast polymer /
solid surface manufacturers and non-profit
organizations

Steve Parker

unread,
May 21, 2001, 7:11:57 PM5/21/01
to

Access:NUMERI.Open
SET(NUMERI)
If Access:NUMERI.Next()

PRE:NUMREG=NUM:NUMREG+1
NUM:NUMREG=PRE:NUMREG
Access:Numeri.Insert
Else

PRE:NUMREG=NUM:NUMREG+1
NUM:NUMREG=PRE:NUMREG
Access:NUMERI.Update() ! PUT(NUMERI)
End
Access:NUMERI.Close !Clse file

Luciano Marrocco

unread,
May 21, 2001, 7:40:55 PM5/21/01
to
Thank you Steve, now it work.

Luciano

"Steve Parker" <spa...@megsinet.net> ha scritto nel messaggio

news:3b09a239$1...@news.softvelocity.com...

0 new messages