?
Solved

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

Posted on 2008-10-10
5
Medium Priority
?
1,220 Views
Last Modified: 2013-11-27
Hi:
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

Pleas
0
Comment
Question by:Mohammad Alsolaiman
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
5 Comments
 
LVL 120

Accepted Solution

by:
Rey Obrero (Capricorn1) earned 1000 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
db.Close
 
End Sub

Open in new window

0
 
LVL 1

Assisted Solution

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

http://msdn.microsoft.com/en-us/library/bb177893.aspx

0
 

Author Comment

by:Mohammad Alsolaiman
ID: 22690149
Hi:
Wonderful
Ok
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.
Pleas
0
 
LVL 26

Assisted Solution

by:dannywareham
dannywareham earned 600 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
0
 

Author Closing Comment

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

Featured Post

Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

Question has a verified solution.

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

Phishing attempts can come in all forms, shapes and sizes. No matter how familiar you think you are with them, always remember to take extra precaution when opening an email with attachments or links.
Code that checks the QuickBooks schema table for non-updateable fields and then disables those controls on a form so users don't try to update them.
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…
Suggested Courses

765 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