Office: (Office 2003) Funktion kleinste freie Zahl

Hallo zusammen,

ich benutze folgende Funktion um in einem Formular per Button die kleinste freie Zahl in ein Feld zu schreiben:

Code:

Im Formular rufe ich die Funktion folgendermassen auf:
Code:

ab_Ameldungen ist die Abfrage mit den Einträgen

Ich erhalte immer die Fehlermeldung: "Incompabilité de type" was auf Deutsch so viel heisst wie Typ nicht kompatibel.

Was habe ich falsch gemacht?

:)

 

Hi,

der Fehler liegt im Aufruf. Argument x ist ein Integer, aber du übergibst einen Text. Vermutlich wolltest du so aufrufen:
Code:

Im übrigen ist der Code recht inperformant. Die Suche geht schneller:

Code:

(ungetestet; nur als Anregung, die Suche durch SQL machen zu lassen statt druch VBA).

 

Danke für die Antwort und die Anregung.


Habe das jetzt mal unr den Aufruf angepasst.
Jetzt erhalte ich eine andere Fehlermeldung:

"To few parameters. Expect 1"

Also hab ich wohl noch was falsch gemacht.

 

Werden denn Werte für beide Argumente übergeben (Tabellenname und x)?

Welchen Aufruf hast du genutzt?

 

Mir drängt sich der Verdacht auf, dass die Werte die du übergibst nicht als ZAHL in der Tabelle vorliegen!

Probiere mal diese Function:
Syntax: debug.Print KleinsteFreieZahl("DeinTabName" , "FeldMitZahlenWerte", [MaxZahl])

Code:

@Atrus2711: Das ist die nächste zahl nach Max - oder liege ich da falsch?
Das ginge auch mit Code:

und prüfen, ob die Zahl größer der gewünschten MaxZahl ist!

 

folgenden Aufruf habe ich genutzt:

Me.NummerKM = KleinsteFreieZahl("ab_Anmeldungen", Me!NummerKM)

@grzi est geht darum die kleinste freie Zahl zu finden und diese Nummer zu vergeben und nicht die nächste Zahl nach der maximalen Zahl

 

Dann nehme aus diese Codezeile das +1 heraus *wink.gif*
Code:

Ich suche hier nicht die Max Zahl, sondern zuerst eine Lücke in der Zahlenreihe! Ist diese vorhanden, so kannst du mit obiger Function diese Lücke füllen! Deshalb KleinsteFreieZahl!

Bsp. Feldinhalte: 1, 2, 3, 5, 6, 7, 9, 10
Geliefert wird 4
Wird die 4 eingetragen sehen die Feldinhalte so aus: 1, 2, 3, 4, 5, 6, 7, 9, 10
Bei erneutem Aufruf wird dann 8 geliefert
Gibst du als Max 7 an, kommt 0 raus!


Btw: wieso denn bei dir FREIE Zahl?

 

sorry jetzt hab ich überhapt keinen Durchblick mehr *frown.gif*
Ich habs jetzt mit deiner Funktion versucht, und das +1 weggelassen.

Wie du schon erklärt hast, sollen alle Lücken zwischen den Zahlen gefüllt werden und wenn keine frei ist, dann die nächstgrésste Zahl genommen werden.

Wie rufe ich diese Funktion denn jetzt aus meinem Formualr auf?
Danke für deine Hilfe

 

Hi,

und was soll das x dabei sein?

 

Ich versuche mich inzwischen an folgender Funktion von grzi:

Code:

 

Code:

ich glaube aber immer noch, dass Nummernrecycling nicht nötig ist. Wozu auch?

 

es geht um Anmeldungen für einen Wettbewerb an einem bestimmten Tag.
Jeder der sich jetzt abmeldet bekommt eine Nummer. Meldet er sich aber vor dem Datum wieder ab, wird diese Numemr frei. Und um zu verhindern dass Lücken entstehen soll der nächste der sich anmelden die frei Nummer bekommen.

Ich weiss leider noch immer nicht wie ich diese Funktion in meinem Formular aufrufen soll*Smilie

 

Hi,

warum wäre das schlimm? Selbst wenn ihr die Nummern auf Trikots drucken müsstet, müssen die nicht fortlaufend sein. Sie müssen nur eindeutig sein. Das ist was anderes! Das mit dem Fortlauf ist nicht ganz einfach, wie du merkst.

Aber egal: Der Code muss dann laufen, wenn eine Teilnehmernummer vergeben wird, also beim Anmelden. z.B. durch einen Button "Nummer holen".

 

\@Martin

Es werden Akten archiviert, und zwar immer 5 in einer Box. Die Akten tragen fortlaufende Nummern und die Boxen sind entsprechend beschriftet.

Nach 10 Jahren Aufbewahrungsfrist werden einzelne Akten aus den Boxen entfernt und vernichtet. Neue Akten erhalten die frei werdenden Nummern und füllen die Lücken, ohne dass eine Box bewegt oder neu beschriftet werden muss.

Wie würdest Du's besser machen, Martin?

 

ok beim Nummer hoeln, erscheint mir logisch
und mit welchen Parametern?