Office: (Office 2003) Funktion kleinste freie Zahl

Wenn du die Parameter nicht kennst - woher sollen wir das wissen? *wink.gif*

Spass bei Seite: Ich empfehle dir einen Button neben das Nummernfeld zu setzen und beim Ereignis beim Click die funktion zu starten. z.B.
Code:

 

DB-technisch lässt sich darüber streiten - nötig ist das nicht, aber vom deutschen Ordnungsfimmel her gesehen macht das hi und da schon mal sinn *wink.gif*

Beim aktuellen Beispiel könnte ich mir vorstellen, dass max 100 Teilnehmer (somit Startnummer 1-100) zugelassen sind, und wenn diese Zahl erreicht ist und keine Lücke mehr vorhanden ist, ist es rum mit Anmelden! Dann geht nur noch die Warteschleife und hoffen, dass jemand abspringt!

Kann man nätürlich auch anders lösen ...!

 

Wenn es max 100 Teilnehmer gibt, dann lege ich eine Tabelle mit den Startnummern an... EIn left Join zwischen dieser und der Teilnehmertabelle und ein Min bzw. Max nennt die nächste Nummer. Ganz ohne VBA. Und die Anzahl der angemeldete kann ich mit Count ermitteln, da muss ich keine "letzte Nummer ist vergeben"-Analyse betreiben.

Wenn schon Ordnungsfimmel, dann richtig *Smilie

 

\@Martin

Guckst Du mal zu #14?

Da habe Dir etwas geschrieben. *wink.gif*

 

Hi,

@maxel, zu #14:
analog zu den (genau) 100 Teilnehmern: Eine Tabelle mit den feststehenden, verfügbaren Nummern, eine Tabelle mit der aktuellen Belegung, und dann über einen Leftjoin die kleinste noch nicht belegte Nummer ermitteln.

Boxen:
1
2
3
4
5
6
7
...
100

Belegt:
4 (Ablauf am tt.mm.2010)
7 (Ablauf am tt.mm.2011)

Boxen left Join Belegt WHERE Belegt.Box Is Null:
1
2
3
5
6
...
100
Min davon:
1

(wer mag, kann auch von hinten füllen und nimmt dann halt Max).

 

Danke, Martin.

Das war allerdings ein Missverständnis. Ich wollte von Dir keine Code-Lösung haben.

Mein Beitrag bezog sich auf Deine Ablehnung gegenüber Nummernrecycling und sollte beispielhaft aufzeigen, dass dies im praktischen Leben durchaus sinnvoll sein kann. *wink.gif*

 

Hallo,
ich würde das mit einer Hilfstabelle lösen die den vollständigen möglichen Wertebereich umfasst.
Dann wird der Code für die kleinste freie Nummer zu einem Einzeiler.
Code:

Ich hatte da mal ein Beispiel dazu gemacht.
Im Beispiel sind auch noch Hilfsfunktionen zur Erstellung der Hilfstabelle.
Trage einfach in das Textfeld einen Buchstaben ein, nach verlassen des Feldes wird die Zahl eingetragen.
Mache das 5-6 mal, dann löschst Du einen Datensatz. Beim nächsten mal wird die Lücke gefüllt.

 

\@Maxel,

Meine Ablehnung gegenüber Nummernrecycling bleibt bestehen. Aber der Ansatz mit Vorratswerten zeigt ja, dass man sowas eben auch per SQL machen kann. Dann ist es ja echte "Datenhaltung."

 

--gelöscht war doppelt--

 

\@ grzi

Danke für deine Hilfe.
Ich habe jetzt aber noch ein kleines Problem *Smilie

ich nutze jetzt folgende Funktion:
Code:

Wenn jetzt eine Nummer frei ist wird die richtig vergeben, ist aber keine Numemr frei, soll ja die nächstgrösste genommen werden. Da gibt es aber ein Probelm, denn ist keine Nummer frei wird die Nummer 0 vergeben.

 

Ups! *upps

Da hat sich wohl eine Zeile verflüchtigt!

Füge nach dem Loop Befehl diese Zeile ein:
Code:

Danach sollte es gehen!

Ansonsten das noch beachten:
Code:

Die 0 kommt nur heraus, wenn diese frei ist - sprich die Zählung mit 0 beginnen soll und 0 nicht vergeben ist, oder der ermittelte Wert >= MaxZahl ist!

 

vilen dank für deine Mühe
grzi
du bist meiN Held *wink.gif*

 

noch eine kurze Frage.
Beim ersten Eintrag läuft die Funktion nicht, da ja noch kein Datensatz existiert.

Müsste man hier nicht noch eine Überprüfung einbauen?

Danke im Voraus für deine Hilfe

 

Setze das nach der Zeile:
With rs
Code:

EOF gibt an, dass man am Ende des Recordsets angekommen ist ...!

 

Nur zur Erinnerung:

Bereits in #2 hatte Martin formuliert:
Code: