Add Index = Error 3058

#1

I am trying to add a Field FieldName = "MemAddID" to a table

With MyTblDef
Set MyField = .CreateField(FieldName, dbLong)
MyField.Required = True
MyField.OrdinalPosition = 0
..Fields.Append s.Append MyField ' Add Field "MemAddID" at top of table OK

Set MyIndex = .CreateIndex(FieldName)
Set MyField = MyIndex.CreateField(FieldName)
MyIndex.Required = True
MyIndex.Unique = True
'MyIndex.Fields.Append MyField
MyIndex.Fields.Append MyIndex.CreateField(FieldName)
.Indexes.Append MyIndex 'ERROR
End With

The field is added, but not the index. I get Error 3058 "Index or primary key
cannot contain a Null value" There are no indexes in the table

What am I doing wrong

#2

On 11/09/2010 15:10:04, "Phil" wrote:

Quote:

I am trying to add a Field FieldName = "MemAddID" to a table

With MyTblDef
Set MyField = .CreateField(FieldName, dbLong)
MyField.Required = True
MyField.OrdinalPosition = 0
.Fields.Append s.Append MyField ' Add Field "MemAddID" at top of table OK

Set MyIndex = .CreateIndex(FieldName)
Set MyField = MyIndex.CreateField(FieldName)
MyIndex.Required = True
MyIndex.Unique = True
'MyIndex.Fields.Append MyField
MyIndex.Fields.Append MyIndex.CreateField(FieldName)
.Indexes.Append MyIndex 'ERROR
End With

The field is added, but not the index. I get Error 3058 "Index or primary
key cannot contain a Null value" There are no indexes in the table

What am I doing wrong

Ignore me
MyIndex.Required = True should be MyIndex.Required = False

Works a treat now

Phil

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Add Index = Error 3058

comp.databases.ms-access comp.databases.ms-access

Add Index = Error 3058 - 09-11-2010 , 09:10 AM

Re: Add Index = Error 3058 - 09-11-2010 , 09:22 AM