Where to execute VBScript such as this one...
From: Chris Nebinger (anonymous_at_discussions.microsoft.com)
Date: 05/24/04
- Next message: OceansideDJ: "Cannot unset password in Access2003"
- Previous message: Chris Nebinger: "delete mutiple objects at once"
- In reply to: Lawrence: "Where to execute VBScript such as this one..."
- Messages sorted by: [ date ] [ thread ]
Date: Mon, 24 May 2004 10:11:58 -0700
You can put the following code in any module, in a
subroutine
Public Sub CreateTables()
Dim ErwinWorkspace as Workspace
...
End Sub
Just a note: You are using DAO. If you are adding this
to a Access 2000 or greater database, DAO will not be
selected by default. Go into a module, then select Tools-
>References and uncheck the Microsoft Access Data Object
and select Microsoft DAO 4.0 (or whatever version you have)
Chris Nebinger
>-----Original Message-----
>I am trying to create tables using sample scripts
below... could someone point me to where I could populate
this into Access DB.
>Much Appreciated!
>-Lawrence
>
>Dim ERwinWorkspace As Workspace
>Dim ERwinDatabase As Database
>Dim ERwinTableDef As TableDef
>Dim ERwinField As Field
>Dim ERwinRelation As Relation
>Set ERwinWorkspace = DBEngine.Workspaces(0)
>Set ERwinDatabase = ERwinWorkspace.OpenDatabase
(sERwinDatabase)
>' DELETE TABLE "F_Operating_Expense"
>ERwinDatabase.TableDefs.Delete "F_Operating_Expense"
>' CREATE TABLE "F_Operating_Expense"
>Set ERwinTableDef = ERwinDatabase.CreateTableDef
("F_Operating_Expense")
>Set ERwinField = ERwinTableDef.CreateField
("f_operating_expense_id", DB_INTEGER)
>
>.
>
- Next message: OceansideDJ: "Cannot unset password in Access2003"
- Previous message: Chris Nebinger: "delete mutiple objects at once"
- In reply to: Lawrence: "Where to execute VBScript such as this one..."
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
