AutoWert ermitteln II (Access, ADO) Diese Funktion ermittelt in einer Multiuserumgebung den Autowert des von einem beliebigen Client zuletzt eingefügten Datensatzes.
Autor:   pks	Bewertung:     [ Jetzt bewerten ]	Views:  13.102
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 5 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgende Funktion ermittelt in einer Multiuserumgebung den Autowert des von einem beliebigen Client zuletzt eingefügten Datensatzes.

' Liefert ID des zuletzt eingefügten Datensatzes
Public Function GetNewID(oConn As ADODB.Connection) As Long
  Dim oRs As ADODB.Recordset
  Dim NewID As Long
 
  Set oRs = New ADODB.Recordset
  With oRs
    .Open "SELECT @@Identity AS ID", oConn, , , adCmdText
    NewID = .Fields("ID").Value
    .Close
  End With
  Set oRs = Nothing
 
  GetNewID = NewID
End Function