Freigeben über

Quick Trick: Copying Embedded Macros from one Property to another

  • Artikel

Now that we spent all this time talking about templates, how about we put to use something we learned about it in a totally unexpected way? Remember that we talked about how embedded macros are really represented as SaveAsText/LoadFromText alongside objects?

Unlike VBA code associated with event properties (e.g. OnLoad, etc) and like other 'simple' properties (such as the Default view Property), you can copy an embedded macro from a control/form/report's property to another (or the same) control/form/report property.

The trick is that for each event property off of form/report/controls, there is a "shadow" property that contains the embedded macro for that event property. For example, the OnLoad property has a dual OnLoadMacro property that contains its embedded macro (if there is one, otherwise it's empty).

So, it's very easy to copy embedded macros around by simply writing code that looks like this:

Forms(0).Controls("foo").OnLoadMacro = Forms(1).Controls("bar").OnOpenMacro

Of course, if you look at what actually is in the .*Macro "shadow properties", you will find out that it is the same output that a DoCmd.SaveText acMacro, "foo", "Macro1" has. This means that you can easily load/save/copy standalone macros to/from embedded macros.

Comments

  • Anonymous
    September 28, 2006
    Very clever. Thanks for pushing so much info our way.

  • Anonymous
    September 30, 2006
    The comment has been removed

  • Anonymous
    October 01, 2006
    Do you have Windows XP with SP2 installed? I believe the requirements mention that you need SP2.

    Here are the requirements:

    http://www.microsoft.com/office/preview/beta/sysreq.mspx

  • Anonymous
    October 16, 2006
    Does the DoCmd object have a SaveText method? Because on Access VBA help I can only find Save.

  • Anonymous
    October 16, 2006
    The DoCmd SaveAsText and LoadFromText methods are undocumented and hidden from VBA object explorers. Just type DoCmd.SaveAsText on your VBE immediate window and you will see the arguments, etc.