embedded browse refresh

[Cheryl Lemire]

Hello everyone,

I know this issue has been addressed a few times on the various forums, but I cannot get my embedded browse to refresh. Any suggestions/help will be greatly appreciated.

I have an add/edit form which restricts data entry upon entry. Focus is set to the add new record button. When the form is first loaded you see all the existing records from the table in the embedded browse.

What I am looking for, is when I add a new record on the form, save changes, the embedded browse should refresh, going to the first record in the table and showing ALL records in the table.

I have code at the end of my save changes button OnPush event but it is not working.

What happens now is I click the add new record button, enter the genre type, save changes, focus is brought back to the add new record button ... BUT the embedded browse is not refreshed ... it shows the record I just added, not all records in the table. Please help.

I have attached a sample zip db. To duplicate the issue:

unzip to test directory
open alpha
open db dvd_mgr.adb from directory you unzipped to


press the enter key, or click on add/edit records button, or press ctrl+a
press the enter key, or click on genre type(s) button, or press ctrl+a

you are now on the genre type(s) add/edit form - view only
You will see the embedded browse showing all existing records for the table
the add new record button has focus

press the enter key, or click on the add new record button, or press ctrl+a
focus is now set to the type-in field for the genre type:
type anything, comedy, anime, whatever you want
press the tab or enter key
focus is now on the save changes button
press enter to activate the save changes button

focus is now back to add new record button
HERE IS THE PROBLEM
the embedded browse now just shows the last record you just added
every once in a while, very rare, the embedded browse refreshes and shows all records

I need all records to show in the embedded browse after the save changes button has been activated

If you go to the control panel, forms tab, f_genre, design mode
right click the save changes button, events, on push
at the end of the script you will find:
' redisplay browse, with top row being first record"========================="NOT WORKING

please help :)

Thanks in advance
Cheryl

[Bill Warner]

RE: embedded browse refresh

Cheryl, I didn't download your file, but tried a similar form, where the embedded browse is the same table as the form. I saw the same behavior - the last record entered is the only one to show in the browse.

Next, I clicked on the First Record button in the tool bar. This took me to the first record, and showed all the records, from the first one, that fit in the browse.

If this is what you are looking for, you could put a fetch_first() command in your Save button to do the same thing.

This sounds too easy - maybe I'm missing something??

[Cheryl Lemire]

RE: embedded browse refresh

Hi Bill,

Thanks for verifying the information. I believe this is a bug with the embedded browse as there are many things that work very intermittently. We already know that Alpha is not really going to do much about browse issues since they are in the process of completely re-writing the browse object hopefully for Version 7.

What I need is a possible work around or way to get it to work the way I need it. My save changes button is fetching the first record and resynching the browse in the code, but it is not working.

My save changes OnPush event code is at the end of this message.

Thanks
Cheryl

'SaveChanges script

this.disable() 'disable button
this.hide() 'hide button

tbl = table.current()
if tbl.mode_get() = 0 then
ui_msg_box("Oops","Nothing to save")
this.enable() 'enable button
parentform.restrict_change = .t.
parentform.restrict_enter = .t.
parentform.restrict_navigation = .f.

parentform:addrecord.activate() 'set focus
parentform.resynch()

'show closeform button, hide cancel button
parentform:cancelchanges.hide()
parentform:closeform.show()

'enable controls
parentform:addrecord.enable()
parentform:editrecord.enable()
parentform:deleterecord.enable()
parentform:text2.text = "View Only"
parentform:text2.refresh()
end
end if

' script gets here only if form is in enter or change mode
' set var for CanSave event will know is ok to save
dim shared oktosave as L
oktosave = .t.

parentform.commit() 'this will trigger field rules, like the
'CanSaveRecord event for the
't_genre table

oktosave = .f. 'set it back to prevent other saves

parentform.restrict_navigation = .f.
parentform.restrict_enter = .t.
parentform.restrict_change = .t.

'show closeform button, hide cancelchanges button
parentform:cancelchanges.hide()
parentform:closeform.show()

'enable controls
parentform:addrecord.enable()
parentform:editrecord.enable()
parentform:deleterecord.enable()

parentform:text2.text = "Edits Here"
parentform:text2.refresh()
parentform:addrecord.activate() 'set focus

' redisplay browse, with top row being first record"========================="NOT WORKING
parentform.fetch_first()
parentform:browse1.refresh()
parentform.resynch()

this.enable()
END

[Bill Warner]

RE: embedded browse refresh

Cheryl, I've had some luck with this:

parentform:browse1.activate()
parentform:jobno.activate()

Essentially, I'm activating the browse, and the activating a field in the form. This seems to refresh everything about 70%of the time.

[Cheryl Lemire]

RESOLVED: embedded browse refresh

Bill,

Thank you for your efforts. I tried your suggestion and was unable to get it to work even 1% of the time.

I did resolve the issue however. When I save changes to a record I am setting focus to the add new record button. I commented out my refresh browse object code in the save changes button and placed the following xbasic in the OnArrive event for that button:

parentform.Fetch_First()
parentform.Refresh_Layout()

This works beautifully.

I did try to take this one step further and placed the same code in the OnDepart event of the save changes button (removing it from the OnArrive of the addrecord) in case I change my mind down the road on what object I want to have focus. The OnDepart event of the savechanges button returned an error:

script error fetch_first() line 2141 (this seems like it might be a bug)

Thanks
Cheryl

[Cheryl Lemire]

RE: RESOLVED: embedded browse refresh

""the OnArrive event for that button:""

'that' button refers to the addrecord button, sorry for not being clear.

[budgall]

RE: RESOLVED: embedded browse refresh

Cheryl can you post your example with the corrections you made. I have been having the same problem

Thank you

Bud

[Cheryl Lemire]

RE: RESOLVED: embedded browse refresh

Bud,

All I did was the following:

1) save changes button onpush event I commented out:

' redisplay browse, with top row being first record"========================="NOT WORKING
'parentform.fetch_first()
'parentform:browse1.refresh()
'parentform.resynch()

2) add new record button OnArrive I added:

parentform.fetch_first()
parentform.refresh_layout()

Good luck
Cheryl

[Cheryl Lemire]

RE: RESOLVED: embedded browse refresh

Bud,

Were you able to resolve your issue? If so, how?

Thanks
Cheryl