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.