ID (autonummering) ophalen na toevoegen record via VBA

[rebirth]

Ik heb een formulier waarbij ik, voor specifieke redenen, een nieuwe record toevoeg aan een tabel dmv VBA (rs.AddNew). Na het toevoegen van die nieuwe record, zou ik de ID van die record moeten ophalen, welke automatisch aangemaakt werd via autonummering. Deze ID heb ik nodig voor een koppeling in een andere tabel.

Ik dacht van hiervoor de functie Dlookup te gebruiken, maar dit lijkt me niet te werken.
Is deze functie hiervoor niet geschikt, of heb ik ergens een foutje gemaakt? Dit is mijn code ervoor:

kindID = DLookup("kindID", "kind", "[Naam kind] = " & Me.Naam)

Deze code staat net na mijn rs.update
Het veld Naam kind is een uniek veld, hier komen geen duplicaten in voor.

 

[OctaFish]

Als het om het laatste nummer gaat dat je hebt toegevoegd kun je beter DMax gebruiken.

kindID = DMax("kindID", "kind")

 

[rebirth]

Inderdaad. Ik dacht al dat er een simpeler iets was om dat te doen. Bedankt OctaFish!