Bill Benson
bensonforums at gmail.com
Thu Jun 5 20:13:04 CDT 2014
I am trying to recreate a new database in the image of an existing database.
So I have saved all the objects in the model database as text, and I plan to
import all those objects into the new database. Before doing so, I want to
capture all of the properties of the model database, and recreate them in
the new database. Below is the code I have tried to use, but I am hitting
some properties that will not allow me to get their values into the array,
such as "Connection". That property seems to exist, have a type = 0, but the
value cannot be obtained. I am not sure I can create it in the new database
- nor really whether I should have to.
For Each Prp In ModelDb.Properties
iUB = UBound(VarPrp, 2) + 1
If iUB = 1 Then
ReDim VarPrp(1 To 3, 1 To iUB)
Else
ReDim Preserve VarPrp(1 To 3, 1 To iUB)
End If
VarPrp(1, iUB) = Prp.Name
VarPrp(2, iUB) = Prp.Type
''''GETTING ERROR HERE
''''Operation is not supported for this type object
''''Note that Prp.Name = "Connection
VarPrp(3, iUB) = Prp.Value
''''
''''
Next
Essentially, I cannot load up all the properties of the ModelDB into an
array, which is what I am trying to do.
Help?!