Gurus,

The following "snippet" of code works fine, without the second field
"stuff", however, with the second field "stuff" the last line errors out.
Any ideas?

NewTd.Name = "New Table Name" 'Name new table.
F1.Name = "AU_ID" 'Field 1 is titled "AU_ID"
F1.Type = dbLong 'Filed 1 contains long integers
NewTd.Fields.Append F1 'Add field 1, to the table

F2.Name = "Address" 'Field 2 is titled "address"
F2.Type = dbText 'Field 2 is contains text
F2.Size = 40 'Field 2 contains 40 bytes per entry
NewTd.Fields.Append F2 'Add field 2 to the table
MyDb.TableDefs.Append NewTd 'Add the table to the database

Thanks in advance,

David

Hello,

This is the Excel forum, are you creating an Access DB from Excel? Here's an
ADO example:

http://www.utteraccess.com/forums/sh...?Number=418108

Looks like I wrote and executed this in Access.

Not sure if this helps, but it creates a table with multiple fields...

Regards,
Nathan Oliver

"dfixemer" wrote:

Gurus,

The following "snippet" of code works fine, without the second field
"stuff", however, with the second field "stuff" the last line errors out.
Any ideas?

NewTd.Name = "New Table Name" 'Name new table.
F1.Name = "AU_ID" 'Field 1 is titled "AU_ID"
F1.Type = dbLong 'Filed 1 contains long integers
NewTd.Fields.Append F1 'Add field 1, to the table

F2.Name = "Address" 'Field 2 is titled "address"
F2.Type = dbText 'Field 2 is contains text
F2.Size = 40 'Field 2 contains 40 bytes per entry
NewTd.Fields.Append F2 'Add field 2 to the table
MyDb.TableDefs.Append NewTd 'Add the table to the database

Thanks in advance,

David

Nate,

Indeed, I'm creating a Database (Could be Access) from Excel VBA. I
also realize the ADO is newer and/or better. However, I've not yet learned
ADO but do understand some basics of DAO. Also, I would still like to
understand why the DAO code in the inital post does work with one field, but
not with two?

"Nate Oliver" wrote:

Hello,

This is the Excel forum, are you creating an Access DB from Excel? Here's an
ADO example:

http://www.utteraccess.com/forums/sh...?Number=418108

Looks like I wrote and executed this in Access.

Not sure if this helps, but it creates a table with multiple fields...

Regards,
Nathan Oliver

"dfixemer" wrote:

Gurus,

The following "snippet" of code works fine, without the second field
"stuff", however, with the second field "stuff" the last line errors out.
Any ideas?

NewTd.Name = "New Table Name" 'Name new table.
F1.Name = "AU_ID" 'Field 1 is titled "AU_ID"
F1.Type = dbLong 'Filed 1 contains long integers
NewTd.Fields.Append F1 'Add field 1, to the table

F2.Name = "Address" 'Field 2 is titled "address"
F2.Type = dbText 'Field 2 is contains text
F2.Size = 40 'Field 2 contains 40 bytes per entry
NewTd.Fields.Append F2 'Add field 2 to the table
MyDb.TableDefs.Append NewTd 'Add the table to the database

Thanks in advance,

David

"dfixemer" wrote:

Nate,

Indeed, I'm creating a Database (Could be Access) from Excel VBA. I
also realize the ADO is newer and/or better. However, I've not yet learned
ADO but do understand some basics of DAO. Also, I would still like to
understand why the DAO code in the inital post does work with one field, but
not with two?

"Nate Oliver" wrote:

Hello,

This is the Excel forum, are you creating an Access DB from Excel? Here's an
ADO example:

http://www.utteraccess.com/forums/sh...?Number=418108

Looks like I wrote and executed this in Access.

Not sure if this helps, but it creates a table with multiple fields...

Regards,
Nathan Oliver

"dfixemer" wrote:

Gurus,

The following "snippet" of code works fine, without the second field
"stuff", however, with the second field "stuff" the last line errors out.
Any ideas?

NewTd.Name = "New Table Name" 'Name new table.
F1.Name = "AU_ID" 'Field 1 is titled "AU_ID"
F1.Type = dbLong 'Filed 1 contains long integers
NewTd.Fields.Append F1 'Add field 1, to the table

F2.Name = "Address" 'Field 2 is titled "address"
F2.Type = dbText 'Field 2 is contains text
F2.Size = 40 'Field 2 contains 40 bytes per entry
NewTd.Fields.Append F2 'Add field 2 to the table
MyDb.TableDefs.Append NewTd 'Add the table to the database

Thanks in advance,

David

Hello again David,

Not sure, but like my ADO example (I would use ADO...), I would use a
'Create Table' SQL statement, which you can use with DAO as well. Please see
the following:

http://msdn.microsoft.com/library/en.../D2/S5A320.asp

Regards,
NPO

"dfixemer" wrote:

Nate,

Indeed, I'm creating a Database (Could be Access) from Excel VBA. I
also realize the ADO is newer and/or better. However, I've not yet learned
ADO but do understand some basics of DAO. Also, I would still like to
understand why the DAO code in the inital post does work with one field, but
not with two?

"Nate Oliver" wrote:

Hello,

This is the Excel forum, are you creating an Access DB from Excel? Here's an
ADO example:

http://www.utteraccess.com/forums/sh...?Number=418108

Looks like I wrote and executed this in Access.

Not sure if this helps, but it creates a table with multiple fields...

Regards,
Nathan Oliver

"dfixemer" wrote:

Gurus,

The following "snippet" of code works fine, without the second field
"stuff", however, with the second field "stuff" the last line errors out.
Any ideas?

NewTd.Name = "New Table Name" 'Name new table.
F1.Name = "AU_ID" 'Field 1 is titled "AU_ID"
F1.Type = dbLong 'Filed 1 contains long integers
NewTd.Fields.Append F1 'Add field 1, to the table

F2.Name = "Address" 'Field 2 is titled "address"
F2.Type = dbText 'Field 2 is contains text
F2.Size = 40 'Field 2 contains 40 bytes per entry
NewTd.Fields.Append F2 'Add field 2 to the table
MyDb.TableDefs.Append NewTd 'Add the table to the database

Thanks in advance,

David