Office: (Office 2010) Anzahl Datensätze live ermitteln

Hallo Forum,

in einem Hauptformular gibt es ein Kombinationsfeld. Darin kann man zwischen "Neubestellung" und "Reparatur" auswählen, was klappt. Anschließend klickt der Benutzer auf die Schaltfläche "Neu anlegen", womit folgende Aktionen erfolgen sollen:
1.Es wird ein neuer Datensatz begonnen
2.Abhängig von der vorherigen Auswahl im Kombinationsfeld wird in ein 1.Textfeld "B" oder "R" eingetragen und in einem 2.Textfeld soll automatisch die nächst höhere Nummer eingetragen werden (z.B. B|014, R|028). Dafür muss
a) ermittelt werden, wie viele Datensätze es vom bisherigen Typ schon gibt
b) Zu dieser Zahl +1 addiert und dann ins Textfeld kopiert werden.
Auf diese Art hoffe ich einmalige, aufsteigende Nummern für 2 Nummernkreise zu erhalten.

In einem ähnlich gelagerten Beitrag hier im Forum
Anzahl Datensätze ermitteln
habe ich mir folgenden Code gefunden:
Code:

1.Problem: Gibt es noch gar keine Datensätze in der Tabelle, erhalte ich den Fehler: "Laufzeitfehler '3021'. Kein aktueller Datensatz."
Wie kann ich das Problem abfangen, sodass er mit der Nummer 1 beginnt?

Sobald ein Datensatz existiert, klappt das zählen.

2.Problem: Wie kann ich die Anzahl zwischen den beiden Typen "B" und "R" unterscheiden?

PS: Um flexibel bei den Bezeichnungen zu sein und evtl. später weitere Nummernkreise leicht anlegen zu können, gibt es eine eigene Tabelle tbl_Rubrik mit den Spalten: ID_Rubrik, Rubrikbezeichnung.
Die ID_Rubrik ist referenziell 1:n verknüpft mit der Haupttabelle tbl_Aktionen, dort mit der Spalte FK_Rubrik. Diese Spalte ist im Formular verknüpft mit dem 1.Textfeld.

Vielen Dank im Voraus!

Viele Grüße

:)

 

Zu 1:
Code:

Zu 2:
Code:

Rubrik übergibst du der Funktion dann beim Aufruf.
maike

 

Hallo,

einfacher wäre wohl zB in einer Abfrage oder im Form direkt:

Code:

 

Hallo amibobo,

...ich würde es sogar noch einen Schritt weitergehen...
Code:

Gruppe ist von mir angenommen und muss geändert werden, genauso wie Kombifeld.
Diese Nummer muss dann aber noch im zuständigen Feld übernommen werden und den DS nach Übername der Laufnummer speichern...
Code:

...sonst wird die vermutlich bei einem anschließend neu erstellten DS die alte Nummer angezeigt.
Vermutlich muss man auch das Anzeigefeld mit einem Me.Anzeigefeld.Requery beglücken *Smilie

PS: in einer Abfrage ist es natürlich auch möglich.
Noch etwas, ich hoffe, dass die ID im Kombi gespeichert wird!

 

Hallo
etwas zum Thema kan man auch in
meiner Doc s. Fusszeile unten rechts finden

auf Seite 66 "5.3.6 Gruppieren und Anzahl pro Gruppe"
oder Seite 97 " 5.4.20 Datensätze einer Tabelle / Abfragen zählen"