I have the following code On Form Enter event.

//Prevent Extend mode from update mode

If @Update Then
{
If @ResultSetCurrentPosition() = @ResultSetTotal() Then
{
NotifyForm(2)
}
Else
{
NotifyForm(-2)
}
}

 

So, it should not allow the form to advance to next record to go in the extended mode. However, @Save command should work. If I use "Save Record" command by clicking into the command tree it works and no flag will show up when I go to Search mode using F7 key. The same thing will fail if I use Save Record command with @SelectTreeItem( ).  I also noticed that if I use @SelectTreeItem( ) for Save Record, that item in the Navigation group turns red and remains red until I click it again. May be @SelectTreeItem ( ) command triggers it but cannot complete the command.

The questions are why @save in programming does not act the same as hard pressed Save Record in command tree? Why @SelectCommandTree ( ) command does not work the same as actually selecting item in the command tree with mouse? Why F10 pressed key behave differently than when activated through @SelectTreeItem ( ).

I'm having the same problem (or similar, if I'm reading Bharat right).  Here is a piece of my code for a "Save and Continue" button.  It's meant to Save the changes to the record but then block extended mode.

If @Mode() = 1  // Saves and advances in Update mode, Prevents entering Extended Mode from Search-Update
THEN
	{
	IF @ResultSetCurrentPosition() = @ResultSetTotal()
	THEN
		{
		NotifyForm(2)
		}
	ELSE
		{
		Clear(Checkcode)
		NotifyForm(0)
		vNextRecord = @selecttreeitem("Search Update Menu!Navigation!Advance Record (F10)")
		}
	}


ELSE  If @Mode() = 0  // Saves and advances in Add mode
	{
	Clear(Checkcode)
	NotifyForm(0)
	vNextRecord = @selecttreeitem("Add data menu!Navigation!Advance Record (F10)")
	} 

This works fine for Add Mode, and for all records in Update mode except the last.  When it comes to the last record in the result set, it doesn't advance into Extended (yay) but changes are not saved either.  Do I need to shuffle my "vNextRecord =" statement to some other position?

Hello Scott,

Your problem is in your code. If you are on your last record you are only setting NotifyForm(2) and not actually saving the record.

Try something like this

If @Mode() = 1  // Saves and advances in Update mode, Prevents entering Extended Mode from Search-Update
THEN
	{
	IF @ResultSetCurrentPosition() = @ResultSetTotal()
	THEN
		{
		Clear(Checkcode)
		NotifyForm(2)
		vNextRecord = @selecttreeitem("Search Update Menu!Navigation!Advance Record (F10)")
		}
	ELSE
		{
		Clear(Checkcode)
		NotifyForm(0)
		vNextRecord = @selecttreeitem("Search Update Menu!Navigation!Advance Record (F10)")
		}
	}


ELSE  If @Mode() = 0  // Saves and advances in Add mode
	{
	Clear(Checkcode)
	NotifyForm(0)
	vNextRecord = @selecttreeitem("Add data menu!Navigation!Advance Record (F10)")
	}  

Also your code will only prevent extend mode if the user used this button to go to the last record. It will not stop extend mode if the user uses the F10 key, the navigation buttons at the top, or use the menu tree.

-Ray

Thanks Ray, I will do that. I know Infinity is busy giving finishing touch to his application but if the time permits, can you verify with your file whether @selectTreeItem ( ) with "Save Record" and @Save command in programming does or does not save the record when it comes to last record before moving to extended mode in Update mode.

Bharat

Ray wrote:
Quote:

(Code snipped)

D'oh!  Of course, it was staring me right in the face.  Thanks Ray.