Autowert zurücksetzen FAQ 3.2

10/02/2009 - 21:52 von Thomas Wolf | Report spam
Hallo zusammen

Wie ich den AutoWert zurücksetze ist mir klar. Mir geht es darum, eine
Rutine zu bauen, welche mir alle Autowerte auf die nàchste freie Zahl setzt.
Das ist der Nachteil von Karls Einzeiler, oder? Den kann ich nur brauchen,
wenn noch keine Daten in der Tab vorhanden sind, oder?

Meine Frage ist nun: Wie kriege ich am einfachsten aus jeder Tabelle die
Spalte, in welcher der Autowert drin ist?

Gruss
Thomas
 

Lesen sie die antworten

#1 André Minhorst
10/02/2009 - 22:07 | Warnen spam
Hi Thomas,

Am Tue, 10 Feb 2009 21:52:00 +0100 schrieb Thomas Wolf:
Meine Frage ist nun: Wie kriege ich am einfachsten aus jeder Tabelle die
Spalte, in welcher der Autowert drin ist?



Public Sub AutowertfelderAusgeben()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Set db = CurrentDb
For Each tdf In db.TableDefs
For Each fld In tdf.Fields
If (fld.Properties("Attributes") And 16) = 16 Then
Debug.Print tdf.name, fld.name
End If
Next fld
Next tdf
End Sub

Ciao
André

http://www.access-entwicklerbuch.de
http://www.access-im-unternehmen.de

Ähnliche fragen