I got this code to wrok. Is there a more elegant way of doing it?
Private Sub btnSearch_Click()
If DCount("ParticipantID", "tblParticipantDetails", _
"ParticipantID = Forms!frmPrintAllReports!txtSearch") > 0 Then
DoCmd.OpenReport "rptAthensQuestionnaire", acPreview, , _
"ParticipantID =...