Fungera GetFields (ByVal TableName som stränger) som stränger
'Hänvisar till: Microsoft Access 11.0 anmärker arkivet, Microsoft DAO 3.6 anmärker arkivet
'Uppsättningen hänvisar till, genom att klicka, bearbetar och hänvisar till därefter i kodifiera beskådar fönstret
'Går alla tillbaka sätter in namnger som finns bordlägger in TableName.
'Accepterar
'TableName: Namnge av bordlägger i vilket sätter in lokaliseras
'Går alla tillbaka sätter in namnger, ogiltigt annars
'ANVÄNDNING: GetFields ”TABLENAME”,
På GoTo errhandler för fel
Dunkel db som DAO.Database
Dunkel tdf som DAO.TableDef
Dunkel fld som DAO.Field
Dunkel strField som stränger
Uppsättning db = CurrentDb
Fastställd tdf = db.TableDefs (TableName)
'Kretsa till och med alla sätter in (kolonner)
För varje fld i tdf. Sätter in
strField = strField & fld. Känt & ”,” 'hastigt grepp den kända sätta in
Därefter
'Gå sätta in tillbaka namnger
GetFields = strField
'Om inga fel
ExitHere:
Fastställd fld = ingenting
Fastställd tdf = ingenting
Uppsättning db = ingenting
'Meddela användaren som det processaa är färdigt.
' MsgBox ”färdigt rekordtryck”,
Gå ut fungerar
errhandler:
'Det finns en felretur som ogiltigt
GetFields = ”fel” & Err.Number & vbCrLf & Err.Description
Med fela
' MsgBox ”fel” &. Numrera & vbCrLf &. Beskrivning _,
' vbOKOnly eller vbCritical, ”GetFields”,
Avsluta med
Meritförteckning ExitHere
Avsluta fungerar
|