Hi, Gary;
I lashed this up but now have the following problem:
Trying to create an additional 1-M data entry form, on an existing "child" form created from the formmodaldatachild class Upon running the
button, the new child form comes up, and allows data to be entered, however, I then get an error message:
=======================================
Visual FoxPro 09.00.0000.2412 for Windows [Dec 13 2004 11:21:37] Product ID 76683-335-3957236-18390 CodeMine 8.0.B3 Error #1924 in Click line 9 "m.lStatus=m.oDialog.ReturnValue()"
ODIALOG is not an object.
Call Stack:
2 Frmcgoal.Cmdnewdtl.Click (source\appforms.vct)
1 Frmperson001.Pgfperson.Page6.Cmdeditdtl.Click (source\frmperson.sct)
======================================
Since the calling form is itself a child form, I'm wondering if the variables are stomping on each other, Based on the error message; oDialog does get instantiated, but then for some reason seems to be changed to .null.
Here is the code in the [new] button which generates the above error
PRIVATE oCallingForm
m.oCallingForm=THISFORM
LOCAL oDialog
THISFORM.cmDataManager.New('lrnObjective')
m.oDialog = CREATEOBJECT('frmclrno', THISFORM)
m.oDialog.SHOW()
m.lStatus=m.oDialog.ReturnValue()
IF m.lStatus=.F. && User didn't want to add this record after all
THISFORM.cmDataManager.Delete('lrnObjective')
ENDIF
-- Larry Keyes
Remember only You can prevent Gray Goo. Never release nanobot assembers without replication limiting code.