Connecting Forms to a Report

[jbates]

I have a report which is linked to a query. The report lists Names of Visitors,and dates of visits. I also have a form which I use to add/store the names of the visitors and their visit date. Visitors frequently re-visit the site, so therefore for each visit they do, I add as a new record, each with their own Primary ID number on the form.

What I'm trying to achieve via a VBA code within the report is this, I wish to be able to click on the name of the visitor i.e. John Smith, which will then open/filter all of John Smiths forms. At the moment my report lists all of "John Smiths" visits by ID numbers, so I'm having to individually click on each ID to open up his record, my VBA code for that is:

Private Sub ID_Click()
On Error GoTo myError
Dim varWhereClause As String
varWhereClause = "ID = " & Me!ID
DoCmd.OpenForm "frmVisitorScreen", , , varWhereClause
leave:
Exit Sub
myError:
MsgBox Error$
Resume Next
End Sub

I'm wondering if I can use something similar. Help with this would be most appreciated.

Thank you.

[burrina]

You can create a query with the form name of the person in your query grid.
HTH

[jbates]

Many thanks for your message. I was just wondering if you could elaborate on this. Sorry to be a pain, but Access is still a learning curb for me. I have a query based on the report, are you saying that I need to put some code in the 'Criteria'?

Thanks again.

[burrina]

Take a look at this example:

http://office.microsoft.com/en-us/ac...001117077.aspx

HTH

[jbates]

Thanks for the link, though it provided useful information it didn't help with what I was trying to set out to achieve. Basically I wanted to be able to click on one of many names of visitors i.e. "John Smith" from the report, which by clicking on his name will then open all of John Smiths records (which is taken from a form), whereby I can then edit their record(s). The report helps me to establish what records need updating, but the changes need to be done on their form.

Anyway I managed to get the code to make this happen, it is as follows:

Private Sub NameofVisitor_Click()
Dim strWhere As String
Dim DocName As String

DocName = "Movement List"
strWhere = "[NameofVisitor]='" & Me.NameofVisitor & "'"
DoCmd.OpenForm "frmVisitorScreen", acNormal, , strWhere
End Sub

Thanks for your help.