R
Rick
How do I modify an Access 97 table using Access 2003 without converting the
database? Is there any tool available?
database? Is there any tool available?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
J
Jeff Boyce
Rick
This is only one person's experience...
There is only one tool I'm familiar with that would let you do that, and
it's called ... Access '97<g>!
You've described HOW you want to do something. Now, if you'll describe a
bit more about WHY you need this done, the folks here in the newsgroup may
be able to offer more specific suggestions.
Regards
Jeff Boyce
Microsoft Office/Access MVP
This is only one person's experience...
There is only one tool I'm familiar with that would let you do that, and
it's called ... Access '97<g>!
You've described HOW you want to do something. Now, if you'll describe a
bit more about WHY you need this done, the folks here in the newsgroup may
be able to offer more specific suggestions.
Regards
Jeff Boyce
Microsoft Office/Access MVP
D
Douglas J. Steele
You can use DAO (or ADOX, for that matter). The following code, run from
Access 2003, successfully created a table in my Access 97 database just now:
Sub ManipulateAccess97()
Dim db97 As DAO.Database
Dim tdfNew As TableDef
Dim strPath As String
strPath = "D:\Access.97\Test97.mdb"
Set db97 = OpenDatabase(strPath)
Set tdfNew = db97.CreateTableDef("From2003")
With tdfNew
.Fields.Append .CreateField("FirstName", dbText)
.Fields.Append .CreateField("LastName", dbText)
.Fields.Append .CreateField("Phone", dbText)
.Fields.Append .CreateField("Notes", dbMemo)
End With
db97.TableDefs.Append tdfNew
Set db97 = Nothing
End Sub
Access 2003, successfully created a table in my Access 97 database just now:
Sub ManipulateAccess97()
Dim db97 As DAO.Database
Dim tdfNew As TableDef
Dim strPath As String
strPath = "D:\Access.97\Test97.mdb"
Set db97 = OpenDatabase(strPath)
Set tdfNew = db97.CreateTableDef("From2003")
With tdfNew
.Fields.Append .CreateField("FirstName", dbText)
.Fields.Append .CreateField("LastName", dbText)
.Fields.Append .CreateField("Phone", dbText)
.Fields.Append .CreateField("Notes", dbMemo)
End With
db97.TableDefs.Append tdfNew
Set db97 = Nothing
End Sub
J
Jeff Boyce
WOW! You can do that with Access?!
Thanks, Doug... I guess I've never run into the need before.
Rick, I take it all back, go for it!
Regards
Jeff Boyce
Microsoft Office/Access MVP
Thanks, Doug... I guess I've never run into the need before.
Rick, I take it all back, go for it!
Regards
Jeff Boyce
Microsoft Office/Access MVP
T
Tony Toews [MVP]
Jeff Boyce said:WOW! You can do that with Access?!
Thanks, Doug... I guess I've never run into the need before.
I have code, from the online help and customized to suit my needs,
that also adds indexes and relationships, deletes relationships,
indexes, fields and tables, renames fields, etc, etc.
Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/