Can you figure out how to do this?

I want to get the value of an object property. The trick is that the name of the property to retrieve is stored in a table.

Here's how I've set it up:

I have a class module "objPerson" which has a property "FirstName".
I can type: objPerson.FirstName = "John Smith"
and then the statement: strFirstName = objPerson.FirstName
will correctly result in strFirstName = "John Smith"

So far, so good, right?

Next, in "MyTable" I have a field "MyField" which contains the text string "objPerson.FirstName"

I want to get the value of the item specified by the string in MyField. In other words, I want the program to determine the value of whatever object property that I have stored in MyField. In this case, I have opened the object objPerson and I want the program to give me the value of "objPerson.FirstName".

I've tried using Eval(), but so far it doesn't work:

  strFirstName = Eval(rst.Fields("MyField"))

The result is: "Error 2482: Microsoft Access can't find the name 'objTenant' you entered in the expression."

If it will always be the objPerson object that you are dealing with, then objPerson(MyField) should give you the first name if MyField contains "FirstName". But, if the objPerson is not always the object you are dealing with, then I'm thinking you are going to have to write a special function with a Select statement and a Case statement for each object you might be dealing with.

Vic

Thanks for your reply, Vic.

Yes, I will be using different objects. I think you are correct about the SELECT-CASE solution.

Here's what I have so far, but I get an error:

=== stub ===
' assume I have already extracted the name of the object and the property:
strObjectName = "objTenant"
strPropertyName = "FirstName"

Select Case strObjectName
 Case "objTenant"
    ' Prepare the object
    Dim objTenant As Tenant
    Set objTenant = New Tenant
    objTenant.Load (TenantID)

    ' the goal is to dynamically get the requested property, like this:
    Debug.print "name=" & objTenant.Properties(strPropertyName)

    ' for testing, this works:
    Debug.Print "name1=" & objTenant.FirstName
    ' ^ up to here it works. It correctly displays: Name1=Joe

    ' The following lines return an error: "Compile error: Method or data member not found"
    Debug.Print "name2=" & objTenant.Properties(strPropertyName)
    Debug.Print "name3=" & objTenant.Properties("FirstName")
    Debug.Print "name4=" & objTenant.Properties!FirstName
========

Any ideas anyone?