I had to look also where they are, run this and choose what you like,
but watch for line breaks
Sub test_abdgsjksjksdkj()
Dim i As Long, z As Long
On Error Resume Next
For z = 0 To CurrentDb.Containers("Databases").Documents.Count - 1
For i = 0 To _
CurrentDb.Containers("Databases").Documents(z).Properties.Count - 1
Debug.Print _
CurrentDb.Containers("Databases").Documents(z).Properties(i).name, _
CurrentDb.Containers("Databases").Documents(z).Properties(i).Value
Next i
Next z
End Sub
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.