Creating Table

[Joshy]

Hi. I can't seem to be able to create a simple table. Here's the code
I got...

Sub CreateTable()

Dim db As Database
Dim tblR As TableDef
Dim fld As Field
Dim idx As Index

'Create a TableDef object
Set db = CurrentDb()
Set tblR = db.CreateTableDef("tblResult&quot

'Create a field, Set its properties
Set fld = tblR.CreateField("Hour", dbInteger)
fld.OrdinalPosition = 1
fld.Attributes = dbAutoIncrField
tblR.Fields.Append fld

'Creating more fields
... ...
... ...

'Create an index and set its properties
Set idx = tblR.CreateIndex("Primary Key&quot
idx.Primary = True
idx.Required = True
idx.Unique = True

'Add a field to the index
Set fld = idx.CreateField("Hour&quot
idx.Fields.Append fld

'Add the index to the TableDef
tblR.Indexes.Append idx

'Add the table to the database
db.TableDefs.Append tblR

'Refresh the Database Windsow
RefreshDatabaseWindow

End Sub

I get a run-time error at: db.TableDefs.Append tbR (second last line of
code)
the msg says "run time error 3001, invalid argument"
can someone find the mistake please!
thanks.
josh

 

[ghubbell]

Hi Joshy,

Here's your prob': Set fld = tblR.CreateField("Hour", dbInteger)

Needs to be:Set fld = tblR.CreateField("Hour", dbLong)

Thats it!
Gord
ghubbell@total.net