Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

AutoWert abfragen(VBA)

20 views
Skip to first unread message

Stef

unread,
May 5, 2006, 1:56:01 AM5/5/06
to
Ich möchte in VBA mit dem zuletzt vergebenen Autowert arbeiten, aber mir
fehlen die Anweisungen. Habe schon "SELECT @@IDENTITY" probiert, hat nicht
geklappt. Bitte helft mir!

Thomas Möller

unread,
May 5, 2006, 2:24:03 AM5/5/06
to
Hallo!!

In dieser NG ist es üblich seinen vollen Realnamen (Vor- und Zuname)
anzugeben. Danke!

"Stef" <St...@discussions.microsoft.com> schrieb


> Ich möchte in VBA mit dem zuletzt vergebenen Autowert arbeiten, aber mir
> fehlen die Anweisungen. Habe schon "SELECT @@IDENTITY" probiert, hat nicht
> geklappt.

ein direktes Pendant zu diesem Befehl gibt es in Access nicht. Du kannst Dir
aber den größten Wert aus der Autowertspalte auslesen. Schau Dir dazu mal in
der OH den Befehl DMAX näher an.

CU
--
Thomas

Homepage: www.Team-Moeller.de

Karl Donaubauer

unread,
May 5, 2006, 3:08:20 AM5/5/06
to
Thomas Möller wrote:
> "Stef schrieb

>> Ich möchte in VBA mit dem zuletzt vergebenen Autowert arbeiten, aber mir
>> fehlen die Anweisungen. Habe schon "SELECT @@IDENTITY" probiert, hat
>> nicht geklappt.
>
> ein direktes Pendant zu diesem Befehl gibt es in Access nicht.
> ...

Doch, mit 2 Einschränkungen:
1. Erst ab A00.
2. Der Datensatz muss per SQL eingefügt worden sein.
Also z.B. sowas:

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
db.Execute "INSERT INTO Tabelle (MeinFeld) SELECT 'ursuper';"

Set rs = db.OpenRecordset("SELECT @@IDENTITY AS LetzterAutowert;")
Debug.Print rs!LetzterAutowert

--
HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
Datenbank-Profis: http://www.dbdev.org

0 new messages