Functie GetFields (ByVal TableName als Koord) als Koord
'Verwijzingen: Microsoft Access 11.0 de Bibliotheek van Objecten, de Bibliotheek van de Objecten van Microsoft DAO 3.6
'Plaats verwijzingen door Hulpmiddelen Te klikken en dan Verwijzingen in het venster van de Mening van de Code
'Keert alle Namen van het Gebied terug die in Lijst TableName bestaan.
'Keurt goed
'TableName: Naam van lijst waarin de gebieden worden gevestigd
'Keert Alle Namen van het Gebied terug, anders nietig verklaren
'GEBRUIK: GetFields „TABLENAME“
Op Fout GoTo errhandler
Schemerige db als DAO.Database
Schemerige tdf als DAO.TableDef
Schemerige fld als DAO.Field
Schemerige strField als Koord
Vastgesteld db = CurrentDb
Reeks tdf = db.TableDefs (TableName)
'Lijn door alle gebieden (kolommen)
Voor Elke fld in tdf. Gebieden
strField = strField & fld. Naam & „,“ 'Greep de gebiedsnaam
Daarna
'Keer de Namen van het Gebied terug
GetFields = strField
'Als geen fouten
ExitHere:
Reeks fld = niets
Reeks tdf = niets
Vastgesteld db = niets
'Breng de gebruiker op de hoogte het proces volledig is.
' MsgBox „Volledige de Druk van het Verslag“
De Functie van de uitgang
errhandler:
'Er is een foutenterugkeer ongeldig
GetFields = „Fout“ & Err.Number & vbCrLf & Err.Description
Met vergis me
' MsgBox „Fout“ &. Aantal & vbCrLf &. Beschrijving, _
' vbOKOnly of vbCritical, „GetFields“
Eind met
Hervat ExitHere
Beëindig Functie
|