<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META content="MSHTML 5.00.3314.2100" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Arial size=2><SPAN class=540152513-06032003>I am trying to write
a function that will open a form with a filter. I can't seem to get it in the
correct order. I tried it two different ways as shown below. If the evaluator
has been assigned, I do not want the form to open, the message "All assigned"
should show.</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=540152513-06032003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN class=540152513-06032003>In the first try,
the message does not show at all. The second try, the message works, but the
form still opens, so I added the last line of DoCmd.Close acform, "frm_RCSE".
The form shows then closes. I would like the form not to even show. I tried
adding an On Error Resume Next, but that did not work either, the form still
opened & then closed.</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=540152513-06032003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN
class=540152513-06032003>Virginia</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=540152513-06032003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN class=540152513-06032003>*******One
Way**********</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN class=540152513-06032003>Function
NoEval()<BR> If Not IsNull("qry_EvaluatorNull.evaluatorID")
Then<BR> DoCmd.OpenForm "frm_RCSE",
acNormal, "qry_EvaluatorNull", , acFormEdit,
acWindowNormal<BR>
Else<BR> MsgBox "All RCSEs have been
assigned to an Evaluator"<BR>
DoCmd.Close acForm, "frm_RCSE"<BR> End If<BR>End
Function</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=540152513-06032003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN class=540152513-06032003>**********Second
try*********</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN class=540152513-06032003>Function
NoEval()<BR> DoCmd.OpenForm
"frm_RCSE", acNormal, "qry_EvaluatorNull", , acFormEdit,
acWindowNormal</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN class=540152513-06032003>
If Not IsNull("qry_EvaluatorNull.evaluatorID")
Then<BR> MsgBox "All RCSEs have been
assigned to an Evaluator"<BR>
DoCmd.Close acForm, "frm_RCSE"<BR> End If<BR>End
Function</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=540152513-06032003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN
class=540152513-06032003></SPAN></FONT> </DIV></BODY></HTML>