'--------------------------------------------------------------
' Replace [YourPrimaryKeyField] with the name of your ID field.
' Replace YourReportName with the name of your report
'--------------------------------------------------------------

Private Sub OpenReportByIDBtn_Click()

    Dim vID As Variant
    Dim strWhere As String

    vID = InputBox("Enter the ID to display on the report:", "Enter Record ID")

    ' If user cancels or leaves it blank - do nothing
    If vID = "" Then Exit Sub
    If Not IsNumeric(vID) Then
        MsgBox "Please enter a valid numeric ID.", vbExclamation
        Exit Sub
    End If

    strWhere = "[YourPrimaryKeyField] = " & CLng(vID)

    DoCmd.OpenReport "YourReportName", acViewPreview, , strWhere

End Sub

I copied the code that you provided, updated the ID Field and Report Name but when I click the button, it doesn't do anything.

Did you rename the button on your Form OpenReportByIDBtn and assign your code to the Click Event?

This is a continued conversation from 5 days ago.
In response to Alex, I am sorry, I didn't see that you responded to my last response back to Sandra.

I copied/pasted the code that Sandra provided.  I did not rename the button on the form, should I and what should it be changed to?

The only changes that I made were per Sandra's instructions:
' Replace [YourPrimaryKeyField] with the name of your ID field.
' Replace YourReportName with the name of your report.

When I check the Property Sheet, the "On Click" has [event procedure] and the code was copied/pasted to codebuilder.

Pat