Advertisement
Advertisement
| 06.24.2008 at 02:43PM PDT, ID: 23512750 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: |
Public Sub CreateInvoiceTable()
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
'Create and connect a catalog object
Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
On Error Resume Next
'If the table already exists, delete it
cat.Tables.Delete "tblInvoice"
On Error GoTo 0
'Create the table definition in memory
Set tbl = New ADOX.Table
tbl.Name = "tblInvoice"
'Create the new columns
tbl.Columns.Append "InvoiceNo", adVarChar, 10
'Create the remaining columns
tbl.Columns.Append "InvoiceDate", adDBDate
tbl.Columns.Append "CustomerID", adInteger
tbl.Columns.Append "Comments", adVarChar, 50
Debug.Print tbl.Name
'Append the new table to the collection
cat.Tables.Append tbl 'Error occurs here
cat.Tables.Refresh
Application.RefreshDatabaseWindow
'Clean up
cat.ActiveConnection = Nothing
Set tbl = Nothing
Set cat = Nothing
End Sub
|
