Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Mobiles Hauptmenü

Insert Into & anschließend erzeugten Eintrag weiterbearbeiten

Begonnen von mikepo, Oktober 24, 2020, 16:17:07

⏪ vorheriges - nächstes ⏩

mikepo

Hallo zusammen, bin mir nicht sicher ob ich im richtigen Sub-Forum bin.

Ich erzeuge mit InsertInto erfolgreich Einträge in einer Tabelle (immer nur 1 Eintrag!).  (sql server backend/ frontend access)

Nun möchte ich gern den letzten erzeugten Eintrag weiterbearbeiten (ich brauche die Auto_ID Nummer).

geht das nur mit einer anschließenden Abfrage, oder gibt es dazu eventuelle einen VBA-Befehl ?

danke im Voraus für euren Input

lg

DF6GL

Hallo,

Zitatgeht das nur mit einer anschließenden Abfrage?

ja mit "@@Identity"
Viele Grüße vom Bodensee
Franz, DF6GL

Hilfestellung:  http://www.access-o-mania.de/forum/index.php?topic=6969.msg118738#msg118738

Links und Tipps:
1.   http://v.hdm-stuttgart.de/~riekert/lehre/db-kelz/
1a. http://www.tinohempel.de/info/info/datenbank/normalisierung.htm
1b. https://support.office.com/de-de/article/Grundlagen-des-Datenbankentwurfs-eb2159cf-1e30-401a-8084-bd4f9c9ca1f5#bmterms
2.   http://www.donkarl.com
3.   https://web.archive.org/web/20201201233522/http://www.dbwiki.net/
4.   http://www.access-tutorial.de/
5.   http://www.tty1.net/smart-questions_de.htm
6.   http://access.joposol.com/accept

Last but not least:   < F1 > für Hilfe
;) Learning by doing not by spoon-feed ;)

Tipp: Find and Replace for Access

mikepo


mikepo

#3
habs geschafft:

 Dim query As String
  Dim newRow As Long  ' note change of data type
  Dim db As DAO.Database

  query = "INSERT INTO InvoiceNumbers (date) VALUES (" & NOW() & ");"
  Set db = CurrentDB
  db.Execute(query)
  newRow = db.OpenRecordset("SELECT @@IDENTITY")(0)
  Set db = Nothing


vielen Dank Franz für deinen super input !!!