Setting Value of Combo Box on Subform

[Rick]

I have a main form called frmDemo with a subform frmStageTrack_S ub. On
the subform is a Combo Box CboTermID. The frmDemo is tied to tblDemo
and the frmStageTrack_S ub is tied to tblStageTrack. What I would like
to do is when a new record is created in frmDemo I would like to set
the CboTermID on the subform to a default value, say 1, without the
user having to set focus on the subform and selecting an item from the
combo box. Right now if the user does not select a TermID on the
subform no record is created in the StageTrack table when a new record
is created in frmDemo. I only wish to set a default value if the
TermID is Null.
I have tried the following in the AfterUpdate event of frmDemo

Private Sub Form_AfterUpdat e()
If IsNull(Me.Forms .frmDemo.frmSta geTrack_Sub.For m.CboTermID) Then
Forms.frmDemo.f romStageTrack_S ub.CboTermID = 1
End If

End Sub

But I keep getting a runtime error. What is the correct way to set the
CboTermID from the Main form?

[ADezii]

I have a main form called frmDemo with a subform frmStageTrack_S ub. On
the subform is a Combo Box CboTermID. The frmDemo is tied to tblDemo
and the frmStageTrack_S ub is tied to tblStageTrack. What I would like
to do is when a new record is created in frmDemo I would like to set
the CboTermID on the subform to a default value, say 1, without the
user having to set focus on the subform and selecting an item from the
combo box. Right now if the user does not select a TermID on the
subform no record is created in the StageTrack table when a new record
is created in frmDemo. I only wish to set a default value if the
TermID is Null.
I have tried the following in the AfterUpdate event of frmDemo

Private Sub Form_AfterUpdat e()
If IsNull(Me.Forms .frmDemo.frmSta geTrack_Sub.For m.CboTermID) Then
Forms.frmDemo.f romStageTrack_S ub.CboTermID = 1
End If

End Sub

But I keep getting a runtime error. What is the correct way to set the
CboTermID from the Main form?

'The correct Syntax for setting the value of a Control on a Sub-Form from
'the Parent Form is as follows:

Forms![ParentFormName]![SubFormName].Form![SubFormField] = ????

[pietlinden]

Read this article... there's an example there that should sort this
out...

http://www.mvps.org/access/forms/frm0031.htm

[Rick]

Thanks for the help. Following works great.

If IsNull(Forms!Ma inForm!Subform1 .Form!ControlNa me) Then
'Me!Subform1.Fo rm!Subform2.For m!ControlName = 1
End If

OR
If IsNull(Forms!fr mDemo!frmStageT rack_Sub.Form!T ermID) Then
Me!frmStageTrac k_Sub.Form!Term ID = 1
End If

I was wondering if anyone had an opinion on a better way of setting the
TermID

[Rick]

Sorry, the first part should have read

If IsNull(Forms!Ma inForm!Subform1 .Form!ControlNa me) Then
'Me!Subform1.Fo rm!ControlName = 1
End If

[MGFoster]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Reference a subform from the current form:

Me!frmStageTrac k_sub!CboTermID
or
Me!frmStageTrac k_sub.Form!CboT ermID

Why don't you just set the ComboBox's Default property to 1? If the
ComboBox is a bound control, setting its Value property to 1 means you
are creating a new record in the subform - are all the required fields
getting the values they need?
--
MGFoster:::mgf0 0 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBRFkMP4echKq OuFEgEQLRZwCg+s MvPH2FI2p61CRUu dSEaqTkPj4AoMK2
7L9y9L7TaA2oSb0 XDpEj0uRr
=FrAT
-----END PGP SIGNATURE-----
Rick wrote:

I have a main form called frmDemo with a subform frmStageTrack_S ub. On
the subform is a Combo Box CboTermID. The frmDemo is tied to tblDemo
and the frmStageTrack_S ub is tied to tblStageTrack. What I would like
to do is when a new record is created in frmDemo I would like to set
the CboTermID on the subform to a default value, say 1, without the
user having to set focus on the subform and selecting an item from the
combo box. Right now if the user does not select a TermID on the
subform no record is created in the StageTrack table when a new record
is created in frmDemo. I only wish to set a default value if the
TermID is Null.
I have tried the following in the AfterUpdate event of frmDemo

Private Sub Form_AfterUpdat e()
If IsNull(Me.Forms .frmDemo.frmSta geTrack_Sub.For m.CboTermID) Then
Forms.frmDemo.f romStageTrack_S ub.CboTermID = 1
End If

End Sub

But I keep getting a runtime error. What is the correct way to set the
CboTermID from the Main form?

[Rick]

I tried setting the default value on the combo box but it does not
create a record in the table unless I physically put focus on the
subform and change something.