{"id":55000404,"date":"2018-04-01T00:00:00","date_gmt":"2020-01-24T16:00:07","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=404"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Autowert_festlegen","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Autowert_festlegen.html","title":{"rendered":"Autowert festlegen"},"content":{"rendered":"

Immer wieder erhalte ich die Frage, ob und wie man den Autowert anpassen kann – beispielsweise, um diesen bei einem bestimmten Nummernkreis beginnen zu lassen, sagen wir bei 1200001. Zusätzlich sollen die Werte dann natürlich auch noch durchnummeriert sein. Also schauen wir uns in diesem Artikel einmal an, welche Möglichkeiten wir haben und ob dies überhaupt sinnvoll ist.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1802_AutowertFestlegen.accdb<\/b>.<\/p>\n

Standard-Autowert<\/h2>\n

Wenn Sie einer Tabelle ein Autowert-Feld hinzufügen, können Sie zwei Einstellungen für die Eigenschaft Neue Werte <\/b>vornehmen: Inkrement <\/b>und Zufall<\/b>. Dort findet sich nicht etwa eine Einstellung, mit der Sie den Startwert oder das Inkrement selbst festlegen können (siehe Bild 1).<\/p>\n

\"Zwei<\/a><\/p>\n

Bild 1: Zwei Varianten für den Autowert<\/p>\n

Die Einstellung Zufall <\/b>ist für unsere Zwecke gar nicht geeignet, also begnügen wir uns vorerst mit Inkrement<\/b>. Damit erhalten wir, wie nicht anders zu erwarten, ein Autowert-Feld, dass mit dem Wert 1 <\/b>initialisiert wird (siehe Bild 2).<\/p>\n

\"Normales<\/a><\/p>\n

Bild 2: Normales Verhalten des Autowertfeldes<\/p>\n

Autowert per Code hochsetzen<\/h2>\n

Die erste Möglichkeit, den Autowert hochzusetzen, ist per Code. Sie erstellen einfach so viele Datensätze, bis die gewünschte Zahl erreicht ist:<\/p>\n

Public Sub <\/span>AutowertHochsetzen()\r\n    Dim <\/span>db As <\/span>DAO.Database\r\n    Dim <\/span>l As Long<\/span>\r\n    Set<\/span> db = CurrentDb\r\n    For l = 1 To 100000\r\n        db.Execute \"INSERT INTO tblAutowerte(Wert)                               VALUES('')\", dbFailOnError\r\n    Next<\/span> l\r\n    db.Execute \"DELETE FROM tblAutowerte\", dbFailOnError\r\nEnd Sub<\/span><\/pre>\n
Das dauerte bei 100.000 Datensätzen auf dem Testsystem allerdings schon knapp eine Minute. Das Ergebnis überzeugt allerdings. Man muss nur schauen, dass man nicht zuviele Datensätze hinzufügt – dann war die Arbeit umsonst (siehe Bild 3).<\/p>\n
\"Hochsetzen<\/a><\/p>\n
Bild 3: Hochsetzen des Autowerts per Code<\/p>\n
Autowert direkt setzen<\/h2>\n
Es geht allerdings auch noch einfacher – und vor allem schneller. Dabei setzen Sie den Autowert einfach manuell! Das gelingt allerdings nicht in der Datenblattansicht, denn dort wird der Autowert immer vom System vergeben. Aber wenn Sie die INSERT INTO<\/b>-Anweisung nutzen, können Sie den Wert für ein Autowert<\/b>-Feld selbst festlegen. Die erledigen Sie dann etwa wie folgt:<\/p>\n
Public Sub <\/span>AutowertPerINSERTINTO()\r\n    Dim <\/span>db As <\/span>DAO.Database\r\n    Set<\/span> db = CurrentDb\r\n    db.Execute \"INSERT INTO tblAutowerte(AutowertID,            Wert) VALUES(1000000, 'Test')\", dbFailOnError\r\nEnd Sub<\/span><\/pre>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t