Where is the new table?

[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

[June7]

Why do you even need to use code to create a table? Why not just use the table designer? If I had to create a table I would use SQL MAKE Table or SELECT INTO action to accomplish.

[GeorgeJ]

The reason that I want to use code to create a table is that I want to be able to create a temporary table as part of larger program. My program should be able to create a table, fill its records from a created query on other tables, and use the new table on various forms, and then delete the table. I'm just learning to use VB with Access, so one of my first goals is to learn how to create tables from VB code.

[amrut]

Can you use temporary table ? You only delete/append records to it when required , easier than creating table/fields.

[June7]

As amrut said - a 'temp' table is a permanent table but the records are temporary. Just delete all records at beginning of procedure.

CurrentDb.Execute "DELETE FROM tablename"

Should not have a process that regularly modifies structure of database.