Grazie e buona epifania
Ho installato il db DocuScan e ho fatto la scannerizzazione 3 e quindi il report. Ho però bisogno di una informazione che nel report non c'è: la Descrizione (facoltativa) che io inserisco come appunto documentazione di ogni campo.
Ho creato una routine che riporto di sotto con la quale inserisco in una tabella _campi i vari attributi dei campi delle tabelle. Non so come poter recuperare questa Descrizione.
Ho stralciato dalla routine il punto in cui non so cosa scirvere: ho inserito < >
'rpg per recupero della descrizione facoltativa
!Note = CurrentDb.TableDefs(cTab).Fields(X).< >
'rpg end
Grazie ancora per l'attenzione.
Sub AggStruttTabella(cTab As String)
Dim cSql, dbDati
Dim cCampo, nCampi, X, cTipo, nLen, nAttr, cValida, cDefault, cInputMask, cFormato
Dim lRichiesto, lValida
On Error Resume Next
DoCmd.SetWarnings False
Debug.Print cTab
nCampi = CurrentDb.TableDefs(cTab).Fields.Count
DoCmd.RunSQL "DELETE * from _Campi Where IdTabella = '" & cTab & "';"
Set dbDati = CurrentDb.OpenRecordset("Select * from _campi")
For X = 0 To nCampi - 1
cInputMask = ""
With dbDati
Debug.Print , CurrentDb.TableDefs(cTab).Fields(X).Name
DoEvents
.AddNew
!IdTabella = cTab
!NomeCampo = CurrentDb.TableDefs(cTab).Fields(X).Name
'rpg per recupero della descrizione facoltativa
!Note = CurrentDb.TableDefs(cTab).Fields(X).< >
'rpg end
!tipo = CurrentDb.TableDefs(cTab).Fields(X).Type
!Len = CurrentDb.TableDefs(cTab).Fields(X).Size
!attrib = CurrentDb.TableDefs(cTab).Fields(X).Attributes
!Richiesto = IIf(CurrentDb.TableDefs(cTab).Fields(X).Required, "S", "N")
cValida = CurrentDb.TableDefs(cTab).Fields(X).ValidationRule
!ValidazioneAttiva = IIf(cValida = "", "N", "S")
!ValidazioneRegola = IIf(cValida = "", " ", cValida)
cDefault = CurrentDb.TableDefs(cTab).Fields(X).DefaultValue
!ValoreDiDefault = IIf(cDefault = "", " ", cDefault)
cInputMask = CurrentDb.TableDefs(cTab).Fields(X).Properties("InputMask")
If cInputMask <> "" Then !InputMask = cInputMask
cFormato = ""
cFormato = CurrentDb.TableDefs(cTab).Fields(X).Properties("Format")
If cFormato <> "" Then !Formato = cFormato
.Update
End With
Next
Set dbDati = Nothing
DoCmd.SetWarnings True
On Error GoTo 0
End Sub