swilson513@aol.com (Swilson513) wrote in message news:<4fadc0dd.0411150448.3b21ee42@posting.google. com>...[color=blue]
> Bas Cost Budde <b.costbudde@heuvelqop.nl> wrote in message news:<cn8bao$jp8$1@news2.solcon.nl>...[color=green]
> > Swilson513 wrote:[color=darkred]
> > > OK I have created 3 tables Componets, kits and Complete Kit. I have a
> > > one to many relationship from Componets and Kits to the complete kit.
> > > Now I would like to have a form that is used to build the kits. I
> > > would like to pull up the complete kit number and be able to add
> > > componets to it using a drop down list from the componets. Any
> > > suggestions on doing this??[/color]
> >
> > Yes. Your form fills in kits, represented in this data model by several
> > rows in the complete-kit table. That means it should be based on this table.
> >
> > To have the relation with kits in view, create a form on Kits, and have
> > the before form as subform here. Be sure the data properties
> > LinkMasterFields and LinkChildFields of the subform control are set--if
> > you have set up the relationships as mentioned, they should be filled in
> > automatically.[/color][/color]
[color=blue][color=green]
> >
> > In the data subform, you can have the component field be a combobox
> > control; its *controlsource* is the table (complete kit) field, its
> > *rowsource* the components table.
> >
> > Did you spell 'componets' indeed? :-)[/color]
>
> Well it looked good at the time Components.
>
> Thanks for the help, I'm sure I'll need more.
>
> Thanks Again[/color]
Finally just about everything is working, how could something so easy
be so confusing??
Another question, I need to not allow or at least warn when exiting a
required field on a FORM. I found this information but can't seem to
get it to work. The name of the field is Control Numer (yes another
spelling error on my field:)Do you see what is wrong or other
suggestion?
My field was actually "Control Numer" but with out the "_" I would get
errors.
Private Sub Control_Numer_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
If IsNull(Me.Control_Numer) Then
Cancel = True
strMsg = strMsg & "Control_Numer is required." & vbCrLf
End If
If IsNull(Me.Control_Numer) Then
Cancel = True
strMsg = strMsg & "AnotherField is required." & vbCrLf
End If
'Repeat for other fields as needed.
If Cancel Then
MsgBox strMsg
End If
End Sub
Thank You