<!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 color=#0000ff face=Arial size=2><SPAN class=100393115-06032003>TaDaa!
That works.</SPAN></FONT></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV align=left class=OutlookMessageHeader dir=ltr><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> John Frederick
[mailto:j.frederick@att.net]<BR><B>Sent:</B> Thursday, March 06, 2003 8:25
AM<BR><B>To:</B> accessd@databaseadvisors.com<BR><B>Subject:</B> RE: [AccessD]
Help with function<BR><BR></DIV></FONT>
<DIV><SPAN class=937501514-06032003><FONT color=#0000ff face=Arial size=2>I
don't see anything in my documentation on the IsNull funtion in Access 97 or
Access 2000 that suggests that a query name can be used as
you do in both of your examples. My first attempt would be
to say:</FONT></SPAN></DIV>
<DIV><SPAN class=937501514-06032003><FONT color=#0000ff face=Arial
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=937501514-06032003><FONT color=#0000ff face=Arial
size=2>Function NoEval()</FONT></SPAN></DIV>
<DIV><SPAN class=937501514-06032003><FONT color=#0000ff face=Arial
size=2> If DCount("*","qry_EvaluatorNull") > 0
Then 'gives the number of records returned by the
query</FONT></SPAN></DIV>
<DIV><SPAN class=937501514-06032003> <FONT
face=Arial size=2> DoCmd.OpenForm "frm_RCSE", acNormal,
"qry_EvaluatorNull", , acFormEdit, acWindowNormal<BR>
Else<BR> MsgBox "All RCSEs have been
assigned to an
Evaluator" <BR>
End If<BR>End Function</FONT> </SPAN></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV align=left class=OutlookMessageHeader dir=ltr><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B>
accessd-admin@databaseadvisors.com
[mailto:accessd-admin@databaseadvisors.com]<B>On Behalf Of
</B>Hollis,Virginia<BR><B>Sent:</B> Thursday, March 06, 2003 8:34
AM<BR><B>To:</B> 'accessd@databaseadvisors.com'<BR><B>Subject:</B> [AccessD]
Help with function<BR><BR></FONT></DIV>
<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></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>