The code below works great to create a new record in the Client database from the Dead database, open the Client database to the newly made record, delete the record in the Dead database if wanted, then close the Dead database.

var vRS as Int
var vRS2 as Int

	//Get blank XResultset for Client database
	vRS = @XResultSetSearch(@FN,"Client", 0, 2, "")   
	If vRS > -1
	{
		//Create new Record in Clients database
		XResultsetCreatenewRecord(vRS)

		//Set the field values- CLIENT .DB   DEAD .DB
		XResultSetValue(vRS, "Last Name", Last Name)

		XResultSetClose(vRS)
	}

	//Search for newly made client record based on DEAD record Last Name and Address
	vRS2 = @XResultSetSearch(@FN,"Client", 0, 2, "!Last Name=" + Last Name, "!Address=" + Address)   
	If vRS2 > -1
	{
		XResultSetOpenForm(vRS2, "Client") //Open new Client record
		XResultSetClose(vRS2)
	}

	//Ask if "copied" DEAD record should be deleted
	If @Askuser("Do you want to permanently","delete this Dead database record","before proceeding?") Then
		{
			WarningLevel(0) //Do not prompt about removing record
			DeleteRecord()
			WarningLevel(1)
		}

@Exit
 

If the Client database is open in search mode, no problem. If Client is open in update, the new record does not get made. So, I thought that I would first close the Client database using FormExit like shown below, but the FormExit code does not trigger. If I run just the four lines of the FormExit code and nothing else, it closes Client without issue. FYI - I realize that I probably don't need vRS and vRS2, but was using it in testing.

var vRS as Int
var vRS2 as Int

vCloseClient = @XResultSetForm("Client")

	If vCloseClient >=0 then
	{
		FormExit("Client")
		XResultSetClose(vCloseClient)
	}

	//Get blank XResultset for Client database
	vRS = @XResultSetSearch(@FN,"Client", 0, 2, "")   
	If vRS > -1
	{
		//Create new Record in Clients database
		XResultsetCreatenewRecord(vRS)

		//Set the field values- CLIENT .DB   DEAD .DB
		XResultSetValue(vRS, "Last Name", Last Name)

		XResultSetClose(vRS)
	}

	//Search for newly made client record based on DEAD record Last Name and Address
	vRS2 = @XResultSetSearch(@FN,"Client", 0, 2, "!Last Name=" + Last Name, "!Address=" + Address)   
	If vRS2 > -1
	{
		XResultSetOpenForm(vRS2, "Client") //Open new Client record
		XResultSetClose(vRS2)
	}

	//Ask if "copied" DEAD record should be deleted
	If @Askuser("Do you want to permanently","delete this Dead database record","before proceeding?") Then
		{
			WarningLevel(0) //Do not prompt about removing record
			DeleteRecord()
			WarningLevel(1)
		}

@Exit
 

What am I missing?

Thanks

After further review, the new record was being made. The reason I thought that it wasn’t, was that it leaves me looking at a blank Client record in Update mode. When you click “Back to Search Mode” and try to search for the new record it can’t find it. That’s where I was stopping.  I just noticed that when I click “Back to Search Mode” a notification  at the bottom of the screen pops up that says “Setting search mode to match ALL search restrictions”, can’t say that I’ve seen that before, but I can't search for anything then. If you close tab and re-search, it finds the record.

Quote:


I put a writeln in the If statement. The slate does open, but Client did not close. I have the standard “Do Not Enter Extend Mode” code in each database.

// Do Not Enter Extend Mode
If @Mode() = 1 Then
{
	If @ResultSetCurrentPosition() = @ResultSetTotal() Then
	{	NotifyForm(2)  	}   //allow save, prohibit record advance
	ELSE
	{	NotifyForm(-2)  }   //Don't allow save, Don't prohibit record advance
}
 

I commented it out in the Client database, no change. Also did the same with the Dead database so both are commented out, and this time the Client closed. The record did get made in the Client database but the “open new Client” code does not fire, I get left at the main menu.


I put a writeln(Last Name) in the “open newly made Client” code

If vRS2 > -1
	{
                Writeln(Last name)      
		XResultSetOpenForm(vRS2, "Client") //Open new Client record
		XResultSetClose(vRS2)
	} 

thinking that maybe the Dead record was closing before @XResultSetSearch had a chance to pick-up the last name, but the slate does open with the last name.

Hope I’m clear enough on this,

Thanks for your help Ray, have a great weekend!

Brandon

Hi Ray,

Yes, a simplified version of the code, I’m filling in 36 fields, total. All the rest is exact.

For the Client form not closing, I’ve told my customer that the client form must be closed before they do the procedure. I also now have a popup asking them to close client, if it’s open, before proceeding. May not be the best solution, but everybody’s happy.

Thanks for looking into this.

Have a great day!

Brandon