title image


Smiley TIPP: Primärschlüssel in Tabelle ermitteln
Das geht (per DAO) z.B. so:



Public Function ShowPrimaryKeyName(TblName)

Dim DB As DAO.Database, Tbl As DAO.TableDef, Fld As DAO.Field, idx As DAO.Index

Set DB = CurrentDb

Set Tbl = DB.TableDefs(TblName)

For Each idx In Tbl.Indexes

If idx.Primary Then

Debug.Print "Primärschlüssel: " & idx.Name & " besteht aus den Feldern: "

For Each Fld In idx.Fields

Debug.Print " " & Fld.Name

Next Fld

End If

Next idx

End Function





Nota bene: Der Primärschlüssel kann aus mehreren Feldern bestehen!



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: