By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,662 Members | 1,779 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,662 IT Pros & Developers. It's quick & easy.

Loading Subforms Problem

P: n/a
I have a main form with two subforms. The second subform has a combo
box whose recordsource is set based on a field in the first subform.

I tried putting some code in the first subform to do this. This is the
code in the Form Current section:

strSQL = "SELECT * FROM ModuleComponents WHERE TrainingModuleTopicSK =
" & subTrainingModule.Form!TrainingModuleTopicSK & ";"
submodulecomponents.Form!cboModuleComponentTopicsS K.RowSource = strSQL

This wasn't working because the subforms load before the main form.
So I went to the main form and for each subform I removed the
Sourceobject. Then I set the sourceobjects for the subforms through
code. This is the code in Form Load:

With Me
..subTrainingModule.SourceObject = "subTrainingModule"
..subModuleComponents.SourceObject = "subModuleComponents"
End With

I don't get an error message now but the subforms come up empty. So
now I'm stuck. Does anybody have any ideas where I'm going wrong with
this?

Thanks in advance for the help.

Dec 12 '06 #1
Share this Question
Share on Google+
1 Reply


P: n/a

Ecohouse wrote:
I have a main form with two subforms. The second subform has a combo
box whose recordsource is set based on a field in the first subform.

I tried putting some code in the first subform to do this. This is the
code in the Form Current section:

strSQL = "SELECT * FROM ModuleComponents WHERE TrainingModuleTopicSK =
" & subTrainingModule.Form!TrainingModuleTopicSK & ";"
submodulecomponents.Form!cboModuleComponentTopicsS K.RowSource = strSQL

This wasn't working because the subforms load before the main form.
So I went to the main form and for each subform I removed the
Sourceobject. Then I set the sourceobjects for the subforms through
code. This is the code in Form Load:

With Me
.subTrainingModule.SourceObject = "subTrainingModule"
.subModuleComponents.SourceObject = "subModuleComponents"
End With

I don't get an error message now but the subforms come up empty. So
now I'm stuck. Does anybody have any ideas where I'm going wrong with
this?

Thanks in advance for the help.
Here's a way I do dynamic source objects:

NameOfSubformControl.SourceObject = NameOfSumForm

E.g.,

SubformIDO.SourceObject = "frmSubIDO"
SubformIDO.Form.RecordSource = "SELECT IDOID, ... FROM tblIDO;"
DoEvents

I believe that simply setting the SourceObject will cause the
recordsource to requery. In cases where the recordsource will be
changing I remove the recordsource from the subform.

When two subforms are involved I use the following:

http://groups.google.com/group/comp....6ad010d?hl=en&

I haven't thought much about the best way to do that.

James A. Fortune
CD********@FortuneJames.com

Dec 14 '06 #2

This discussion thread is closed

Replies have been disabled for this discussion.