Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Generating a List of Saved Views

' set up a reference to the ' Microsoft ADO Ext. 2.7 for DDL and Security Sub List_Views()     Dim cat As New ADOX.Catalog     Dim myView As ADOX.View     cat.ActiveConnection = CurrentProject.Connection     For Each myView In cat.Views         Debug.Print myView.Name     Next myView End Sub