Så här använder du egenskapen Attribut för TableDef-objekt i Access

Anteckning

Office 365 ProPlus byter namn till Microsoft 365-appar för företag. Mer information om den här ändringen finns i det här blogginlägget.

Ursprungligt KB-nummer:   210362

Anteckning

Kräver expertkodning, interoperabilitet och fleranvändarfärdigheter. Den här artikeln gäller endast för Microsoft Access-databaser (.mdb/.accdb).

Sammanfattning

Du kan använda egenskapen Attributes för ett objekt till att avgöra specifika TableDef tabellegenskaper. Du kan till exempel använda egenskapen till att avgöra om en tabell Attributes är en systemtabell eller en länkad (bifogad) tabell.

Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar men begränsas inte till underförstådd garanti för säljbarhet eller lämplighet för ett visst syfte. I denna artikel förutsätts att du känner till det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsoft-supporttekniker kan förklara funktionaliteten i en viss procedur, men de ändrar inte de här exemplen för att ge ytterligare funktioner eller skapa procedurer som uppfyller dina specifika krav. Obs! Exempelkoden i den här artikeln använder Microsoft Data Access-objekt. För att den här koden ska köras korrekt måste du referera till Microsoft DAO 3.6-objektbiblioteket. Det gör du genom att klicka på Referenser på menyn Verktyg i Visual Basic Editor och kontrollera att kryssrutan Microsoft DAO 3.6-objektbibliotek är markerad.

TableDef-attribut

Egenskapen Attributes för ett objekt anger egenskaperna för tabellen som TableDef representeras av TableDef objektet. Egenskapen Attributes lagras som ett enda Långt heltal och är summan av följande Long-konstanter:

Konstant Värde Beskrivning
dbAttachExclusive 65536 För databaser som använder Microsoft Jet-databasmotorn anger att tabellen är en länkad tabell som öppnas för exklusiv användning.
dbAttachSavePWD 131072 För databaser som använder Jet-databasmotorn ska användar-ID:t och lösenordet för den länkade tabellen sparas tillsammans med anslutningsinformationen.
dbSystemObject -2147483646 Anger att tabellen är en systemtabell.
dbHiddenObject 1 Anger att tabellen är en dold tabell (för tillfällig användning).
dbAttachedTable 1073741824 Anger att tabellen är en länkad tabell från en ODBC-databas (Open Database Connectivity), till exempel Microsoft Access eller Paradox.
dbAttachedODBC 536870912 Anger att tabellen är en länkad tabell från en ODBC-databas, till exempel från Microsoft SQL Server eller ORACLE Server.

Användningen av TableDef egenskapen för ett objekt beror på Attributes statusen för , som visas i TableDef följande tabell:

TableDef Användning
Objektet har inte lagts till i samlingen Läsa/skriva
Bastabell Skrivskyddade
Länkad tabell Skrivskyddade

När du kontrollerar inställningen för den här egenskapen kan du använda operatorn OCH för att testa för ett specifikt attribut. Om du till exempel vill avgöra om ett tabellobjekt är en systemtabell utför du en logisk jämförelse av TableDef egenskapen Attribut och dbSystemObject konstanten.

Exempelkod

Anteckning

I exempelkoden i den här artikeln används Microsoft Data Access-objekt. För att den här koden ska köras korrekt måste du referera till Microsoft DAO 3.6-objektbiblioteket. Det gör du genom att klicka på Referenser på menyn Verktyg i Visual Basic Editor och kontrollera att kryssrutan Microsoft DAO 3.6-objektbibliotek är markerad.

Följande användardefinierade exempelfunktion loopar igenom alla tabeller i en databas och visar en meddelanderuta som visar varje tabellnamn och om tabellen är en systemtabell:

Option Compare Database   'Use database order for string comparisons.

Option Explicit

Function ShowTableAttribs()
   Dim DB As DAO.Database
   Dim T As DAO.TableDef
   Dim TType As String
   Dim TName As String
   Dim Attrib As String
   Dim I As Integer

Set DB = CurrentDB()

For I = 0 To DB.Tabledefs.Count - 1
      Set T = DB.Tabledefs(I)
      TName = T.Name
      Attrib = (T.Attributes And dbSystemObject)
      MsgBox TName & IIf(Attrib, ": System Table", ": Not System" & _
        "Table")
   Next I

End Function

Referenser

Om du vill ha mer information om egenskapen Attribut klickar du på Microsoft Visual Basic-hjälpen på Hjälp-menyn, skriver objektegenskaper i Office-assistenten eller Svarsguiden och klickar sedan på Sök för att visa de avsnitt som returneras.