master field and child field

[CAPTGNVR]

DEAR ALL
a) Designed one sub report AS "INT_SUB" and final report as "INT_REP".

b) In 'INT_REP" source is from "INT_SUB" and MASTER AND CHILD fields to
"INTRODUCED BY" field.

c) Wiht one list box by name "INTRO_NAMES" got the list of names to be shown.

D) Event procedure for listbox after update asf:

Private Sub INTRO_NAMES_AfterUpdate()
Dim INTRONAME As String
INTRONAME = "INTRODUCED BY = Forms![INTRO_D]!INTRO_NAMES"
DoCmd.OpenReport "INT_REP", acViewPreview, , INTRONAME
End Sub

e) I still get a input box asking for " enter parameter value-- INTRODUCED BY"

Can anyone help me what I am doing wrong. Read extensively and unable to
trace - in short I need the foll:

1. to take from list of men, a report of members they introduced.

2. to take multi choice of more than three or four men and make a report of
the members introduced by them.

3. all information is in one table only.

Trust me after trying for three days I have decided to seek assistance. Pls
help.

BRGDS/CAPTGNVR

 

[NoodNutt]

You stated all the info is in one table.

This will not produce what you are wanting.

you need two tables

Table.1 (YourCurrentMembers)
MemberID = UniqKey - (NoDuplicates)
Member details.................etc

Table.2 (YourMemberIntroductions)
MemberID = (Number - LongInteger)
IntroDetails:
IntroName..................etc.

Once you have done this, base your "report" on Tbl.1 and your SubReport on
Tbl.2.

Linkfield would be Master & Child = MemberID

HTH
Mark.

 

[CAPTGNVR]

D/MARK
Thnks for the tip. However, I am almost through with all in one table.

Since it was not very clear I have posted in one another location also in ms
office. I got the code and now trying to get a code to make it for multi
select.

The code which needs to be amended for mutil select as follows

Private Sub INTRO_NAMES_AfterUpdate()
Dim INTRONAME As String
Dim MyIntro As String
INTRONAME = "INTRODUCED BY = Forms![INTRO_D]!INTRO_NAMES"
MyIntro = Me.INTRO_NAMES

DoCmd.OpenReport "INTRO", acViewPreview, , "[INTRODUCED BY]=""" & MyIntro &
""""
DoCmd.Maximize


End Sub

brgds/captgnvr