Kenneth wrote:
You have 'edit()' as part of the routine INSIDE the if eventinfo.id() block.

Are you sure it is in edit mode to start with? Cause the above would fail the
first time and work (likely) the second and subsequent times (sound like what
you are getting?) if the form wasn't in edit to start.

Also, if the tc2.open you have errorshow(); I would add 'return' to that since
you don't want errors cropping up when your code starts referencing a tcursor
that didn't get opened.

Is this code going to be used by more than one person; ever? Actully, the
table 'entrynumb.db'. If so, this code needs (critically) to be revisited
once you get the main issue resolved.

--
---------------
Tony McGuire

Actually, Tony referred to the edit() statement, not the endedit. What
exactly does an Edit() statement do without an associated object? I'm used
to saying myTc.edit() or something like that so I know what exactly is going
into edit mode.
"Kenneth" <usenet (AT) soleSPAMLESSassociates (DOT) com> wrote

On Fri, 9 Jan 2009 13:02:57 -0500, Jim Giner wrote:

Edit() without an associated object becomes a uiObject method, and (like
all such 'bare' uiObject methods) is interpreted as self.Edit().

That is -- as far as I can figure out. Bare uiObject methods confused the
heck out of me for many years, and this interpretation seems to work
consistently.

FWIW,

--
Jim Hargan

Inline.

On Fri, 09 Jan 2009 10:23:19 -0500, Kenneth wrote:
; Otherwise, it fails, and no record has been added.

; to me which record it is pointing to. I expect it points to the first
; record.

; the table.


; Note that you are changing its primary key!


; corresponds to a field in the table -- equals the first record's
; entryNum, which you incremented three steps ago.

; The change you made to the record shown by the form, which may or may
; not be a different record, has not yet been posted.

OK, lemme make a suggestion.
First, I am assuming that entryNum is the table's primary key. This means
that, when the tCursor opens on the table and points to the first record,
it will be pointing to the record with the /lowest/ entryNum, and that the
last record will be the one with the /highest/ entryNum.

var
flg logical
tc2 tCursor
li longint
endVar

flg = FALSE
if not isEdit() then
flg = TRUE
edit()
endif ;This lets us restore the user's edit setting at the end
;Now the form is in edit mode, and the insert can work.

if eventInfo.id()=dataInsertRecord then

;The tCursor exists merely to get the highest value,
;so we do the tCursor thing /before/ creating the new record
if not tc2.open(":MONEY:EntryNum.DB") then
msgStop("Error","New record not created because the tCursor failed")
return ;execution stops - no new record added
endIf
tc2.end()
;tc2 should now be pointing to the record with the highest entryNum
li = tc2.entryNum
tc.2.close()

;We are now back to the form, and using uiObjects
DoDefault ;creates the new record
li = li + 1
entry.value = li
postRecord() ;pushes the new record into the table
endif

if flg then ;restore the user's edit setting
endedit()
endif

Again, this is untested. The gist of it should be ok. I hope.

--
Jim Hargan

Jim - I'm guessing that tc2 is pointing to a one record table - without a
key. It's the way he increments his form's record keys.
"Jim Hargan" <contact (AT) harganonline (DOT) com> wrote

Jim Hargan wrote:
You can get away with edit() in an object on a form; it puts the underlying
table into edit mode.

But since he does all this stuff without necessarily putting the form into
edit mode, or testing whether it is in edit mode, the FIRST time through you
won't necessarily get a record added to work on.

But then, since the endedit() was associated with the tcursor and not the form
or its underlying table, NOW the form/table is in edit mode and thus it all works.

At the start of the form, page open usually, I ALWAYS have
if not isedit() then
edit()
endif

if I or a user will be doing any work on the form entailing editing the
underlying table(s).



---------------
Tony McGuire

On Fri, 9 Jan 2009 14:44:52 -0500, Jim Giner wrote:

Doh! Shoulda guessed.

--
Jim H

Kenneth wrote:


I would still do

if not tc2.open(":MONEY:EntryNum.DB") then
errorshow("Error - EntryNum.db")
; "Error.." becomes the title of the errorshow() dialog box
return
endif

Otherwise, you'll at some point not be able to open entrynum.db, and Paradox
will start erroring out on the code below that, and quite possibly confusing
the heck out of what the problem is for you. Simple change to make your life
easier later.

Glad you finally found Nirvana.


---------------
Tony McGuire

Sorry I'm late to the party.

In addition ot what the others have told you that helped you slove the
problem and Tony's suggestion about adding errorshow labels you should
also test anything that can fail

if not myTCToKeyIncrementTable.endedit() then
errorshow("can't end edit on key table")
endif

Also, use a naming convention that makes your code more readable (see
the faq on naming conventions).

Finally, learn to liberally comment your code so you know what is going
on and to help others who may have to look at your code in the future.

Denn Santoro
President
Resource Development Associates
http://www.RDAWorldWide.Com
Offices in the United States and Germany
Providing solutions to health care, business, governments and
non-profits since 1982

Kenneth wrote: