Pass ID Of Row In Click Event

[IgnoranceIsBliss]

@arnelgp in another thread of mine gave me a function that would open a form filtered to show only the specific ID information for the row I clicked on my form.

My database became corrupted and I had to re-create it and now it is not working. In the double click event of the field on my form I have the code

=OpenNotes("ID", [Comments])

And I have that method coded like this

Public Function OpenNotes(pkName As String, pkValue As Variant)
Dim strWhere As String
Select Case TypeName(pkValue)
Case "String" Then
    strWhere = pkName & " = '" & pkValue & "'"
Case "Integer", "Long", "Double", "Single"
    strWhere = pkName & " = " & pkValue
Case "Date"
    StrWhere = pkName & " = #" & Format(pkValue, "mm/dd/yyyy") & "#"
End Select
DoCmd.OpenForm FormName:="theFormToOpen", View:=acNormal, WhereCondition:=strWhere
End Function

Now when I step thro the code, if I hover over pkName, I see

pkName = "ID"

And

pkValue = the value of comments

HOWEVER it is comments for all records, not for the ID of the clicked row. What did I set-up incorrectly here in the redo?

 

[theDBguy]

Hi. What happens if you try it this way?

=OpentNotes("ID",[ID])

 

[IgnoranceIsBliss]

Yes, that is it perfectly!! Thank you for the assistance.

 

[theDBguy]

Yes, that is it perfectly!! Thank you for the assistance.

Hi. You're welcome. Glad we could assist. Good luck with your project.