Undelete Record

[forskare]

I'm currently usings the v5 undelete script to undelete records. I added the last 2 lines of code to show the undeleted records but it's not quite right. The browse does not refresh. (If I go to design and back to view or close the form and open, the browse is refreshed)

Where am I misdirected?

Thanks,

kenn

[forskare]

RE: Undelete Record

Welllllll....Remember I did say it was below 0 here tonight.

Here's the script.

Thanks,

kenn

t = table.open("Class")
'undelete all records, and mark those that are undeleted
'(assume that 99999999 will be more that total records in table)
t.undelete(1,99999999,.t.)
t=table.current()
browse1.refresh()

[crimmelcp]

RE: Undelete Record

Ken:
I am just south of Boston this week.(Plymouth Mass.)
Tempature of 9 with winds gusting to over 40
wind chill way below zero

if your browse is on a form
try

:yourformname:browse1.refresh()

or

parentform.resynch()

charlie crimmel

[forskare]

RE: Undelete Record

Hi Charlie,

You're supposed to be there the 1st week in April. (:>)

Anyhow, tried both; same result as the refresh()

Still must close and reopen the form.

Any other thoughts?

Thanks,

kenn

[forskare]

RE: Undelete Record

Would the fact that the browse has a calculated field on it make any difference?

Just wondering.

Thanks,

kenn

[drgarytraub]

RE: Undelete Record

Ken,

I have had times where resynch() or refresh() did not work, but the following did:

sys_send_keys("{F5}")

Let me know if this works for you.

Gary

[drgarytraub]

RE: Undelete Record

Ken,

As a further thought, the F5 mentioned above often does work. If not, you may need to re-query the records and then refresh using resynch, refresh or F5. Good luck.

Gary

[forskare]

RE: Undelete Record

Gary,

The first 2 suggestions didn't work so resorted to the re-query. Copied code fromanothere button I had and it works. I think part of the problem is the fact that i have a multi-state button on the form as if I comment out that part of the code, it doesn't work.

In case this might help someone else, here's the code.

kenn

t = table.open("Class")
'undelete all records, and mark those that are undeleted
'(assume that 99999999 will be more that total records in table)
t.undelete(1,99999999,.t.)
t=table.current()

'' Reset the query
dim tbl as p
tbl = table.current()
tbl.order(searchby.text,searchby.text + " \"\"")
browse1.refresh()
'mulstbtn2.text = "2"
'' Get the table object from the form
''
t = topparent.Table_Get()
''
'' Get the current record count
''
i = t.index_primary_get()
count = i.records_get()
''
'' Force the browse to refill
''
browse1.refresh()