Open Report based on the current record selected on the form

[carmenv323]

In my current form (frmRequests) I have a button as an option for the user to View/Print the current record. Following is my code, however it opens the report with no data.

Private Sub bVwRq_Click()
 
    bSave = True
    If Me.Dirty Then
        Me.Dirty = False 
    End If
   
    DoCmd.SetWarnings False
      
    DoCmd.OpenReport "rptViewEst", acViewReport, "", "[txtProjectNumber]=[Forms]![frmRequests]![txtProjectNumber]", acNormal
 
    DoCmd.SetWarnings True
 
 
End Sub

It worked before, but I don't what Access ghost broke it.

[CJ_London]

try

DoCmd.OpenReport "rptViewEst", acViewReport, "", "[txtProjectNumber]=" & me.[txtProjectNumber], acNormal

[carmenv323]

Thank you!

[azhar2006]

 On Error Resume Next


 	Dim strReportName As String
    	Dim strCriteria As String


    If NewRecord Then
        MsgBox "Msg" 


        Exit Sub
    Else
    On Error Resume Next


        strReportName = "ReportName"
        strCriteria = "[ID]= " & Me![ID]


        DoCmd.OpenReport strReportName, acViewReport, , strCriteria
        DoCmd.RunCommand acCmdPrint
        DoCmd.Close acReport, "MastrRpt_internal", acSaveYes


	End If