Re: Public variable named from field content

Tech-Archive recommends: Fix windows errors by optimizing your registry

On Apr 16, 1:29 pm, Dale Fye <dale....@xxxxxxxxxx> wrote:
I'm not aware of anyway to do what you are trying to accomplish.  You could
store the variable name and value in a collection, or you could store these
values in a control on a form.  I occassionally store public variables in
text boxes on my form.  I extend the length or width of a form, and put
textboxes (set the TabStop to False, and scrollbars set to none) in that
extended area.  With the TabStop set to False and the scrollbars turned off,
the user should never get to see these textboxes, but they provide you a way
to see what is in them as you are developing.

Then you could name them txt_GCF1, txt_gAFa, ...
and could reference them as follows:

   Dim rs as DAO.Recordset
   Set rs = currentd.openrecordset("Select * FROM yourTable")

   While not rs.eof

       me.Controls("txt_" & rs(2)).Value = rs(3)
       rs.movenext

    Wend
    rs.close
    set rs = nothing

HTH
Dale
--
Don''t forget to rate the post if it was helpful!

email address is invalid
Please reply to newsgroup only.



"rwfreeman" wrote:
I've declared 20 Public variables in the Declaration section of a
General module:
Public gCF1 as Double, gAFa as Double, etc.

These variables will contain values that are used in subsequent
calculations in the project and they represent default conditions.
However the user could elect to override one or all of them
temporarally and perform a non-default calculation.  So my thought is
to assign values from the default table to public variables that could
be altered if the user chooses to do so.

Values for the variables are stored in a table that is queried to
create a recordset ("rst") that has a structure like so
rst.Fields(2)    rst.Fields(3)
  CF1                0.000001
  AFa                 0.2
so that the name of the variable is in .Fields(2) and its numeric
value is in .Fields(3).  Thus, gCF1 should have a value of 0.000001
and gAFa should have a value of 0.2.

Looping through the recordset and using a SELECT CASE
rst.Fields(2).Value statement works but seems to me to be rather
inelegant and inflexible.  If, instead of the SELECT CASE, I use a
statement such as
"g" & rst.Fields(2).Value = rst.Fields(3).Value
an compile error results ("Expected identifier or line number.")

FoxBase had a "macro substitution" (&VariableName=VariableValue) which
worked perfectly for this.  What's the VBA equivalent?

Thanks for the help- Hide quoted text -

- Show quoted text -

Dale, thanks. I believe I'll stick with my SELECT CASE ... END CASE
construct.

Richard
.

Relevant Pages

  • Re: Another typical Best Buy screwjob
    ... It seems like a pretty simple transaction: purchase computer, ...   ... calls and some appreciation of customer service in any form; a store I have ... After speaking with several customer service reps we were told ...
    (rec.sport.pro-wrestling)
  • Re: Buckyballs as hydrogen "containers"
    ... materials scientists at Rice University have ... cost-effectively store hydrogen for use in cars. ... hydrogen cars to be competitive with gasoline-powered cars, ...   There is only limits to mans ingenuety. ...
    (alt.gathering.rainbow)
  • Re: The brilliant youth of today solves all problems
    ... Why do you say they usually sell stuff of lousy quality? ... I have a Walmart near me and used to occasionally shop there. ...   My ... They sell good name brands and the store is well run. ...
    (soc.senior.issues)
  • Re: Heres An Interesting Story
    ... gun store. ... around 4:30 morning but by the time deputies arrived the burglar or ...    Why is everyone so hostile over a news story? ... And since it's the county sherriff responding and not the police, ...
    (talk.politics.guns)
  • Re: checking In.......
    ... and i wont be going to the store in them. ...   The reason why its haunting me so badly is, ... and is also allergic to ciggy smoke. ... Put pen to paper and plan the work. ...
    (alt.support.stop-smoking)