allgirlband
New member
- Local time
- Yesterday, 22:23
- Joined
- Jul 22, 2012
- Messages
- 6
I don't know why I am struggling with this. I do create the table, and I do populate it with data, but errors occur . This is VBA from an Access module.
I DOES make the table, but when I try and populate the MONTHS with 0.0000 there are just 0's in there - the error is 3270 Property not found DAO.Property
TWO errors pop up - 3270 twice. I have set them all to text, still an error!
With myTable
.Fields.Append .CreateField("CATEGORY", dbText)
.Fields.Append .CreateField("RESOURC", dbText)
.Fields.Append .CreateField("TREATMENT", dbText)
.Fields.Append .CreateField("LBLS", dbText)
.Fields.Append .CreateField("SORTORDER", dbInteger)
.Fields.Append .CreateField("SCENARIO_ID", dbInteger)
.Fields.Append .CreateField("MONTH_ID", dbInteger)
For x = 0 To UBound(MyArray, 1) - 1
.Fields.Append .CreateField(MON_COLS(x, 0), dbDouble)
Next x
End With
db.TableDefs.Append myTable
I used the debug window:
CATEGORY Text from myTable.CATEGORY
RESOURC Text from myTable.RESOURC
TREATMENT Text from myTable.TREATMENT
LBLS Text from myTable.LBLS
SORTORDER Integer from myTable.SORTORDER
SCENARIO_ID Integer from myTable.SCENARIO_ID
MONTH_ID Integer from myTable.MONTH_ID
JUL 12 Double from myTable.JUL 12
AUG 12 Double from myTable.AUG 12
SEP 12 Double from myTable.SEP 12
OCT 12 Double from myTable.OCT 12
NOV 12 Double from myTable.NOV 12
DEC 12 Double from myTable.DEC 12
JAN 13 Double from myTable.JAN 13
FEB 13 Double from myTable.FEB 13
MAR 13 Double from myTable.MAR 13
APR 13 Double from myTable.APR 13
MAY 13 Double from myTable.MAY 13
JUN 13 Double from myTable.JUN 13
I DOES make the table, but when I try and populate the MONTHS with 0.0000 there are just 0's in there - the error is 3270 Property not found DAO.Property
TWO errors pop up - 3270 twice. I have set them all to text, still an error!
With myTable
.Fields.Append .CreateField("CATEGORY", dbText)
.Fields.Append .CreateField("RESOURC", dbText)
.Fields.Append .CreateField("TREATMENT", dbText)
.Fields.Append .CreateField("LBLS", dbText)
.Fields.Append .CreateField("SORTORDER", dbInteger)
.Fields.Append .CreateField("SCENARIO_ID", dbInteger)
.Fields.Append .CreateField("MONTH_ID", dbInteger)
For x = 0 To UBound(MyArray, 1) - 1
.Fields.Append .CreateField(MON_COLS(x, 0), dbDouble)
Next x
End With
db.TableDefs.Append myTable
I used the debug window:
CATEGORY Text from myTable.CATEGORY
RESOURC Text from myTable.RESOURC
TREATMENT Text from myTable.TREATMENT
LBLS Text from myTable.LBLS
SORTORDER Integer from myTable.SORTORDER
SCENARIO_ID Integer from myTable.SCENARIO_ID
MONTH_ID Integer from myTable.MONTH_ID
JUL 12 Double from myTable.JUL 12
AUG 12 Double from myTable.AUG 12
SEP 12 Double from myTable.SEP 12
OCT 12 Double from myTable.OCT 12
NOV 12 Double from myTable.NOV 12
DEC 12 Double from myTable.DEC 12
JAN 13 Double from myTable.JAN 13
FEB 13 Double from myTable.FEB 13
MAR 13 Double from myTable.MAR 13
APR 13 Double from myTable.APR 13
MAY 13 Double from myTable.MAY 13
JUN 13 Double from myTable.JUN 13
Last edited: