[AccessD] Missing references

Thanks Gustav,

1 last question if I may...I now see where the IF came from in the 
macro...but how in the macro would I have used an ELSE with that IF?

Thanks,

Mark A. Matte


>From: "Gustav Brock" <Gustav at cactus.dk>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: <accessd at databaseadvisors.com>
>Subject: Re: [AccessD] Missing references
>Date: Fri, 16 Feb 2007 17:43:20 +0100
>
>Hi Mark
>
>You need to show the two columns for condition etc.
>
>However, you can read the full macro in from a file.
>Cut and paste the text below into a new textfile (Notepad).
>
><macro>
>Version = 131074
>ColumnsShown = 3
>Begin
>     Action ="Echo"
>     Argument ="0"
>End
>Begin
>     Condition ="CheckReferences()=False"
>     Action ="RunCode"
>     Argument ="VerifyReferences(True)"
>End
>Begin
>     Condition ="..."
>     Action ="OpenModule"
>     Argument ="USysReferencesCheck"
>End
>Begin
>     Condition ="..."
>     Action ="RunCommand"
>     Argument ="126"
>End
>Begin
>     Condition ="..."
>     Action ="Close"
>     Argument ="-1"
>     Argument =""
>     Argument ="0"
>End
>Begin
>     Action ="Echo"
>     Argument ="-1"
>End
></macro>
>
>Then import it in Access with the command in the immediate window:
>
>   LoadFromText acMacro, "AutoExec", "d:\filename.txt"
>
>/gustav
>
> >>> markamatte at hotmail.com 16-02-2007 17:23:25 >>>
>Thanks Gustav,
>
>This is almost embarrassing...I see the code...I know what the code 
>does...I
>can write VBA...ALL...DAY...LONGGGG...But I don't know how to convert your
>IF statement back to a macro???  lol...Not sure why but I find this fact
>amusing, but I do.  Here is the VBA/Macro...
>
><macro>
>
>'------------------------------------------------------------
>' AutoExec
>'
>'------------------------------------------------------------
>Function AutoExec()
>
>   DoCmd.Echo False, ""
>   If (CheckReferences() = False) Then
>     Call VerifyReferences(True)
>     DoCmd.OpenModule "USysReferencesCheck", ""
>     DoCmd.RunCommand acCmdCompileAndSaveAllMod
>     DoCmd.Close , ""
>   End If
>   DoCmd.Echo True, ""
>
>End Function
>
></macro>
>
>I got the echo part...lol...but how do you do the if statement?
>
>Thanks,
>
>Mark A. Matte
>
> >From: "Gustav Brock" <gustav at cactus.dk>
> >Reply-To: Access Developers discussion and problem
> >solving<accessd at databaseadvisors.com>
> >To: <accessd at databaseadvisors.com>
> >Subject: Re: [AccessD] Missing references
> >Date: Fri, 16 Feb 2007 00:03:43 +0100
> >
> >Hi Mark
> >
> >Some years ago we had a lengthy thread on this.
> >Look up here:
> >
> >http://databaseadvisors.com/pipermail/accessd/2003-July/011034.html
> >
> >/gustav
> >
> > >>> markamatte at hotmail.com 15-02-07 23:02 >>>
> >Thanks John,
> >
> >I'm not referencing any other app or docs...I was referring to when you 
>are
> >in a module and goto TOOLS---REFERENCES...and there is something missing 
>or
> >incorrect.
> >
> >Is binding relevant at this point?  If not...back to the original
> >question:...how to handle the 'missing'???
> >
> >Am I still confused>..lol...???
> >
> >
> >Thanks,
> >
> >Mark A. Matte
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com

_________________________________________________________________
With tax season right around the corner, make sure to follow these few 
simple tips. 
http://articles.moneycentral.msn.com/Taxes/PreparationTips/PreparationTips.aspx?icid=HMFebtagline