Office: (Office 2016) manuell vergebener Primärschlüsselwert

Hallo,

Hat jemand einen Implementierungsvorschlag (evtl. eine Beispiel-DB) wo der jeweilige Wert für ein Primärschlüsselfeld händisch vergeben werden kann, aber im Hintergrund verhindert wird das eine Nummer fälschlich doppelt vergeben wird?

Die Bedienung sollte so sein das in einem Formular in einem Kombinationsfeld die nächsten 50 freien Nummern stehen, aus welcher ich jeweils die Nummmer für den nächsten, neu anzulegenden Datensatz auswählen kann.

Jede 'benutze' Nummer entfällt dann bei jeweils nächsten neuen Datensatz und eine weitere Nummer kommt in der Auswahl 'hinten' hinzu.

(Weil ich die Nummern frei wählen kann sind die im Kombinationsfeld angezeigten Nummern natürlich nur anfangs fortlaufend und weisen später jeweils Lücken auf.)


Ich kann mir im Grund vorstellen wie ich das löse, nur weiß ich nicht ob ich mich nicht 'verheddere' und so wäre ich interressiert mir eine bereits existierende Lösung anzusehen bzw. erfreut Implementierungs-Hinweise zu hören.



Gruß
Stephan

:)

 

Hallo,
ein Primärschlüssel kann unmöglich doppelt vergeben werden, das wird im Hintergrund von Access wirksam und automatisch verhindert.

Wenn Du den Fehler vermeiden willst, so zähle mit DCount die Anzahl der Datensätze mit dem ausgewählten Wert.
Du kannst auch die Datenherkunft des Kombifeldes so anlegen, dass nur Werte angeboten werden, die noch nicht angelegt sind.

 

Dann musst Du nur die Datenherkunft des Kombinationsfeldes so setzen, dass tatsächlich nur FREIE Nummern angeboten werden: Datensätze aus A, die nicht in B sind

 

das ist prima

und das es so ist hätte ich wohl selbst wissen sollen (zumindest vermuten und dann ggf. prüfen um mich zu überzeugen)


Gruß
Stephan

 

mmh ... mich stört die Notwendigkeit der zweiten Tabelle.

Ich habe das jetzt per VBA so gelöst (das ist auch schnell genug für meine Zwecke):

Code:

Gruß
Stephan

 

Da hat jeder so seine Meinung. In einer Datenbank sind Tabellen das native Futter für Verarbeitungen - so wie ein Fisch im Wasser schwimmt.

In der Schleife über AddItem wird auch nur quasi eine Tabelle gebaut, nur sehr viel umständlicher.
Ich hätte so etwas wie die T999 (Grundlagen - SQL ist leicht (1) - Hilfstabellen) und käme sehr schnell zu einer mehrfachen Nutzung einer solchen Tabelle.

Und: Was ich habe, muss ich nicht bei jedem Anfassen neu gleich berechnen (Ältere bewegen sich nicht mehr gerne unnötig und gönnen das auch ihrem Rechner.)

 

Ja. Der Vorteil für mich ist das ich bei dem VBA verstehe was ich tue.

Ideal ist das VBA im Übrigen nicht weil die Generierung der Listen-Einträge in die Do-Loop-Schleife gehören würde, damit abgebrochen werden kann ohne das ganze Recordset durchlaufen zu müssen.
Ich habe das nur spontan nicht zu laufen bekommen und weil das Interieren durch immer das komplete Recordset bei meiner Datenmenge schnell genug läuft habe ich das so gelassen.


Gruß
Stephan

 

Bau Dir doch eine Funktion, die ermittelt ob der Wert schon vergeben ist. Dafür muss keine neue Tabelle erstellt werden.

Da reicht eine einfache SQL Abfrage
z.B.

"SELECT Deine Tabelle.ID_Feld _
FROM Deine Tabelle _
WHERE (((Tabelle.ID_Feld)= " & neuer Wert & "));"

Frage die Anzahl der Datensätze ab , und Du siehst, ob die Zahl oder die Eingabe schon vergeben ist

Die Funktion rufst Du nach der Eingabe des Wertes auf und kannst dann ggf. zur neuen Eingabe auffordern.

 

\@Fahrer01
Das macht doch DCount in einer Zeile, - siehe #2.

 

Ja das stimmt. Ich habe halt nur gezeigt, wie man sowas im Ansatz programmieren kann.

Es ist sowieso die Frage, warum nicht mit einer Autowertfunktion gearbeitet wird. Eine geordnete Reihenfolge sollte schon gegeben sein. Bei Zahlen ermittel man den höchsten Wertaddiert eins dazu und hat so den nächsten freien Wert.

Das hat vor allem den Vorteil, dass man die Datensätze so besser sortieren kann.
Das würde bei willkürlich vergebenen Werten nicht funktionieren.

 

Der Ansatz ist nun gerade so gewählt, dass er sich möglichst weit von der Einfachheit und Direktheit entfernt, und das bei Nichtbeherrschen von schon einigen Basisfertigkeiten.

Spannend, wie das ausgehen soll, wenn mal richtige Anforderungen zu lösen sind ...

 

Vielleicht hilft ja dieses.

 

Ich würde hier auch eher zu einer Lösung mit Hilfe einer T999 tendieren,
aber wenn ich das mit VBA lösen würde, dann doch eher so:
Code:

 

Die Vergabe eines doppelten Wertes kann man doch dadurch verhindern, indem man in der Tabelle das betreffende Feld als indiziert aber ohne Duplikate einstellt.
Dann braucht man keine Überprüfung , ob Werte doppelt vergeben sind. Das macht dann Access automatisch und meckert, wenn man eine schon vergebene Zahl eingibt.

Frage. Warum wird kein Autowert verwendet ?

 

Wenn man sich wie in #2 an den Thementitel hält: Einen Primärschlüssel muss man mit Sicherheit nicht extra indizieren, weil er es per Definition bereits ist.
Also würde man sein Tun dahin richten, einen Fehler des Users und somit eine unverständliche Meldung an ihn zu vermeiden.