Hi Henry,

I glanced through the code, but I don't see, where do you assign anything to combobox recordsource. Also, may be the problem is that these cursors are somehow closed. Do you know, where do you close these cursors?


>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.