Hi Nadya:

Thank you for your kind reponse.

>What is the exact syntax for SQL in the combobox? Do you select into cursor? Can you check, if this cursor is used when you close your form?

Here's the entire code in the combo.

SET DELETED ON

thisform.pageframe1.page4.grid1.RecordSource = ""
thisform.pageframe1.page5.ravibasegrid1.RecordSource = ""
thisform.pageframe1.page6.ravibasegrid1.RecordSource = ""


mFullName = this.DisplayValue
mHealthNum = PatientDemo.health_num


SELECT * from patsummary INTO CURSOR CurPatientSummary NOFILTER ;
	WHERE PatSummary.pHealthNum = mHealthNum

IF _tally > 0

	mAddress1 = CurPatientSummary.paddress1
	maddress2 = CurPatientSummary.pAddress2
	mCity = CurPatientSummary.pCity
	mProvince = CurPatientSummary.pProvince
	mPostal = CurPatientSummary.pPostal
	mGender = CurPatientSummary.Gender
	mDOB = CurPatientSummary.birthdate
	mChartNum = CurPatientSummary.ChartNum
	mMaritalStatus = CurPatientSummary.Marital
	mGender = CurPatientSummary.Gender
	mDOB = CurPatientSummary.BirthDate
	mChartNum = CurPatientSummary.ChartNum
	mPersonalData = CurPatientSummary.PersonData
	mPastHist = CurPatientSummary.PastHist
	mAllergies = CurPatientSummary.Allergies
	mInitVisit = CurPatientSummary.InitVisit
	mGenAssess = CurPatientSummary.GenAssess
	mOnCpp = CurPatientSummary.OnCpp
	mUpdateReferenceNumber = CurPatientSummary.PatRefernc
	mOccupation = CurPatientSummary.Occupation
	mWorkPhone = CurPatientSummary.WorkPhone
	mPharmacy = CurPatientSummary.Pharmacy
	
	mFamHistoryValue = CurPatientSummary.PersonData
	mPastHistoryValue = CurPatientSummary.PastHist
	mAllergiesValue = CurPatientSummary.Allergies

* Check if any of 3 memo fields has data in it
mUpdatePatSummary = NOT empty(mPersonalData) ;
	OR NOT empty(mPastHist) ;
	OR NOT empty(mAllergies)
