IMMEDIATE WINDOW

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

DS - 17 Sep 2007 19:56 GMT

How do I check this Function in the Immediate Window?

Option Compare Database
Option Explicit
Public Function REDACT()
Dim strPath As String
strPath = Nz(DLookup("BackName", "tblBackPath", "BackID=1 AND
BackActive=-1"), "")
End Function

I'm putting in ?REDACT() and getting nothing back.

Thanks
DS

Reply to this Message

George Nicholson - 17 Sep 2007 19:59 GMT

> I'm putting in ?REDACT() and getting nothing back.

Understandable.

Additions are enclosed with *, but all * should be removed before trying to
run the code.

Public Function REDACT() *As String*
Dim strPath As String
strPath = Nz(DLookup("BackName", "tblBackPath", "BackID=1 AND
BackActive=-1"), "")
*REDACT = strPath*
End Function

HTH

> How do I check this Function in the Immediate Window?
>
[quoted text clipped - 10 lines]
> Thanks
> DS

Reply to this Message

DS - 17 Sep 2007 20:09 GMT

YIPPEE It works!
Thank you George. It only took two days!
Once again Thank You Very Much!
DS

Reply to this Message

Klatuu - 17 Sep 2007 21:12 GMT

Actually, you don't really need the strPath variable:

Public Function REDACT()
REDACT = Nz(DLookup("BackName", "tblBackPath", "BackID=1 AND
BackActive=-1"), "")
End Function

Signature

Dave Hargis, Microsoft Access MVP

> YIPPEE It works!
> Thank you George. It only took two days!
> Once again Thank You Very Much!
> DS

Reply to this Message