Letzten Wert übernhemen und um 1 erhöhen

[fisheye]

Hi

Öhm, ich hab heut noch ne Frage, sorry

In einem Feld einer Tabelle steht ein ID Wert drinne. Im Formular soll der mir nun den letzten Wert aus der Spalte nehmen und diesen um 1 erhöhen (+1).

Ich bekomms nich gebacken

Kann das wer?

Danke

[Meenzer]

Hi!

Mit dem DMAX - Befehl ermittelst Du den höchsten Wert und dann zählst Du einfach 1 dazu:

----------------------------------------------------

Dim TMP as Long

TMP = DMAX("ID","TABELLE")

If IsNull(TMP) Then

TMP = 1

Else

TMP = TMP + 1

End if

----------------------------------------------------

Gruss

[fisheye]

jo klappt, danke