Office: (Office 2016) Fortlaufende Angebotsnummer generieren

Hallo Anna,

starten kannst den Code im Formular bei Eingabe eines neuen Angebotes.
Falls kein Jahr oder dergl. mitspielen muss, dann...
Code:

 

Oder, falls Du nicht auf VBA fixiert bist, einfach meinem Vorschlag #8 folgen:

Als Standardwert im Formularfeld Projektnummer eintragen:
Code:

 

Hallo zusammen,

erst mal danke für die Vorschläge, habe aber dazu zwei Fragen.

a) wenn ich den VBA Code hinterlegen will, spreche ich dann mit me.??? das Formular, oder das Textfeld an?

b) wenn ich den Standardwert mit der Formel belege, zält er ab den neuen Einträgen hoch, das funktioniert. *wink.gif* *wink.gif*
Müsste ich dann im ersten Eintrag den Startwert der Angebots Nummer händisch eintragen??

LG

 

Hallo!


Ein Hinweis bezüglich Standardwert für nächste Nummer:

Falls mehrere User gleichzeitig Angebote anlegen, beim Verwenden des Standardwertes musst du eine Doppelvergabe verhindern.
In der Zeit zw. Standardwertfestlegung und Speichern des Datensatzes könnte ein anderer User diesen Wert bereits vergeben haben.
.. 2 Anwender haben das Formular zur gleichen Zeit geöffnet (muss nicht gleichzeitig sein) - dann speichert der 1. Anwender den Datensatz und übernimmt den Standandwert, der bei beiden Usern angezeigt wird. Speichert nun der 2. Anwender ist der beim ihm aktuell angezeigt Standardwert bereits vergeben.
=> einfach Abhilfe: kurz vor dem Speichern des Datensatzes den Standardwert aktualisieren.

mfg
Josef

 

Hey Kyron
*Smilie *Smilie
hab's rausgefunden. habe im Code für den Standardwert ingesetzt. Prima
Danke dafür.

Noch eine Frage:

Ginge das auch dann, wenn ich eine Wenn Funktion davor schalte?
Also, wenn in einem bestimmten Feld "Auftrag erteilt" steht, erzeuge eine neue Auftragsnummer. Wäre ein anderes Feld im Formular

Da könnten dazwischen aber leere Felder sein, da nicht jedes Angebot zum Auftrag wird.

Gruß Anna

 

... gleicher Code nur mit...
Code:

Würde dafür ein Ja/Nein-Feld verwenden, dann...
Code:

 

Danke,

werde ich gleich ausprobieren!!*tongue.gif* *tongue.gif*

LG
anna

 

...noch besser wäre das Datum der Auftragserteilung

 

Hallo Alfred,

habe den Code mal ausprobiert, bzw. im VBA Fenster abgelegt und angepasst.

Private Sub Auftragsnummer()

If IsNull(Me.Auftragsnummer) And Me.Status = "Auftrag erteilt" Then
Me.Auftragsnummer = DMax("Auftragsnummer", "Projektdaten") + 1
End If

End Sub

me. bezieht sich ja auf das Textfeld im Formular, richtig?

Auftragsnummer heißt auch die Spalte im der Tabelle, in der der Wert abgelegt werden soll. Nur es tut sich nix??? *frown.gif* *frown.gif*
Ist auch im Formular integriert. Was ist falsch??

gruß anna

 

Hallo Anna,
Nein, Me. referenziert immer das Formular in dessen Modul du
dich bewegst.
Zum Rest (Status) würde ich ja auch was sagen, mir sind aber die
Beteilungen/Abhängigkeiten der beteiligten Tabellen nicht klar; -
Projekte, Angebote, Aufträge?
Ein Bild des Beziehungsfensters wäre hilfreich.
gruss ekkehard

 

*Smilie du musst natürlich diese Sub auch aufrufen, sonst wird sich nichts tun.
Du gibst ja sicher Daten für einen Auftrag ein, beim ersten Feld gibst eben mal...
Beim Verlassen (ev. findet man noch eine bessere Wahl)
[Ereignisprozedur]
und dann
Auftragsnummer
ein.
Ich persönlich würde für den Namen setAuftragsNr wählen...
da hat aber jeder so seine eigenen Ideen

PS: Me = Mir, also sozusagen das Formular in dem du dich befindest
und nach dem . kommt der Name des Feldes
...wenn schon dabei, dann noch...
Me.Parent.Feld
Parent ist z.B. in einem Unterformular (Kind), das Hauptformular (Elternteil).
Feld ist dann natürlich das Feld im Hauptformular aus dem
Unterformular aufgerufen*Smilie

 

Moin zusammen,

erst mal Dank für die Hilfestellung. Werde mich mal dranmachen, so mit Fachbuch und so, zur Unterstützung. *entsetzt

Wenn ich nicht mehr weiterkomme, werde ich mich nochmals melden.

gruß anna