Office: (Office 2000) laufende Nummer mit Startwert

Hllo zusammen,

ich habe eine Tabelle, welche mithilfe einer sql-Abfrage gefüllt wird.
In dieser Tabelle gibt des auch eine laufende Nummer. Da diese Tabelle (Tabelle) an eine andere angehängt werden soll, muss diese laufende Nummer mit dem maximalen Wert, der bereits in der Tabelle steht + 1 beginnen und jeweils inkrementiert werden.

Meine Funktion liefert jedoch den Fehler:
Der von Ihnen eingegebene Ausdruck ist syntaktisch falsch.
Sie haben einen Operanden oder Operator nicht angegeben; Sie haben ein unzulässiges Zeichen oder Komma eingegeben; oder Sie haben einen Text eingegeben, ohne diesen in Anführungszeichen zu setzen.

Abfmax: Abfrage welche den bisherigen maximalwert abfragt (im Feld "maximum")
Tabelle: neu erstellte Tabelle, die später angehängt werden soll
Feld: Feldbezeichnung, in welchem die laufende Nummer abgelegt werden soll

Aufruf der Funktion: lfdNummer("Stueli";"4 Teile";"STRFNR")

Code:

Kann mir hier vielleicht jemand weiterhelfen?

Vielen Dank im Voraus!

:)

 

Hallo
hier eine möglichkeit (ungetestet):
Code:

 

Habe das jetzt mal so ziemlich übernommen.
Wenn ich die Prozedur mit dem oben genannten Befehl in einem Makro aufrufe, bekomme ich aber die Meldung
"Aktion ist fehlgeschlagen"

Hat irgenwer eine Ahnung, was noch falsch ist?

 

mich würden die Hintergründe interessieren. Wieso genügt nicht einfach ein Autowert-Feld in der Tabelle welches die laufende Nummer fortlaufend automatisch generieren würde.

 

Mittlerweile läuft die Funktion. Also jedenfalls lief sie heute morgen. Hätte vielleicht gestern mal die Anwendung neu starten sollen.

Hintergrund:
Auf einer AS400 existiert eine Tabelle mit Stammdaten. An diese Tabelle sollen nun weitere Artikelstammdaten angehängt werden. Daher habe ich eine Anwendung erstellt, welche sich aus anderen DBs die benötigten Werte ausliest und in eine eigene Stammdatentabelle schreibt. Um diese nun auf der AS400 anfügen zu können, muss die laufende Nummer einen höher beginnen als die höchste bisher auf der AS400 vorhandene Nummer. Dummerweise ist das Feld auf der AS400 nicht als autoincrement hinterlegt. Also muss ich es auf diese Weise machen oder?

 

wenn es aus allen Anwendungen bereits eine ArtikelID gibt könnte man in der Anfügeabfrage nur diejenigen DS anfügen deren ArtikelID nicht bereits in der Stammdatentabelle vorhanden sind, etwa so:
INSERT INTO Stammdatentabelle (ArtikelID) WHERE ArtikelID NOT IN (SELECT ArtikelID FROM Stammdatentabelle)

 

Es gibt aber leider nur eine Artikelbezeichnung, welche in allen Systemen gleich ist oder zumindest sein sollte und als Primärschlüssel verwendet wird. Die laufende Nummer existiert nur auf der AS400. In allen anderen Systemen gibt es etwas derartiges nicht.

Gruß
prielent