Solved

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

Posted on 2008-10-10
5
919 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
5 Comments
 
LVL 120

Accepted Solution

by:
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
db.Close
 
End Sub

Open in new window

0
 
LVL 1

Assisted Solution

by:EXTRHMAN
EXTRHMAN earned 100 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 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
0
 

Author Closing Comment

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

Featured Post

Enterprise Mobility and BYOD For Dummies

Like “For Dummies” books, you can read this in whatever order you choose and learn about mobility and BYOD; and how to put a competitive mobile infrastructure in place. Developed for SMBs and large enterprises alike, you will find helpful use cases, planning, and implementation.

Question has a verified solution.

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

Suggested Solutions

When you are entering numbers in a speadsheet, and don't remember what 6×7 is, you just type “=6*7" instead. It works in every cell! This is not so in Access. To enter the elusive 42 in a text box, you have to find a calculator, and then copy the re…
It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works The attack works by targeti…
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database. Split up all multi-value fields into single values: Split up fields that belong to other things into separate tables: Make sure that all record…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

806 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