Option Strict On/Off

[mconnolly4]

Trying to create a primary key within a DAO access database from within VB
2005

The following code works but only if I turn off option strict

The line idxDesignTable.Fields.append(fldDesignIndex) is the source of the
problem.

Does anyone have an idea how I can recode to avoid the late bound issue

Thanks

Mike
'
'Create Primary Key Index Field
Dim idxDesignTable As Index
idxDesignTable = DesignTable.CreateIndex("KeyID" & "index")
Dim fldDesignIndex As Field
fldDesignIndex = idxDesignTable.CreateField("KeyID", dbLong)
idxDesignTable.Fields.append(fldDesignIndex) 'This line is the eror source
idxDesignTable.Primary = True
DesignTable.Indexes.Append(idxDesignTable)
'

 

[Armin Zingler]

Trying to create a primary key within a DAO access database from
within VB 2005

The following code works but only if I turn off option strict

The line idxDesignTable.Fields.append(fldDesignIndex) is the source
of the problem.

Does anyone have an idea how I can recode to avoid the late bound
issue

Thanks

Mike
'
'Create Primary Key Index Field
Dim idxDesignTable As Index
idxDesignTable = DesignTable.CreateIndex("KeyID" & "index")
Dim fldDesignIndex As Field
fldDesignIndex = idxDesignTable.CreateField("KeyID", dbLong)
idxDesignTable.Fields.append(fldDesignIndex) 'This line is the
eror source

Untested:

DirectCast(idxDesignTable.Fields, Fields).Append(fldDesignIndex)



Armin

 

[mconnolly4]

Armin

Thanks, tried to use and following error
'unable to cast COM object type System COM to DAO.Fields

Any other suggestions - this has really got me baffled as fields is a member
of DAO.Index

Mike

 

[Armin Zingler]

Armin

Thanks, tried to use and following error
'unable to cast COM object type System COM to DAO.Fields

Any other suggestions - this has really got me baffled as fields is
a member of DAO.Index

Probably must be IndexFields:

DirectCast(idxDesignTable.Fields, IndexFields).Append(fldDesignIndex)

(still untested...)


Armin

 

[Michael D. Ober]

Instead of DirectCast, use the VB pseudo function CType.

CType(idxDesignTable.Fields, Fields).Append(fldDesignIndex)

If this doesn't work, use the object browser to the the actual type for
idxDesignTable.Fields and use CType to cast to it.

Mike Ober.

 

[mconnolly4]

Armin

Changing as suggested to IndexFields worked

Thanks, so much

Mike

 

[mconnolly4]

Armin

One more question please - where di you find the term "IndexFields" it
doesn't appear in object browser

Thanks again

Mike

 

[Armin Zingler]

Armin

One more question please - where di you find the term "IndexFields"
it doesn't appear in object browser

It does appear if you don't hide these members (in the object browser at the
top right there's a drop down menu where you can hide these types and
members).
I wondered which type it could be if not "Fields", so I've searched for
"Append" and found "IndexFields". Obviously that's the one.


Armin

 

[mconnolly4]

Armin

Thanks - really appreciate the help

Mike

It does appear if you don't hide these members (in the object browser at
the top right there's a drop down menu where you can hide these types and
members).
I wondered which type it could be if not "Fields", so I've searched for
"Append" and found "IndexFields". Obviously that's the one.


Armin