saeed28541
یک شنبه 27 فروردین 1396, 08:28 صبح
سلام
بانک برنامه بنده از نوع لینک است
کدی که بشه جدول جدید ساخت را پیدا کردم ولی مشکل اینجاست که با این کد جدول را داخل فایل باز شده میسازه نه داخل فایل بانک.
راهنمایی بفرمایید ممنون میشم
Then strTable = "Temp"
Set dbs = CurrentDb
Set tbl = dbs.CreateTableDef(strTable)
Set fld1 = tbl.CreateField("ID", dbInteger)
tbl.Fields.Append fld1
Set fld2 = tbl.CreateField("sDate", dbText, 10)
tbl.Fields.Append fld2
Set fld3 = tbl.CreateField("Radif", dbLong)
fld3.Attributes = dbAutoIncrField
tbl.Fields.Append fld3
Set fld4 = tbl.CreateField("Code", dbBoolean)
tbl.Fields.Append fld4
Set idx = tbl.CreateIndex("RadifX")
idx.Primary = True
tbl.Indexes.Append idx
Set fldX = idx.CreateField("Radif")
idx.Fields.Append fldX
dbs.TableDefs.Append tbl
Set tbl = Nothing
Set dbs = Nothing
بانک برنامه بنده از نوع لینک است
کدی که بشه جدول جدید ساخت را پیدا کردم ولی مشکل اینجاست که با این کد جدول را داخل فایل باز شده میسازه نه داخل فایل بانک.
راهنمایی بفرمایید ممنون میشم
Then strTable = "Temp"
Set dbs = CurrentDb
Set tbl = dbs.CreateTableDef(strTable)
Set fld1 = tbl.CreateField("ID", dbInteger)
tbl.Fields.Append fld1
Set fld2 = tbl.CreateField("sDate", dbText, 10)
tbl.Fields.Append fld2
Set fld3 = tbl.CreateField("Radif", dbLong)
fld3.Attributes = dbAutoIncrField
tbl.Fields.Append fld3
Set fld4 = tbl.CreateField("Code", dbBoolean)
tbl.Fields.Append fld4
Set idx = tbl.CreateIndex("RadifX")
idx.Primary = True
tbl.Indexes.Append idx
Set fldX = idx.CreateField("Radif")
idx.Fields.Append fldX
dbs.TableDefs.Append tbl
Set tbl = Nothing
Set dbs = Nothing