OpenTable

Opens a table in the current database.

Syntax

DoCmd.OpenTable TableName[, View][, DataMode]

with the following parameters:

TableName

A String indicating the name of the table in the current database to open.

View

One of the following members of the AcView enumeration: acViewDesign (design view), acViewNormal (datasheet view, the default), and acViewPreview (print preview).

DataMode

A member of the AcOpenDataMode enumeration for tables opened in acNormal view. Possible values are acAdd, acEdit (the default), and acReadOnly.

Example

The example code iterates the AllTables collection, opens each nonsystem table, prints its structure, and then closes the open table.

Public Sub PrintTableStructures()

Dim tbl As Variant

For Each tbl In CurrentData.AllTables
      
   If InStr(1, tbl.Name, "MSys", vbBinaryCompare) = 0 Then
      DoCmd.OpenTable tbl.Name, acViewDesign
      If MsgBox("Print table structure?", _
                vbQuestion Or vbYesNoCancel, _
                "Print Table Structure") = vbYes Then
         DoCmd.PrintOut acPrintAll
      End If
      DoCmd.Close acTable, tbl.Name, acSaveNo
   End If
Next
   
End Sub

Comments

You can iterate the tables in the current database by using the CurrentData.AllTables collection. It includes system tables whose names begin with MSys…, however.