It would probably help if I posted the example! :-)
Public Sub ExportCSV()
Dim strFile As String
Dim intFile As Integer
Dim aob As AccessObject
strFile = CurrentProject.Path & "\ObjectList.csv"
intFile = FreeFile
'This will overwrite any file with same
'name in same location - use with care.
Open strFile For Output As intFile
Write #intFile, "ObjectType", "ObjectName"
For Each aob In CurrentData.AllTables
If Left$(aob.Name, 4) <> "MSys" Then
Write #intFile, "Table", aob.Name
End If
Next aob
For Each aob In CurrentData.AllQueries
Write #intFile, "Query", aob.Name
Next aob
For Each aob In CurrentProject.AllReports
Write #intFile, "Report", aob.Name
Next aob
Close #intFile
End Sub
--
Brendan Reynolds
Access MVP
"Brendan Reynolds" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> You didn't mention the format in which you wish to export. The following
> example exports to a CSV (Comma-Separated Values) file, which can be
> imported into many applications, for example you could import it into
> another Access database or you can open it in Excel.
>
> --
> Brendan Reynolds
> Access MVP
>
> "Sam Wilson" <Sam (E-Mail Removed)> wrote in message
> news:89AC5BB0-0A14-4B47-B93D-(E-Mail Removed)...
>>I want to export a list of tables, a list of queries and a list of reports
>>so
>> I can audit my database.
>
>