How to disclose attributes of an entity

[Hulas]

Ok, this is little tough atleast for me. I want to design a form that has all of my seven entities and I want a check box next to each of those seven entities. Now, when I click any one of these check box, I should be able to get its attributes with a check box next to it. That means initially its attributes are hidden and they pop up as soon as I select the check box of the main entity. After I am done selecting the attributes that I want, I want them to show up in a report. I know this might be a lot of work but I will appreciate with any kind of help.

Thanks for your time guys.

Hulas

[mshmyob]

If by entities you mean tables then the 'talented' Allen Browne has already done this for you. Just cut and paste this code and make the changes to meet your requirements.

[code=vba]
Function TableInfo(strTa bleName As String)
On Error GoTo TableInfoErr
' Purpose: Display the field names, types, sizes and descriptions for a table.
' Argument: Name of a table in the current database.
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field

Set db = CurrentDb()
Set tdf = db.TableDefs(st rTableName)
Debug.Print "FIELD NAME", "FIELD TYPE", "SIZE", "DESCRIPTIO N"
Debug.Print "========== ", "========== ", "====", "========== ="

For Each fld In tdf.Fields
Debug.Print fld.Name,
Debug.Print FieldTypeName(f ld),
Debug.Print fld.Size,
Debug.Print GetDescrip(fld)
Next
Debug.Print "========== ", "========== ", "====", "========== ="

TableInfoExit:
Set db = Nothing
Exit Function

TableInfoErr:
Select Case Err
Case 3265& 'Table name invalid
MsgBox strTableName & " table doesn't exist"
Case Else
Debug.Print "TableInfo( ) Error " & Err & ": " & Error
End Select
Resume TableInfoExit
End Function


Function GetDescrip(obj As Object) As String
On Error Resume Next
GetDescrip = obj.Properties( "Descriptio n")
End Function


Function FieldTypeName(f ld As DAO.Field) As String
'Purpose: Converts the numeric results of DAO Field.Type to text.
Dim strReturn As String 'Name to return

Select Case CLng(fld.Type) 'fld.Type is Integer, but constants are Long.
Case dbBoolean: strReturn = "Yes/No" ' 1
Case dbByte: strReturn = "Byte" ' 2
Case dbInteger: strReturn = "Integer" ' 3
Case dbLong ' 4
If (fld.Attributes And dbAutoIncrField ) = 0& Then
strReturn = "Long Integer"
Else
strReturn = "AutoNumber "
End If
Case dbCurrency: strReturn = "Currency" ' 5
Case dbSingle: strReturn = "Single" ' 6
Case dbDouble: strReturn = "Double" ' 7
Case dbDate: strReturn = "Date/Time" ' 8
Case dbBinary: strReturn = "Binary" ' 9 (no interface)
Case dbText '10
If (fld.Attributes And dbFixedField) = 0& Then
strReturn = "Text"
Else
strReturn = "Text (fixed width)" '(no interface)
End If
Case dbLongBinary: strReturn = "OLE Object" '11
Case dbMemo '12
If (fld.Attributes And dbHyperlinkFiel d) = 0& Then
strReturn = "Memo"
Else
strReturn = "Hyperlink"
End If
Case dbGUID: strReturn = "GUID" '15

'Attached tables only: cannot create these in JET.
Case dbBigInt: strReturn = "Big Integer" '16
Case dbVarBinary: strReturn = "VarBinary" '17
Case dbChar: strReturn = "Char" '18
Case dbNumeric: strReturn = "Numeric" '19
Case dbDecimal: strReturn = "Decimal" '20
Case dbFloat: strReturn = "Float" '21
Case dbTime: strReturn = "Time" '22
Case dbTimeStamp: strReturn = "Time Stamp" '23

'Constants for complex types don't work prior to Access 2007.
Case 101&: strReturn = "Attachment " 'dbAttachment
Case 102&: strReturn = "Complex Byte" 'dbComplexByte
Case 103&: strReturn = "Complex Integer" 'dbComplexInteg er
Case 104&: strReturn = "Complex Long" 'dbComplexLong
Case 105&: strReturn = "Complex Single" 'dbComplexSingl e
Case 106&: strReturn = "Complex Double" 'dbComplexDoubl e
Case 107&: strReturn = "Complex GUID" 'dbComplexGUID
Case 108&: strReturn = "Complex Decimal" 'dbComplexDecim al
Case 109&: strReturn = "Complex Text" 'dbComplexText
Case Else: strReturn = "Field type " & fld.Type & " unknown"
End Select

FieldTypeName = strReturn
End Function
[/code]

cheers,

Ok, this is little tough atleast for me. I want to design a form that has all of my seven entities and I want a check box next to each of those seven entities. Now, when I click any one of these check box, I should be able to get its attributes with a check box next to it. That means initially its attributes are hidden and they pop up as soon as I select the check box of the main entity. After I am done selecting the attributes that I want, I want them to show up in a report. I know this might be a lot of work but I will appreciate with any kind of help.

Thanks for your time guys.

Hulas