Autowert nur positive Zahlen

[datekk]

Hallo,

ich habe eine Tabelle in welcher der Schlüssel per Zufall erstellt wird. Leider werden hier auch negative Schlüssel vergeben, also mit einem Minuszeichen vorher.

Ist es möglich dies so zu konfigurieren, dass ausschließlich positive Schlüssel erstellt werden?

[MzKlMu]

Hallo,
der Schlüssel ist doch eigentlich egal, im Regelfall ist der doch gar nicht zusehen, weil ausgeblendet.

[ebs17]

Wenn Du Autowert (Counter) statt Zufallswert verwendest, hättest Du ein paar Versuche im positiven Bereich frei (bis etwa 2,14 Mrd.), ehe der Wertebereich in den gleich großen negativen Bereich geht.

[datekk]

ok. vielen Dank an Euch. Wie ist es dann z.B. Möglich, Auftragsnummern nach einem gewissen Schema zu erstellen? Z.B. 2014-00010 welche fortlaufend vergeben werden?

[Hondo]

Ja, erstelle dazu in einem Modul eine öffentliche Funktion die dir den Auftragsnummer liefert.
Beispiel:
Public function getAuftragsnummer() As String
    ' Todo:
    ' 1. letzte Nummer aus Tabelle holen => DLOOKUP()
    ' 2. Zählnummer extrahieren => clng(right(LetzteNummer,len(letzteNummer)-5))
    ' 3. Zählnummer um 1 erhöhen => Zählnummer = Zählnummer + 1
    ' 4. Jahr + Bindestrich + Nullen vorhängen => getAuftragsnummer = Year(Now()) & "-" & left("00000",5-len(Zählnummer)) & Zählnummer
End Function

Gruß Andreas

[ebs17]

Atomare Informationen (Jahr + lfd. Nummer) würde man besser in getrennten Tabellenfeldern ablegen. Das hat etliche positive Effekte.

Siehe auch fortlaufende Nr in Abfrage erzeugen
Vielleicht verstehst Du schneller das, womit sich dort der TE schwer tut.

[datekk]

vielen Dank für die Antworten

@ hondo:

Ich habe das Modul erstellt. Nur wie benutze ich es? Die Auftragsnummer soll ja fest zum Datensatz gespeichert werden - also in einer Tabelle. Wenn ich jetzt in der Tabelle ein berechnetes Feld einfüge, dann kann ich den Ausdruck "=getauftragsnummer()" nicht benutzen. Wie ist es also gemeint?

[DF6GL]

Hallo,

schreib den Funktionsaufruf in die Eigenschaft "Standardwert" des entspr. gebundenen Textfeldes...

Besser wäre aber, die Nummer vor den akt. Speichern des (neuen) Datensatzes zu berechnen und zuzuweisen.

Sub Form_BeforeUpdate(Cancel as Integer)
If Me.Newrecord Then Me!AuftrgNr= getauftragsnummer()
End Sub


Vorsicht ist geboten, wenn die DB in einer Mehrbenutzer-Umgebung benutzt werden soll.

[datekk]

Ok... Ich erhalte eine Fehlermeldung: Fehler beim Kompilieren: Syntaxfehler. Der Debugger öffnet sich. DLOOKUP() ist markiert.

Die Zeile clng(right(LetzteNummer,len(letzteNummer)-5))
ist rot geschrieben....

Mein vollständiges Modul sieht so aus:

Option Compare Database

Public Function getAuftragsnummer() As String

DLookup ()
CLng(Right(letzteNummer, Len(letzteNummer) - 5)))

Zählnummer = Zählnummer + 1
getAuftragsnummer = Year(Now()) & "-" & Left("00000", 5 - Len(Zählnummer)) & Zählnummer


End Function

Schon bei der Eingabe von DLookup () erhalte ich die Fehlermeldung "Fehler beim Kompilieren: Erwartet:="

[DF6GL]

HAllo,

und was sagt Dir jetzt die Codezeile   

DLookup ()

??

Dlookup() ist eine Funktion, die einen Wert zurückliefert, dessen Position (Feld in der Tabelle) durch die anzugebenden (und hier fehlenden) Funktions-Parameter definiert wird.

Zudem muss der zurückgelieferte Wert an eine Variable oder auch ein Textfeld übergeben werden...

(Abschreiben allein genügt doch nicht....Solche Codevorschläge müssen schon an die akt. Situation angepasst werden.)

[datekk]

Um ehrlich zu sein, mir sagt das gar nix. Ich habe keinen Plan davon. 

Kannst Du mir ein Beispiel geben, damit ich die Funktion verstehe und auf meine Bedürfnisse anpassen kann?

[MzKlMu]

Hallo,
stelle den Cursor auf DLookup und drücke F1.
In der Hilfe findest Du eine genaue Beschreibung und Beispiele.

[datekk]

Sorry, das ist ja wirklich ausführlich beschrieben, aber ich habe keine Ahnung was ich da eingeben muss. DLookUp soll die letzte Nummer (ID?) aus meiner Tabelle "AngebotAuftrag" holen. Bitte gebt mir eine Hilfestellung...

Wenn die letzte ID gemeint ist, dann wird das bei mir auch nicht gehen, da die IDs zufällige Nummern sind. Mal 1000000 mal -250045....

[DF6GL]

Hallo,

wenn Du einen Autowert für die ID ( oder Auftragsnummer) hast und dieses Feld zur eigenen Manipulation hernehmen willst, so geht das schlicht und einfach nicht (mehr).

Es bleibt dann nur , ein weiteres Feld für diesen Zweck hinzuzufügen und den Wert für dieses Feld entspr. der Berechnungsvorgabe (z. B. mit einer eigengeschriebenen Funktion) für alle Datensätze zu ermitteln ....
Inwieweit das Ganze sinnvoll im Hinblick auf schon vorhandene Daten ist, ist weiter zu hinterfragen. 

Das ganze Problem ist unter "Designfehler" einzuordnen... 

[datekk]

Ok. Das konnte ich mir schon vorstellen. In meiner Tabelle "Angebote" habe ich ein Feld Namens "Auftragsnummer" erstellt. In dieses Feld soll die Nummer im Format 2014-12345 fortlaufend (oder auch gern per Zufall errechnet) gespeichert werden. Weitere Datensätze sind nicht betroffen. Es ist alles neu. Designfehler sind ausgeschlossen.

Wie wird nun diese Lookup Funktion aufgebaut?