<div>
Personally, I would test for OpenArgs is NULL, and if so, exit the sub:<br />
<br />
&nbsp;If IsNull(me.OpenArgs) Then Exit Sub<br />
<br />
&nbsp;Me.Filter = &quot;[PrjID] = &quot;&nbsp;&amp; Split(Me.OpenArgs, &quot;;&quot;)(0) &amp;&nbsp;&quot; AND &quot;&nbsp;_<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &amp;&nbsp;&quot;[EndUserID] = &quot;&nbsp;&amp; Split(Me.OpenArgs, &quot;;&quot;)(1) &amp;&nbsp;&quot; AND &quot;&nbsp;_<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &amp;&nbsp;&quot;[LCNo] = &quot;&nbsp;&amp; Chr(34) &amp;&nbsp;Split(Me.OpenArgs, &quot;;&quot;)(2) &amp;&nbsp;Chr(34)<br />
Me.FilterOn = True
</div>


Personally, I would test for OpenArgs is NULL, and if so, exit the sub:

 If IsNull(me.OpenArgs) Then Exit Sub

 Me.Filter = "[PrjID] = " & Split(Me.OpenArgs, ";")(0) & " AND " _
                & "[EndUserID] = " & Split(Me.OpenArgs, ";")(1) & " AND " _
                & "[LCNo] = " & Chr(34) & Split(Me.OpenArgs, ";")(2) & Chr(34)
Me.FilterOn = True

<div>
thank you sir...<br />
<br />
thanks for the comment fyed.
</div>


thank you sir...

thanks for the comment fyed.

<div>
<div class="content wysiwyg-content">
Experts, when I open this form on its own (meaning Open Args is Null) I get an error msg and the debugger highlights the bolded below. &nbsp;How can I avoid this? &nbsp;I thougth that the first If statement takes care of it. <br />
<br />
Private Sub Form_Load()<br />
<br />
&nbsp; &nbsp; &nbsp; &nbsp; If Nz(Me.OpenArgs, &quot;&quot;) &lt;&gt;&nbsp;&quot;&quot; Then<br />
&nbsp; &nbsp; &nbsp; &nbsp;Me.Filter = &quot;[PrjID] = &quot;&nbsp;&amp; Split(Me.OpenArgs, &quot;;&quot;)(0) ' &amp;&nbsp;&quot; AND [EndUserID] = &quot;&nbsp;&amp; Split(Me.OpenArgs, &quot;;&quot;)(1) &amp;&nbsp;&quot; AND [LCNo] = &quot;&nbsp;&amp; Chr(34) &amp;&nbsp;Split(Me.OpenArgs, &quot;;&quot;)(2) &amp;&nbsp;Chr(34)<br />
&nbsp; &nbsp; &nbsp; &nbsp;Me.FilterOn = True<br />
&nbsp; &nbsp; &nbsp;Else<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<b> Me.PrjID = Split(Me.OpenArgs, &quot;;&quot;)(0)</b> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If<br />
<br />
End Sub
</div>
</div>


Experts, when I open this form on its own (meaning Open Args is Null) I get an error msg and the debugger highlights the bolded below.  How can I avoid this?  I thougth that the first If statement takes care of it. 

Private Sub Form_Load()

        If Nz(Me.OpenArgs, "") <> "" Then
       Me.Filter = "[PrjID] = " & Split(Me.OpenArgs, ";")(0) ' & " AND [EndUserID] = " & Split(Me.OpenArgs, ";")(1) & " AND [LCNo] = " & Chr(34) & Split(Me.OpenArgs, ";")(2) & Chr(34)
       Me.FilterOn = True
     Else
              Me.PrjID = Split(Me.OpenArgs, ";")(0)             End If

End Sub

On Load error msg and Open Args

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.