I am using programming to notify the user to accomplish a set task.  Once they are notified to perform the task, I have it asking for the user to state the date it was completed.  I need this date posted to a subrecord of another form inside the same application.  

I have this working when there is an initial record in the subform, but not when I need to create the first record in the subform.  Here is a snippet of the programming I am trying to use.


[code]vToday = @Month(@Date) + "/" + @DOM(@Date) + "/" + @Year(@Date)
     If vTotalSurvey <> 0
     {
           XResultSetCreateNewRecord(vRSID_Client_Child)
     }
     XResultSetValue(vRSID_Client_Child, "Last Survey Sent", vToday)
     XResultSetReparent(vRSID_Client_Parent, "SurveyData", vRSID_Client_Child)[/code]

Do I have the programming incorrect to establish a first record in a subform, or do I need to have an inital subrecord first for the @XResultSetSubSet / XResultSetValue to work?

Thanks for the help!
Christy

// Get Result set for client database in order to get the SurveyData Subform records
vRSID_Client_Parent = @XResultSetSearch(@FN, "Client", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, "!Client Number=" + Client Number)
If vRSID_Client_Parent > -1
{
	vRSID_Client_Child = @XResultSetSubSet(vRSID_Client_Parent, "SurveyData")
	If vRSID_Client_Child > -1
	{
		// Get the number of records and if there is not any no survey was sent
		vTotalSurvey = @XResultSetTotal(vRSID_Client_Child)
		If vTotalSurvey = 0
		{
			vSurveySent = 0
		}
		Else	// Get the last date that a survey was sent to see if another survey should be sent
		{
			XResultSetCurrentPosition(vRSID_Client_Child, vTotalSurvey)
			vSurveySent = @XResultSetValue(vRSID_Client_Child, "Last Survey Sent")
		}
		vSurveyDays = @Date - @TD(vSurveySent)
		If vSurveyDays >= 300
		{
			If vShipVia = "On-Site"		// Notify which survey should be sent
			{
				@MSGBOX("Please send ON-SITE survey with certificates of calibration.", "", "")
			}
			Else
			{
				@MSGBOX("Please send IN-HOUSE survey with certificates of calibration.", "", "")
			}
			vSurvey = @ASKUSER("Did you send the survey today?", "", "")	// If Yes - Post to the subform SurveyData
			If vSurvey = TRUE
			{
				vToday = @Month(@Date) + "/" + @DOM(@Date) + "/" + @Year(@Date)
				If vTotalSurvey <> 0
				{
					XResultSetCreateNewRecord(vRSID_Client_Child)
				}
				XResultSetValue(vRSID_Client_Child, "Last Survey Sent", vToday)
				XResultSetReparent(vRSID_Client_Parent, "SurveyData", vRSID_Client_Child)
				FormCommit("SurveyData")
				FormCommit("Client")
			}
		}
	}
}

XResultSetClose(vRSID_Client_Parent)
XResultSetClose(vRSID_Client_Child)
 

Here is more of the code.  It seems to work perfectly if there is an at least one record in the subform.  It just seems to do nothing when I am trying to create the first subform record that is naturally related to the form parent's record.

I did fix the XResultSetClose() commands.  Thank you for that, I never did think much about where I needed to put them, and just put them at the end of the programming area, just incase I needed something from the result set.

I commented out the FormCommit commands as the subform I need to post to is not visible at the time of posting.  Unfortunately, It still isn't working.  I had only put them in during debugging as just something to try and see if that might make it work.  

I wonder if where the issue is if that if there is not records, should I use the XResultSetCreateNewRecord() command and then use the XResultSetValue()?

Okay, I must still be doing something wrong cause I can't get it to work.  Here is my current programming

vSurvey = @ASKUSER("Did you send the survey today?", "", "")	// If Yes - Post to the subform SurveyData
If vSurvey = TRUE
{
	vToday = @Month(@Date) + "/" + @DOM(@Date) + "/" + @Year(@Date)
	XResultSetCreateNewRecord(vRSID_Client_Child)
	XResultSetValue(vRSID_Client_Child, "Last Survey Sent", vToday)
	XResultSetReparent(vRSID_Client_Parent, "SurveyData", vRSID_Client_Child)
}
 

So if they click on yes that the survey was sent, that it will format today's date, create a new subrecord (whether others do or do not exist), post today's date to the subform field in the other database and reparent it to the natural parent record.  

Where am I going wrong?

Thanks everyone

Nope, I have the same behavior.  Works perfectly as long as there is already at least one record.

The only thing that I can think of now is that maybe I need to upgrade our version from 2.0.6 to 2.1.0.  And see if maybe it might work then.