Помогите с ошибкой

Alexanderik
Дата: 30.05.2004 16:02:24
Вроде все проверил. Вылетает ошибка

Public Sub CreateDB(sDBXLS As String)
 Dim tdExample As TableDef
 Dim fldID As Field
 Dim dbDatabase As Database

 Dim sNewDBPathAndName, sDBPath As String
 Dim WB As Excel.Workbook, WS As Excel.Worksheet
   
  sNewDBPathAndName = sDBPath

Set dbDatabase = CurrentDb     'CreateDatabase(sNewDBPathAndName, dbLangGeneral, dbEncrypt)
Set tdExample = dbDatabase.CreateTableDef("NewInvoice")

 

Set fldID = tdExample.CreateField("ID", dbInteger)
    fldID.Attributes = dbAutoIncrField
Set fldJob = tdExample.CreateField("Job", dbText, 50)
Set fldStyle = tdExample.CreateField("Style", dbText, 50)
Set fldType = tdExample.CreateField("Type", dbText, 20)
Set fldkt = tdExample.CreateField("kt", dbText, 5)
Set fldcolor = tdExample.CreateField("color", dbText, 5)
Set fldQty = tdExample.CreateField("Qty", dbInteger)
Set fldUnit = tdExample.CreateField("Unit", dbText, 5)
Set fldDIA = tdExample.CreateField("DIA", dbDouble)
Set fldTotalGr = tdExample.CreateField("TotalGr", dbDouble)
Set fldLaborU = tdExample.CreateField("LaborU", dbCurrency)
Set fldUCost = tdExample.CreateField("UCost", dbCurrency)
Set fldTotalCost = tdExample.CreateField("TotalCost", dbCurrency)

tdExample.Fields.Append fldID
tdExample.Fields.Append fldJob
tdExample.Fields.Append fldStyle
tdExample.Fields.Append fldType
tdExample.Fields.Append fldkt
tdExample.Fields.Append fldcolor
tdExample.Fields.Append fldQty
tdExample.Fields.Append fldUnit
tdExample.Fields.Append fldDIA
tdExample.Fields.Append fldTotalGr
tdExample.Fields.Append fldLaborU
tdExample.Fields.Append fldUCost
tdExample.Fields.Append fldTotalCost


dbDatabase.TableDefs.Append tdExample  

в последней строчке спотыкается пишет Invalid Argument
как же мне поля добавить ?
Alexanderik
Дата: 30.05.2004 16:25:52
все спасибо - уже заработало.
Владимир Саныч
Дата: 30.05.2004 16:29:19
А что было-то? :^)
Alexanderik
Дата: 30.05.2004 16:36:31
ну понимаешь первый рабочий день.
ну с бубеном я шаманил.
опять понимаешь человеческий фактор.

' fldID.Attributes = dbAutoIncrField
почему то эта зараза мешает.

с ремаркой все идет прекрасно :)

а вот как теперь добавить атрибут счетчика сижу голову ломаю.
Rivkin Dmitry
Дата: 30.05.2004 16:41:21
может быть он на инкременте не принимает интежер? Попробуй лонг
Владимир Саныч
Дата: 30.05.2004 16:42:59
Дмитрий прав.
Alexanderik
Дата: 30.05.2004 17:01:03
Да, спасибо всем.
все из за типа данных - нефнимательность понимаешь ли.