Hi Everyone,

Just tossing this out there for consideration: Is anyone aware of an
IDE add-in that allows for the editing of procedure attributes? It is
annoying as hell to have to export, edit, delete the original, import
each time I want to do this. I have had a sniff around and come across
some nice add-ins but none to do this task.

Anyone care to share?

The Frog

On Thu, 7 Apr 2011 04:31:48 -0700 (PDT), The Frog
<mr.frog.to.you (AT) googlemail (DOT) com> wrote:

What do you mean by procedure attributes?

Tony
--
Tony Toews, Microsoft Access MVP
Tony's Main MS Access pages - http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/
For a convenient utility to keep your users FEs and other files
updated see http://www.autofeupdater.com/

Hi Tony,

What I mean is setting things like the default member etc... Allowing
a collection enum to be passed through when using a wrapper class, and
so on. These are things that are set in this way (via notepad at the
moment...):

Public Property Get Item(ByVal id As Variant) As Query
Attribute Item.VB_UserMemId = 0 '<-----This is what I mean
On Error GoTo Item_Error

Set Item = mColItem(id)

On Error GoTo 0
Exit Property

Item_Error:
End Property

This example would set the Item property to be the default property
for a class. In the standard VBA IDE we dont have access to these
types of class attributes and so we have to export our classes out of
Access, edit them with something like notepad or VB6, then re-import
them - and if we make a change to the class then we have to do it all
over again. Bloody annoying.

I am looking for an integrated way of handling this inside the VBA
IDE. So far my searches have not found one. I was wondering if anyone
may have come across an add-in that handles this silly little problem.

Any thoughts

Cheers

The Frog

Actually the specifc problem I am having is in the creation of a
collection class where I am trying to pass the enum through to the
underlying collection to enable the for each....next iteration.
Setting the default member as in the above example code actually works
quite well and the VBA IDE even seems to remember the setting between
saves (A2003). What I cant seem to get to work (although I remember I
used to) is to do the enum thing like so:

'---------------------------------------------------------------------------------------
' Procedure : NewEnum
' Author : HOGENAND
' Date : 13/04/2011
' Purpose : pass a call to the collection objects enumeration
function
' : ***NOTE - this is a wrapper function for the VB
collection class
' : which allows for the use of for each...next looping in
this class
' : 'Attribute NewEnum.VB_UserMem_Id = -4' must be set
'---------------------------------------------------------------------------------------
'
Public Function NewEnum() As IUnknown
'<----------I used to paste the attribute stuff here via notepad and
then re-import
Set NewEnum = mCollectionName.[_NewEnum]
End Function

This no longer seems to be playing nice. It is not absolutely
essential as I have an item method set as the default method and also
a count property exposed so looping can still be done - its really a
matter of style (and quite frankly principal IMO) to have the for
each...next actually functioning. If I import the code with the
attribute set (old version of the class is removed first) and save as
I seem to remember doing in the past I get no result (does not support
property or method or some such rubbish).

I am an avid supporter of using class objects and coding in class
modules in Access. Its just the way I like to do things - work it out
procedurewise and then create a class to encapsulate the complexity.
Makes things very nicely re-usable too. I know that VBA isnt a full OO
language so I cant expect all OO abilities from it, but it can support
a lot of them. Setting the attributes like above for collection
classes is especially important IMO - just annoying you cant do it in
the IDE directly.

Sorry if I seem like I am ranting! Crossing the t's and dotting the
i's is taking longer that I would like on this project. I thought a
better example might explain my desire for a suitable add-in better
than my previous post.

Cheers

The Frog

Sorry, there is a typo in the above:
The attribute setting should read:

Attribute NewEnum.VB_UserMemId = -4

I had an extra underscore(_) between Mem and Id. My point above still
stands though! I also discovered that the setting works on another
machibe here in the office so I built a new MDB and re-imported all
the modules from files in the IDE and it is working. Still a pain in
the butt......

Cheers

The Frog