table information

[Chanchito]

hi there,

I am just wondering if there is a way to get a complete list of all
the field properties for a table within your database; aside from
clicking on each field and writing all the properties down.

thanks

[Rick Brandt]

Chanchito wrote:

hi there,

I am just wondering if there is a way to get a complete list of all
the field properties for a table within your database; aside from
clicking on each field and writing all the properties down.

thanks

Tools - Analyze - Table

--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com

[ByteMyzer]

"Chanchito" <my**********@gmail.com> wrote in message
news:4f*************************@posting.google.co m...

hi there,

I am just wondering if there is a way to get a complete list of all
the field properties for a table within your database; aside from
clicking on each field and writing all the properties down.

thanks

Try this code on for size:
'---<< begin code >>---
Public Sub tablesProperties()
On Error Resume Next

Dim x As Long, y As Long, z As Long

For y = 0 To CurrentDb.TableDefs.Count - 1
Debug.Print "Properties for table "; CurrentDb.TableDefs(y).Name;
":"
For x = 0 To CurrentDb.TableDefs(y).Fields.Count - 1
Debug.Print " Field: "; CurrentDb.TableDefs(y).Fields(x).Name
For z = 0 To CurrentDb.TableDefs(y).Fields(x).Properties.Count -
1
Debug.Print " ";
CurrentDb.TableDefs(y).Fields(x).Properties(z).Nam e; ": ";
Debug.Print
CurrentDb.TableDefs(y).Fields(x).Properties(z).Val ue;
If Err.Number Then Err.Clear: Debug.Print "(n/a)";
Debug.Print
Next z
Next x
Debug.Print
Next y

End Sub

'----<< end code >>----

[chanchito]

thanks for the direction...it ended up being the Documenter in the
Analyze menu that gave me what I want, but thanks again as I didn't
even realize that menu was there. cheers

[chanchito]

pardon my ignorance, but when I pasted the code into a new module VB
showed a bunch of stuff highlighted in read and when I tried to run the
code it brought up a box saying compile error syntax error and
highlighted the first instance of read indicating the ":" portion
between the two For statements.

I have also tried the Tools - analyze - documenter, and that does show
most of what I want, but it doesn't show the default values of the
field, any input masks, or things of that nature.

[ByteMyzer]

"chanchito" <my**********@gmail.com> wrote in message
news:11**********************@g14g2000cwa.googlegr oups.com...

pardon my ignorance, but when I pasted the code into a new module VB
showed a bunch of stuff highlighted in read and when I tried to run the
code it brought up a box saying compile error syntax error and
highlighted the first instance of read indicating the ":" portion
between the two For statements.

I have also tried the Tools - analyze - documenter, and that does show
most of what I want, but it doesn't show the default values of the
field, any input masks, or things of that nature.

That's because of thw unfortunate word-wrapping in the newsgroup post. You
will have to move the ":" to the end of the previous line.

[chanchito]

thanks, i got the code to look right (i.e- no red lines showing up
anywhere), but is there stuff that i should be creating on my end of
things for this data to go into? When I run the code the hourglass
shows that something is running, but there is no output. Nothing
prints.

once again, I apologize for my lack of access knowledge. =(

[MGFoster]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

It should appear in the Debug window (Ctrl-G). If you have a lot of
tables, some of the info will "disappear," since the Debug window can't
hold a lot of data. In that case you may wish to redirect the output to
a text file.

Here is another version of the same code, but using the For Each...Next
syntax, which is easier to read.

Public Sub tablesProperties()
On Error Resume Next

Dim t As dao.TableDef, f As dao.field, p As dao.Property

For Each t In CurrentDb.TableDefs
Debug.Print "Properties for table "; t.Name; ":"
For Each f In t.Fields
Debug.Print " Field: "; f.Name
For Each p In f.Properties
Debug.Print " "; p.Name; ": ";
Debug.Print p.value;
If Err.Number Then Err.Clear: Debug.Print "(n/a)";
Debug.Print
Next p
Next f
Debug.Print
Next t

End Sub

--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQj44jIechKqOuFEgEQKkbgCcC+U6VBrUXuXuQYYiahRcgZ +eA6oAoPD2
LGEQStWQU4uyovBHl05vEWeB
=QT0p
-----END PGP SIGNATURE-----
chanchito wrote:

thanks, i got the code to look right (i.e- no red lines showing up
anywhere), but is there stuff that i should be creating on my end of
things for this data to go into? When I run the code the hourglass
shows that something is running, but there is no output. Nothing
prints.

[chanchito]

i had forgotten about the debug window, the first code you gave me does
work, but like you said it doesn't show all the fields or all the
tables, so I guess I will have to have it output to a text file. I
would just add this onto the print statement right?

thanks for your help.

[MGFoster]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

You'll have to define the file descriptor first. E.g.:

dim fd as integer

fd = freefile
Open "table info.txt" for output as #fd
print #fd, ' <- use this in place of the Debug.Print
.... etc. ...
' when done printing
close #fd

Substitute you're own file name.
--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQj+KBYechKqOuFEgEQIkXQCePuZI7KbNqIwCqWK+6s9SMO VkiNkAn3qk
+luqoC9YlKx10xHoSbJqjOP6
=Azc3
-----END PGP SIGNATURE-----
chanchito wrote:

i had forgotten about the debug window, the first code you gave me does
work, but like you said it doesn't show all the fields or all the
tables, so I guess I will have to have it output to a text file. I
would just add this onto the print statement right?