Hi Mark,
loEmployeeForm is a local memvar in form B. I have a general array
which keeps track of all opened forms.
So I did the following: (in form B)
LOCAL m.lnPos,m.loEmployeeForm,
m.lnPos=ASCAN(oApp.aActiveForms,"frmEmployee")
m.loEmployeeForm=oApp.aActiveForms[m.lnPos-13]
m.loEmployeeForm - is the reference object of form A.
Thanks
Doron
>Do you release or set to .NULL. the loEmployeeForm reference before you >release Form B?
>
>>Hi All,
>>
>>From form A I post some records into form B.
>>The table in form B is within a child grid.
>>
>>so I have to turn off the relation post the records
>>and then turn the relation on, something like that.
>>
>>While m.loEmployeeForm is the reference object of form B.
>>This code is within form A.
>>
>>WITH m.loEmployeeForm.pgfChild.Page1.grdChild
>> *** Select the Perant
>> SELECT (.LinkMaster)
>> m.lcRelExpr="cEmp_SSN"
>>
>> *** Turn off the relations
>> SET RELATION OFF INTO (.RecordSource)
>>
>> .... More Code
>>ENDWITH
>>
>>Latter on I close both forms and open another one and there I have
>>a problem I can not delete a table, even though USED() is FALSE.
>>
>>I am getting an error that the table is busy.
>>
>>In my Init method of that form I have the following code:
>>
>>IF VARTYPE(oCustomApp)=="U"
>> PUBLIC oCustomApp
>> oCustomApp=NEWOBJECT("CustomApp","LasApp")
>>ENDIF
>>
>>If I change the above code into the followng the
>>problem is gone:
>>
>>IF VARTYPE(oCustomApp)=="U"
>> PUBLIC oCustomApp
>> SET CLASSLIB TO LasApp
>> oCustomApp=CREATEOBJECT("CustomApp")
>>ENDIF
>>
>>Now anybody has an idea about it. There are no transcations
>>either, in form A or form B.
>>
>>Thanks
>>
>>Doron
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only