Trying to create new table in VB

[GeorgeJ]

I am just starting out. I created a database with nothing in it and trying to create a simple table. I run MainTest and don’t get an error. I go back into the Application window expecting to see the new table named “NewTable”. Its not there. What am I doing wrong?

Option Compare Database
Option Explicit

Sub CreateTable()
Dim tblNew As DAO.TableDef, DB As DAO.Database, Fld As DAO.Field
Set DB = CurrentDb
Set tblNew = DB.CreateTableDef("NewTable")
Set Fld = tblNew.CreateField("Num1", dbLong)
tblNew.Fields.Append Fld
End Sub

Sub MainTest()
CreateTable
End Sub








Thanks in advance

[pbaldy]

Is it there if you get out of the database and back in? Try adding this to see it immediately:

Application.RefreshDatabaseWindow

[GeorgeJ]

No. Its not there. even though I added the code you showed me, and even after I closed Access and went back in. Does this forum provide the ability to upload files (mine is miniscule) so someone can see what's going on?

[jas0501]

see http://msdn.microsoft.com/en-us/libr...ice.12%29.aspx

in particular

' Append the new TableDef object to the Northwind database.
dbsNorthwind.TableDefs.Append tdfNew

[amrut]

https://www.accessforums.net/programming/where-new-table-48775.html

Repeating the same post again ???

[orange]

George,

Further to previous posts you can get a lot of DAO (and other) info from Allen Browne's site.
http://allenbrowne.com/func-dao.html#CreateTableDAO

Also, although not specifically asked, you can create a table using a combination of vba and SQL.

40  strSQL_Create = "CREATE TABLE data_dictionary" & _
                    "(EntryID AUTOINCREMENT PRIMARY KEY,table_name varchar(250) " & _
                    ",table_description varchar(255), field_name varchar(250) " & _
                    ",field_description varchar(255)," & _
                    "ordinal_position NUMBER, data_type varchar(15)," & _
                    "length varchar(5), default varchar(30));"

50  Set db = CurrentDb()

80  db.Execute strSQL_Create, dbFailOnError
......

[pbaldy]

Did you sort this out? I just checked a db that does this and noticed something missing. First, I append fields a little differently, though it may not matter:

tdf.Fields.Append tdf.CreateField("RowNum", dbLong)

What's missing from your code is (this uses my variable):

db.TableDefs.Append tdf

[GeorgeJ]

Thank you very much. That solves it. I clicked on the link in your post.
Now I have another possibly tedious newbie question. The link on your post was very helpful. If its not too much trouble, could you give a menuchain so that I could to this place by myself. I tried and failed.
You know, something on the order of Microsoft.com/click this/now click this/and now click this ....

Also - I appear to have double posted. Sorry - I didn't see my post at first and concluded it hadn't been sent. I now know to wait a bit before concluding that.

Finally - Is there a way to indicate that a reply to one's post has solved the problem, or is that handled by the administrators?

[pbaldy]

You can mark it solved in Thread Tools at the top of the thread.

[jas0501]

Thank you very much. That solves it. I clicked on the link in your post.
Now I have another possibly tedious newbie question. The link on your post was very helpful. If its not too much trouble, could you give a menuchain so that I could to this place by myself. I tried and failed.
You know, something on the order of Microsoft.com/click this/now click this/and now click this ....

Also - I appear to have double posted. Sorry - I didn't see my post at first and concluded it hadn't been sent. I now know to wait a bit before concluding that.

Finally - Is there a way to indicate that a reply to one's post has solved the problem, or is that handled by the administrators?

Not sure if you are referring to my link. If so I just did a google search with

CreateTableDef access example

and the top entry was

1. CreateTableDef Method [Access 2007 Developer Reference]
   msdn.microsoft.com/.../bb221014(v=offic...
   Microsoft Developer Network
   Creates a new TableDef object (Microsoft Access workspaces only). . ...
   This exampleuses the CreateTableDef and FillCache methods and the CacheSize, ...