Popup Form Show Related Data From Main Form.

[burrina]

I have the fields needed on my main form but there is no room for them. So I have a popup form that shows the history of the record.
I need the popup form to show ONLY the data related to that specific record. 2 fields are a checkbox and a date field.
Here is my code now that opens the popup form. The Primary Key is EventID What happens is that the popup shows all the PK's no matter what. Popup recordsource is the same table as main form.Popup is also a continuous form. I want to be able and see all the entries for that record ONLY. EventID is what should tie them together!

On Error GoTo Err_history_Click

Dim stDocName As String


Dim stLinkCriteria As String

stDocName = "frmEventSubTwo"
DoCmd.OpenForm stDocName, , , stLinkCriteria
strCriteria = "[EventID] = " & Me![EventID]

Exit_history_Click:
Exit Sub

Err_history_Click:
MsgBox Err.Description
Resume Exit_history_Click

[ketbdnetbp]

Burrina -

Not sure if this is the problem but, you have...

On Error GoTo Err_history_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmEventSubTwo"
DoCmd.OpenForm stDocName, , , stLinkCriteria
strCriteria = "[EventID] = " & Me![EventID]
Exit_history_Click:
Exit Sub
Err_history_Click:
MsgBox Err.Description
Resume Exit_history_Click

You made need to change this line (add red text):

strLinkCriteria = "[EventID] = " & Me![EventID] 'Assumes [EventID] is numerical

as there was a typo "link" was missing and this controls the filtering.

All the best,

Jim

[burrina]

Good catch, I corrected that but no difference! YES, EventID is a number, it is the Primary Key.

[ssanfu]

You have to have the strLinkCriteria line BEFORE the DoCmd.OpenForm line!!!

You have

On Error GoTo Err_history_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmEventSubTwo"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    strCriteria = "[EventID] = " & Me![EventID]

Exit_history_Click:
    Exit Sub

Err_history_Click:
    MsgBox Err.Description
    Resume Exit_history_Click

"stLinkCriteria" is empty when the open form command is executed.



It should be:

On Error GoTo Err_history_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stLinkCriteria= "[EventID] = " & Me![EventID]  'added "Link"as per ketbdnetbp :)
    stDocName = "frmEventSubTwo"
    DoCmd.OpenForm stDocName, , , stLinkCriteria


Exit_history_Click:
    Exit Sub

Err_history_Click:
    MsgBox Err.Description
    Resume Exit_history_Click

[burrina]

Hmmm, adjusted that and still same result.

[ssanfu]

So the next step is to check if the event ID is correct. Add the BLUE line

    stLinkCriteria= "[EventID] = " & Me![EventID] 
    Msgbox stLinkCriteria
    stDocName = "frmEventSubTwo"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Next, does the form "frmEventSubTwo" have the field "[EventID]" in the record source?

[burrina]

messagebox showed nothing.

[ssanfu]

There you go..... So why is Me![EventID] NULL???


Try changing the line to:

    DoCmd.OpenForm stDocName, , , "[EventID] = 21"

Are the correct records returned??

[burrina]

That would work of course but when I need to see other records??? I don't know why it is null! I need a " " filter or something so it can use whatever value the record is on.i.e. EventID Maybe EventID.Value I have not tried that yet!

[ssanfu]

"Value" is the default property so adding ".Value" won't gain anything.

In your attachment, you show a control with a value of 21. You have to figure out why Me.EventID is returning a NULL. When you call the code, are you on the same form as the event id control. Is the event ID control on a subform?

[burrina]

SOLUTION: Base the popup form on a query and use this as the criteria for EventID

=[Forms]![frmEvent]![EventID]

Thanks for your help.

[ssanfu]

I base all forms on queries. Easier to filter/sort.....