browse won't allow new records after zap

[John Cunradi]

I have an application that has an embedded browse in a form. After that embedded browse is zapped, I cannot add new records without first exiting the form and then opening it again.

To make this more confusing, I have another form with an embedded browse that works perfectly. If I take the XBasic code from the working form and place it in the non-working form (modifying it for the different table, of course) I still cannot add records without exiting first.

The properties of both working and non-working embedded browses are identical (embedded browses, tab-stops, enter-record enabled, etc.)

Any ideas ?

Thanks.

[Stan Mathews]

I have an application that has an embedded browse in a form. After that embedded browse is zapped, I cannot add new records without first exiting the form and then opening it again.

To make this more confusing, I have another form with an embedded browse that works perfectly. If I take the XBasic code from the working form and place it in the non-working form (modifying it for the different table, of course) I still cannot add records without exiting first.

The properties of both working and non-working embedded browses are identical (embedded browses, tab-stops, enter-record enabled, etc.)

Any ideas ?

Thanks.

Just semantics but you can't zap a browse, you have to zap a table. Is the same table represented in both embedded browses?

If not, are there any field rules for the table which is giving you the trouble? Is the embedded browse displaying records from a child table in a set? If so, is the linking field an expression or an actual field?

[John Cunradi]

zap data in browse

I meant that I zapped the data in a table represented in the browse.

Properties for both browses are identical. Both tables consist of a single field that is always required. They are even the same type of field and same length, only the name of the field is different. (Area vs General_Category)

Here's the code I use that won't allow the enter-record:

''**** Version 1.0
''**** Any changes may make this script unreadable by Alpha Five.

DIM ax_choice as C
DIM ax_response as N
DIM ax_dialog as P


ON ERROR GOTO ax_error_trap
DIM ax_error_trap_desc as C
DIM ax_error_trap_offset as C
DIM ax_error_trap_msg as C
DIM ax_error_trap_response as N

'AX~Action Command~1~
'AX~PX9~.T.~
'AX~PX10~~
'AX~PX56~0~
'AX~PX55~0~
ax_error_trap_desc = "Action Script"
ax_error_trap_offset = "0"
'AX~Action Command~18~
'AX~PX24~0~
'AX~PX21~Yes\AN\AKNo~
'AX~PX20~This will delete the currently displayed General Categories. Is it OK to proceed ?~
'AX~PX19~0~
'AX~PX59~~
'AX~PX56~0~
'AX~PX55~0~
ax_error_trap_desc = "Quick Dialog This will delete the currently displayed General Categories. Is it OK to proceed ?"
ax_error_trap_offset = "1"
ax_response = ui_msg_box("","This will delete the currently displayed General Categories. Is it OK to proceed ?", 4)
if ax_response=6 then
ax_choice="YES"
else
ax_choice="NO"
end if
select
'AX~Action Command~20~
'AX~PX4~18~
'AX~PX22~Yes~
'AX~PX56~0~
'AX~PX55~0~
case alltrim(upper("Yes"))==alltrim(upper(ax_choice))
'AX~Action Command~4~
'AX~PX4~tbl = table.current()\AN\AKsafety = .t.\AN\AKtbl.zap(safety)~
'AX~PX56~0~
'AX~PX55~~
ax_error_trap_desc = "Inline Xbasic"
ax_error_trap_offset = "3"
tbl = table.current()
safety = .t.
tbl.zap(safety)
'AX~Action Command~57~
'AX~PX2~~
'AX~PX1~PARENT~
'AX~PX54~Show all records in which form or browse?~
'AX~PX56~0~
'AX~PX55~~
ax_error_trap_desc = "Show All Records"
ax_error_trap_offset = "4"
PARENT.show_all()
'AX~Action Command~4~
'AX~PX4~if parent.class() = "form" \AN\AK\AJparentform:tables.child(1).queries_reopen()\AN\AK parentform.resynch()\AN\AKelse \AN\AK\AJparentform:tables.child(1).queries_reopen()\AN\AKend if\AN\AK~
'AX~PX56~0~
'AX~PX55~~
ax_error_trap_desc = "Inline Xbasic"
ax_error_trap_offset = "5"
if parent.class() = "form"
parentform:tables.child(1).queries_reopen()
parentform.resynch()
else
parentform:tables.child(1).queries_reopen()
end if

'AX~Action Command~13~
'AX~PX18~"General Category Data has been Deleted !"~
'AX~PX56~0~
'AX~PX55~~
ax_error_trap_desc = "Message Box"
ax_error_trap_offset = "6"
ui_msg_box("","General Category Data has been Deleted !", 0)
'AX~Action Command~21~
'AX~PX56~~
'AX~PX55~~
'AX~Action Command~20~
'AX~PX4~18~
'AX~PX22~No~
'AX~PX56~0~
'AX~PX55~0~
case alltrim(upper("No"))==alltrim(upper(ax_choice))
'AX~Action Command~70~
'AX~PX56~0~
'AX~PX55~~
ax_error_trap_desc = "Cancel event"
ax_error_trap_offset = "9"
cancel()
'AX~Action Command~13~
'AX~PX18~"NO Areas were deleted !"~
'AX~PX56~0~
'AX~PX55~~
ax_error_trap_desc = "Message Box"
ax_error_trap_offset = "10"
ui_msg_box("","NO General Categories were deleted !", 0)
'AX~Action Command~21~
'AX~PX56~~
'AX~PX55~~
'AX~Action Command~22~
'AX~PX56~~
'AX~PX55~~
end select

END
ax_error_trap:
ax_error_trap_msg = "Trapped error in action command: [" + ax_error_trap_offset + "] " + chr(13) + chr(13) + "Command: " + ax_error_trap_desc + chr(13) + "Error: " + error_text_get()
ax_error_trap_response = ui_msg_box("Action Program Error", ax_error_trap_msg, 2)
IF ax_error_trap_response = 4 THEN ''Retry
RESUME 0
ELSEIF ax_error_trap_response = 5 THEN ''Ignore
RESUME NEXT
ELSE ''Abort
END
END IF
''****
''**** End

[Rawlings]

A work around would be to add the code below at the end of your script. This will close the curent form and re-open it at a flash. Hope this helps.

Parentform.Close()
:Form.View("Your Form Name")

RAWLINGS

[John Cunradi]

the code worked

The code worked. The only modification was that it went in the middle of the string of code.

I still don't understand why things weren't working before but I'm happy with the code and that it works now.:)