<div>
Try this ...<br />
<br />
If CurrentUser &lt;&gt;&nbsp;&quot;ou&quot; &nbsp;OR CurrentUser &lt;&gt;&nbsp;&quot;wa&quot; &nbsp;OR CurrentUser &lt;&gt;&nbsp;&quot;ns&quot; Then<br />
&nbsp; &nbsp; &nbsp; &nbsp;Report.RecordSource = &quot;qryWorksForUsername&quot;<br />
End If<br />
<br />
ET
</div>


Try this ...

If CurrentUser <> "ou"  OR CurrentUser <> "wa"  OR CurrentUser <> "ns" Then
       Report.RecordSource = "qryWorksForUsername"
End If

ET

<div>
<div class="content wysiwyg-content">
I have this:<br />
Private Sub Report_Activate()<br />
<br />
'If CurrentUser &lt;&gt;&nbsp;&quot;ns&quot; Then<br />
&nbsp;' &nbsp; Report.RecordSource = &quot;qryWorksForUsername&quot;<br />
&nbsp; ' &nbsp;End If<br />
&nbsp; &nbsp; If CurrentUser &lt;&gt;&nbsp;&quot;ou&quot; Then<br />
&nbsp; &nbsp; &nbsp; &nbsp;Report.RecordSource = &quot;qryWorksForUsername&quot;<br />
&nbsp; &nbsp; End If<br />
&nbsp; &nbsp;' If CurrentUser &lt;&gt;&nbsp;&quot;wa&quot; Then<br />
&nbsp; &nbsp; ' &nbsp; Report.RecordSource = &quot;qryWorksForUsername&quot;<br />
&nbsp; &nbsp; 'End If<br />
<br />
End Sub<br />
<br />
I didn't write this but now I need to modify it so that it affects more than one user as it only does now.<br />
<br />
So I would like to make this statement<br />
<br />
&nbsp; If CurrentUser &lt;&gt;&nbsp;&quot;ou&quot; Then<br />
&nbsp; &nbsp; &nbsp; &nbsp;Report.RecordSource = &quot;qryWorksForUsername&quot;<br />
<br />
effective for user ou, wa and ns all at once. &nbsp;I would think there is a way to do this.
</div>
</div>


I have this:
Private Sub Report_Activate()

'If CurrentUser <> "ns" Then
 '   Report.RecordSource = "qryWorksForUsername"
  '  End If
    If CurrentUser <> "ou" Then
       Report.RecordSource = "qryWorksForUsername"
    End If
   ' If CurrentUser <> "wa" Then
    '   Report.RecordSource = "qryWorksForUsername"
    'End If

End Sub

I didn't write this but now I need to modify it so that it affects more than one user as it only does now.

So I would like to make this statement

  If CurrentUser <> "ou" Then
       Report.RecordSource = "qryWorksForUsername"

effective for user ou, wa and ns all at once.  I would think there is a way to do this.

Access - On Open Event Procedure - Report

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.