How to set the values of SourceObject,LinkChildFields,LinkMaster fields at Runtime?

[titli]

Hi All,

I have a form SearchTestDetails ,which when loads first time , shows all the records from a table.Linkchildfields , LinkMasterFields set null and sourceobject has the table name.

Its has text fields where a user can enter search criterian,and on clicking ok the same form should load with filtered data.

after filtering , also Linkchildfields , LinkMasterFields set null and sourceobject has the table name , same.

Set frmTempForm = New Form_SearchTestDetails
   With frmTempForm
      .RecordSource = strSql
      .Visible = True
      '.Visible=True
   End With

wherestrSql is the query prepared based on the search criterian.But it doesn't work


I also did

With db
Set qdf = .CreateQueryDef("tmpTestInfo", strSql)
DoCmd.OpenQuery "tmpTestInfo"
 
Set frmTempForm = New Form_SearchTestDetails
   With frmTempForm
      .RecordSource = tmpTestInfo
      .Visible = True
      '.Visible=True
   End With
 
 
.QueryDefs.Delete "tmpTestInfo"
End With
db.Close
qdf.Close

here tmpTestInfo , when i see , after execution of the third line , i see correct resultset in tmpTestInfo but
at the line .RecordSource = tmpTestInfo , if i hold the mouse over tmpTestInfo it shows as nothing.

i also tried this , setting values of the above mentioned fields at run time.

With db
Set qdf = .CreateQueryDef("tmpTestInfo", strSql)
DoCmd.OpenQuery "tmpTestInfo"
Set frm = New Form_SearchTestDetails
[Form_SearchTestDetails].subSearchTestDetails.SourceObject = tmpTestInfo
[Form_SearchTestDetails].subSearchTestDetails.LinkChildFields = ""
[Form_SearchTestDetails].subSearchTestDetails.LinkMasterFields = ""
 
Set frmTempForm = New Form_SearchTestDetails
   With frmTempForm
      .RecordSource = strSql
      .Visible = True
      '.Visible=True
   End With
 
 
 
.QueryDefs.Delete "tmpTestInfo"
End With
db.Close
qdf.Close

but while setting LinkChildFields i get a warning message as "The setting you entered isn't valid for this property."..ans also when tried this thrid was same thing happens for tempTestInfo, it shows nothing.


On the fly , i need to set the property values.

Need urgent help !!

Thanks in advance
Titli

[TheSmileyCoder]

To open a form it must be prefixed with a Form_, so if your form is named Customers, it would be :

Dim myFrm as Form_Customers
Set myFrm=New Form_Customers 

If your form is already named Form_SearchTestDetails as I suspect, then you must add another Form_ in front of it.

Other then that, please go over your post again. You state "it doesn't work" which is woefully inadequate to help you. Doesn't work covers a whole lot of problems, from a crashing application, to a compile error to unexpected behavior. You need to tell us more about whats happening.

Also LinkChildFields and LinkMasterFields are both properties that can only be modified in Design view, or in the Open procedure of the form.

In your second "try" the reason you see "nothing" when mousing over .RecordSource = tmpTestInfo is because you have written tmpTestInfo as a variable which it is not. Please remember to turn on Option Explicit at the top of your module and save both our time. The .RecordSource is a property of type string. If you want to set its recordsource to a query named tmpTestInfo you need to use:

.RecordSource = "tmpTestInfo"