[Access VBA] Vind laagste niet bestaande nummer

  • Onderwerp starter Onderwerp starter FFWD
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

FFWD

Gebruiker
Lid geworden
20 okt 2008
Berichten
14
Ik heb een tabel met een naam, woonplaats en een nummer. Nu heb ik een toevoegformulier gemaakt. Als er geen records zijn wordt het nummer automatisch 1. Zijn er wel records dan wil ik dat hij het laagste niet bestaande nummer pakt. Ik weet echter niet hoe ik dat voor elkaar krijg... Als ik Dmax(...query...) + 1 doe dan pakt hij automatisch de hoogste + 1. Maar als er ondertussen records zijn verwijderd kan daar weer een nieuwe record worden toegevoegd. En dat gebeurt nu niet.

Dus:
if geen records then
nr = 1
else
nr = laagste niet bestaande nummer
end if

Voorbeeld
reeks van 1 t/m 5
1
2
3
4
5

als ik dan 3 verwijder dan wordt het
1
2
4
5

als ik dan een nieuwe record toevoeg moet deze nr 3 krijgen i.p.v. 6 met de huidige dmax functie.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan