
This Database contains 3 items to help your coding productivity.
        A module "zbasDeveloper" containing one function "SetMod()".
        A form "zfrmTemplate".
        A macro "Autokeys".

When writing a new function, or sub, I got tired of typing the same generic template type stuff, so I mechanized it.  Now, when I begin a new one, after I get the usual 3 lines:
          Function ANewFunction()

          End Function
I place the cursor on the middle (blank) line and hit Ctrl+F12 and my template writes in, complete with appropriate error handling strings in place.

The principle is cut and paste, using a txtbox on the form "zfrmtemplate" which I used as my form design template anyway.  Since it's so simple, I cannot see a reason for it not to work in any Access setup.

Notes:
1. I have this function in my library mda and named "pcg_SetMod()",  pcg stands for Pearce Consulting Group.  I strongly recommend you rename all references to "SetMod" to a similar format using your initials.  The same for all functions in any library mda.  Also, make sure you identify your library mda in your ini file.

2. Although not required for this example to work, I recommend the use of a form template.  This is done via the View|Options|Form and Report Design|Form Template menu.

3. For SetMod() to be functional, you need to use the AutoKeys macro.  If you change the function name as recommended in Note 1, be sure to rename it here also.

4. I have removed my copyright on this mdb and everything in it.  Try it, use it, make money, have fun.

5. The standard legal disclamer.  Although I do not forsee the possibility of this routine causing anybody harm, your use of it constitutes your accecptance of all responsibility for both good and harm it may cause.

Finally, it's always nice to get feedback when you contribute something.  Please send yours to:
                    Earle Pearce
                    75270,526