Create objects from array or other

[Ruegen]

I'm looking to make objects using a loop in VBA (and I know this might not be possible)



What I want to be able to do is put in a table name and have it make a bunch of objects (eventually I will make a class out of this whole thing with it's own methods)

I want it to get every name of the table that I type in - basically I will on launch create a class on load with all the fields of the table as public objects

whenever the database needs to update the field I can call it and use a method with ID as a parameter to update the row.

I want a standard function that builds the objects as I want to be able to create/remove fields when required without it affecting the code

I would have caveats in for the data type too (so if it is bool, int, lng etc the method behaves differently)

my code below... any ideas much appreciated

Public Function objTableSQL(TableName As String)


If IsNothing(TableName) = True Then


Exit Function
End If


Dim tableExists As Boolean
Dim strTable As String
strTable = TableName


tableExists = False
Debug.Print


Dim aDatabase As DAO.Database
Dim aTable As DAO.TableDef
Dim aField As DAO.Field
Set aDatabase = CurrentDb()


For Each aTable In aDatabase.TableDefs


    If aTable.Name = strTable Then
        tableExists = True
        For Each aField In aTable.Fields
            
            'create object here with name of field
            
            
        Next aField
    End If


Next aTable


If tableExists = False Then
    Exit Function
End If




End Function

[Ruegen]

...anyone?

[orange]

Can you give an example of what you are visualizing?

You can get all the fields in the table with the code you've shown.
I'm not following the "object" and "class".

Seems to me recordset(s) , filter(s) etc would apply..

[Ruegen]

Can you give an example of what you are visualizing?

You can get all the fields in the table with the code you've shown.
I'm not following the "object" and "class".

Seems to me recordset(s) , filter(s) etc would apply..

I want to treat tables as objects

so "tableName"

tableName.FieldMethod(0)

TableName.FirstName(123) = "Bob" <= this would change the name field

TableName.LastName(123) = "Smith" <= this would change the surname

that way anywhere in the database code I could call

TableName

And it would give me an intelligent of list of it's fields with each method for each

You could also use a with statement

with TableName

.FirstName(x) = me.Text_FirstName.text
.LastName(x) = "me.Text_LastName.text

End Wtih

[Ruegen]

If when loading the database, the front end goes and makes objects automatically of each table and corresponding fields then there is no requirement to make individual object classes for each table

so if you add a new table -> the database makes a new object next load (and every load)

[orange]

Hmmm,

Interesting.
I was thinking more along the standard object model
currentdb.TableDefs("Orders").Fields(0).Name etc.

[Ruegen]

Hmmm,

Interesting.
I was thinking more along the standard object model
currentdb.TableDefs("Orders").Fields(0).Name etc.

It's something that could be used to list and access all the known tables' fields in the database in order to make them objects - but to build objects from the tables without knowing what they are and letting access handle the object creation would be nice.

I don't want to go as far as build a string (text document) or xml and then import the text as vba script - that seems messy especially since it means parsing, importing and activating.

[Ruegen]

I'd like to see June7's opinion on this too :P

just to hear out any ideas...

[orange]

Yes, June and xipooo(Steve) may have ideas (others also).
Steve does more with classes than most on the forum.