Auto Update Macro Comments with Action Arguments

[bobaol]

Hi, I do a lot of Macros in Access. I do the drag and drop version, I do not do any VB Code. Currently, I use Macros to run all my queries. I want to be able to automatically update the "Comment" field in the Macro with the information from the "Action Arguments". For example, my Action is OpenQuery, the Action Arguments contain Query Name as qryActiveContacts. I want the words "qryActiveContacts" to be in the Comment field. If there is code for this, I can copy and paste code into a module, then run it that way. thanks in advance.

[Scott Price]

Hi, I do a lot of Macros in Access. I do the drag and drop version, I do not do any VB Code.

Is this a 12 step program confessional statement?? :-)

Just kidding, actually... I don't think what you are asking for is possible, sorry! The comment section of the macro window is for 'comments' and has no bearing in any code or action taken by the database, so therefore there would be very little incentive for MS to make it available through code.

Sorry to be the bearer of bad news, but you'll have to dust off the typing skills if you want those fields populated.

Regards,
Scott

[ADezii]

Hi, I do a lot of Macros in Access. I do the drag and drop version, I do not do any VB Code. Currently, I use Macros to run all my queries. I want to be able to automatically update the "Comment" field in the Macro with the information from the "Action Arguments". For example, my Action is OpenQuery, the Action Arguments contain Query Name as qryActiveContacts. I want the words "qryActiveContacts" to be in the Comment field. If there is code for this, I can copy and paste code into a module, then run it that way. thanks in advance.

Here are some typical Properties that a Macro will expose along with their Values, in this case, the AutoExec Macro. As you can see, not too much to work with,

Dim intCounter As Integer
 
Debug.Print "======================"
For intCounter = 0 To CurrentDb.Containers("Scripts").Documents("AutoExec").Properties.Count - 1
  Debug.Print CurrentDb.Containers("Scripts").Documents("AutoExec").Properties(intCounter).Name
  Debug.Print CurrentDb.Containers("Scripts").Documents("AutoExec").Properties(intCounter).Value
    Debug.Print
Next
Debug.Print "======================"

OUTPUT:

======================
Name
AutoExec
 
Owner
admin
 
UserName
admin
 
Permissions
 1048575 
 
AllPermissions
 1048575 
 
Container
Scripts
 
DateCreated
8/11/2007 9:25:40 PM 
 
LastUpdated
8/11/2007 9:25:40 PM 
 
======================