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