create a new table by VBA code in another ms access database

Posted on 2008-10-10
Last Modified: 2013-11-27
I am in a Database1
I need to create this table in a Database2
Table name ReportDB
Column# 1 : ReportNo  Numeric long
Column# 2 : ReportName Text 250
Column# 3 : ReportDesc Text 250
Column# 4 : RepValue Numeric long
Column# 5 : QueryName Text 250
Column# 6 : QueryDate date/time
Column# 7 : QueryRemarks memo
Column# 8 : QueryStatus Boolean

Question by:Mohammad Alsolaiman
LVL 120

Accepted Solution

Rey Obrero (Capricorn1) earned 250 total points
ID: 22689262
try this code
Sub createTable(dbPath As String)
Dim db As DAO.Database
Set db = OpenDatabase(dbPath)
Dim sql As String
sql = "CREATE TABLE ReportDB"
sql = sql & "( "
sql = sql & "   ReportNo        LONG, "
sql = sql & "   ReportName      TEXT(250), "
sql = sql & "   ReportDesc      TEXT(250), "
sql = sql & "   RepValue        LONG, "
sql = sql & "   QueryName       TEXT(250), "
sql = sql & "   QueryDate       DATETIME, "
sql = sql & "   QueryRemarks    MEMO, "
sql = sql & "   QueryStatus     YESNO "
sql = sql & ")"
db.Execute sql
End Sub

Open in new window


Assisted Solution

EXTRHMAN earned 100 total points
ID: 22689308
Here is a link to one possible solution.


Author Comment

by:Mohammad Alsolaiman
ID: 22690149
Actually I have the same table in database1, contains data.
And I need to fill in the new table I just create it in database2 with the same data in database1.
In other word , I need to copy the table structure with the data in it from database1 to database2.
Is it possible to do so.
LVL 26

Assisted Solution

dannywareham earned 150 total points
ID: 22698229
Of course.
You can create a table with:

Dim mySQL as String
mySQL = "INSERT INTO mynewtable FROM yourtable"
DoCmd.RunSQL mySQL

Author Closing Comment

by:Mohammad Alsolaiman
ID: 31505121
pleas forgive me if i'm not fair

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction The Visual Basic for Applications (VBA) language is at the heart of every application that you write. It is your key to taking Access beyond the world of wizards into a world where anything is possible. This article introduces you to…
Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

860 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question