* Disallow data entry if there's data in any of memo's
thisform.cmdEnterData.Enabled = NOT mUpdatePatSummary

	* Select and display Health Condition in Grid1, Ongoing Health

	SELECT HealthCond,RecordDate,ResolvDate, OgReferenc FROM OngoingHealth INTO CURSOR CurOnGoingHealth NOFILTER ;
	WHERE OngoingHealth.HealthNum = mHealthNum 
	GO TOP 
	mCondition = CurOnGoinghealth.HealthCond
	mRecordDate = CurOnGoingHealth.RecordDate
	mDateResolved = CurOnGoingHealth.ResolvDate
	mUpdateOGReferenceNumber = CurOnGoingHealth.OGReferenc
	* This is to ensure that Enter Data is clicked if Condition is blank
	IF EMPTY(mCondition)
		thisform.pageframe1.page4.ravieditbox1.Enabled = .f.
	ELSE
		thisform.pageframe1.page4.ravieditbox1.Enabled = .t.
	ENDIF
	
	thisform.pageframe1.page4.grid1.RecordSource = ""
	thisform.pageframe1.page4.grid1.RecordSource = "CurOnGoingHealth"

	thisform.pageframe1.page4.Grid1.ColumnCount = 3
	thisform.pageframe1.page4.grid1.RowHeight = 54
	thisform.pageframe1.page4.grid1.column1.sparse = .f.

	thisform.pageframe1.page4.grid1.column1.header1.Caption = "Condition"
	thisform.pageframe1.page4.grid1.column1.header1.FontName = "Tahoma"
	thisform.pageframe1.page4.grid1.column1.header1.FontSize = 8
	thisform.pageframe1.page4.grid1.column1.Width = 300

	thisform.pageframe1.page4.grid1.column2.header1.Caption = "Date Recorded"
	thisform.pageframe1.page4.grid1.column2.header1.FontName = "Tahoma"
	thisform.pageframe1.page4.grid1.column2.header1.FontSize = 8
	thisform.pageframe1.page4.grid1.column2.Width = 80

	thisform.pageframe1.page4.grid1.column3.header1.Caption = "Date Resolved"
	thisform.pageframe1.page4.grid1.column3.header1.FontName = "Tahoma"
	thisform.pageframe1.page4.grid1.column3.header1.FontSize = 8
	thisform.pageframe1.page4.grid1.column3.Width = 80
	
	thisform.pageframe1.page4.grid1.Refresh()

	* Select and display Long-Term Regimen 
	SELECT Regimen, StartDate, EndDate, TReference, DocName, ;
		DocNum FROM Treatment INTO CURSOR CurTreatment NOFILTER ;
	WHERE Treatment.HealthNum = mHealthNum and;
		NOT empty(Treatment.Regimen)
	
	thisform.pageframe1.page5.ravibasegrid1.RecordSource = ""
	thisform.pageframe1.page5.ravibasegrid1.RecordSource = "CurTreatment"

	thisform.pageframe1.page5.ravibasegrid1.column1.header1.Caption = "Regimen"
	thisform.pageframe1.page5.ravibasegrid1.column1.header1.FontName = "Tahoma"
	thisform.pageframe1.page5.ravibasegrid1.column1.header1.FontSize = 8
	thisform.pageframe1.page5.ravibasegrid1.column1.Width = 250

	thisform.pageframe1.page5.ravibasegrid1.column2.header1.Caption = "Start Date"
	thisform.pageframe1.page5.ravibasegrid1.column2.header1.FontName = "Tahoma"
	thisform.pageframe1.page5.ravibasegrid1.column2.header1.FontSize = 8
	thisform.pageframe1.page5.ravibasegrid1.column2.Width = 110
	
	thisform.pageframe1.page5.ravibasegrid1.column3.header1.Caption = "End Date"
	thisform.pageframe1.page5.ravibasegrid1.column3.header1.FontName = "Tahoma"
	thisform.pageframe1.page5.ravibasegrid1.column3.header1.FontSize = 8
	thisform.pageframe1.page5.ravibasegrid1.column3.Width = 110

	mRegimen = CurTreatment.Regimen
	mStartDate = CurTreatment.StartDate
	mEndDate = CurTreatment.EndDate
	mUpdateTreatmentNumber = CurTreatment.TReference
	mDisplayDocName = CurTreatment.DocName
	mDocNum = CurTreatment.DocNum
	
	* This is to ensure that Enter Data is clicked if Treatment is blank
	IF EMPTY(mRegimen)
		thisform.pageframe1.page5.ravieditbox1.Enabled = .f.
	ELSE
		thisform.pageframe1.page5.ravieditbox1.Enabled = .t.
	ENDIF

	* Select and display referals made
	SELECT Specialist, DateRefer, CReference FROM Consultants ;
		INTO CURSOR CurConsultants NOFILTER ;
		WHERE Consultants.HealthNum = mHealthNum and;
		NOT EMPTY(Consultants.Specialist)
		
	IF _tally = 0
		mIsConsultantBlank = .t.
	ENDIF
	thisform.pageframe1.page6.ravibasegrid1.RecordSource = ""
	thisform.pageframe1.page6.ravibasegrid1.RecordSource = "CurConsultants"

	thisform.pageframe1.page6.ravibasegrid1.column1.header1.Caption = "Referred To"
	thisform.pageframe1.page6.ravibasegrid1.column1.header1.FontName = "Tahoma"
	thisform.pageframe1.page6.ravibasegrid1.column1.header1.FontSize = 8
	thisform.pageframe1.page6.ravibasegrid1.column1.Width = 250

	thisform.pageframe1.page6.ravibasegrid1.column2.header1.Caption = "Date Referred"
	thisform.pageframe1.page6.ravibasegrid1.column2.header1.FontName = "Tahoma"
	thisform.pageframe1.page6.ravibasegrid1.column2.header1.FontSize = 8
	thisform.pageframe1.page6.ravibasegrid1.column2.Width = 110
	
	mConsultant = CurConsultants.Specialist
	mDateRefer = CurConsultants.DateRefer
	mUpdateConsultantNumber = CurConsultants.CReference
	
	* This is to ensure that Enter Data is clicked if Condition is blank
	IF EMPTY(mConsultant)
		thisform.pageframe1.page6.ravibasegrid1.Enabled = .f.
	ELSE
		thisform.pageframe1.page6.ravibasegrid1.Enabled = .t.
	ENDIF
ELSE
	SELECT ALLTRIM(PROPER(address1))as Address1, alltrim(PROPER(address2))as Address2, ;
	ALLTRIM(PROPER(City)) as City,;
	ALLTRIM(UPPER(Province))as Province,UPPER(postal)as Postal,;
	birth_date as DOB, sex as Gender, ChartNum as ChartNum, Phone as Phone;
	FROM patient INTO CURSOR AddressInfo;
	WHERE patient.health_num = mHealthNum
	
	mAddress1 = AddressInfo.address1
	maddress2 = AddressInfo.Address2
	mCity = AddressInfo.City
	mProvince = AddressInfo.Province
	mPostal = AddressInfo.Postal
	mGender = AddressInfo.Gender
	mDOB = AddressInfo.DOB
	mChartNum = AddressInfo.ChartNum
	mPhone = AddressInfo.Phone
	thisform.cmdEnterData.enabled = .t.
ENDIF

thisform.Refresh()

>E.g. you can put in Destroy:

messagebox("My cursor is "+ iif(used("CurPatientSummary"),"","not ") + "used")
messagebox("My cursor is "+ iif(used("CurOnGoingHealth"),"","not ") + "used")
messagebox("My cursor is "+ iif(used("CurTreatment"),"","not ") + "used")
messagebox("My cursor is "+ iif(used("CurConsultants"),"","not ") + "used")

The above code was placed before CLOSE TABLES in the Destroy event and returned the message "My Cursor is not used".

I placed another cmd button with click event coded as thisform.release() and it works when I click the new button, but nothing seems to happen when the object cmdReturn in my basefrom with the same release() does nothing.