Database - Tabelle Indici Relazioni

Tabelle # nel seguente esempio vengono mostrate le proprieta' valide per un oggetto field In Base all'insieme cui appartiene l'oggetto, ad esempio l'insieme fields di tabledef o di querydef e cosi' via. per eseguire questa routine e' richiesta la routine outputcampo.
Sub fieldx()
Dim dbsnorthwind As database
Dim rstimpiegati As recordset
Dim fldtabledef As field
Dim fldquerydef As field
Dim fldrecordset As field
Dim fldrelation As field
Dim fldindex As field
Dim prpciclo As Property
Set dbsnorthwind = opendatabase("northwind.mdb")
Set rstimpiegati = _
dbsnorthwind.openrecordset("impiegati")
' assegna alle variabili di oggetto un oggetto

' field da insiemi fields differenti.

Set fldtabledef = _
dbsnorthwind.tabledefs(0).fields(0)
Set fldquerydef = dbsnorthwind.querydefs(0).fields(0)
Set fldrecordset = rstimpiegati.fields(0)
Set fldrelation = dbsnorthwind.relations(0).fields(0)
Set fldindex = _
dbsnorthwind.tabledefs(0).indexes(0).fields(0)
' stampa il report.

outputcampo "tabledef", fldtabledef
outputcampo "querydef", fldquerydef
outputcampo "recordset", fldrecordset
outputcampo "relation", fldrelation
outputcampo "index", fldindex
rstimpiegati.close
dbsnorthwind.close
End Sub

Sub outputcampo(strtemp As string, fldtemp As field)
' funzione di report per fieldx.

Dim prpciclo As Property
debug.print "proprieta' field valide in " & strtemp
' enumera l'insieme properties dell'oggetto field

' passato.

For Each prpciclo In fldtemp.properties
' alcune proprieta' non sono valide in certi

' contesti, ad esempio la proprieta' value

' nell'insieme fields di tabledef. qualsiasi

' tentativo di utilizzo di una proprieta' non

' valida causera' un errore.

On Error Resume Next
debug.print " " & prpciclo.name & " = " & _
prpciclo.value
On Error Goto 0
Next prpciclo
End Sub