Hallo zusammen,

ich habe unter anderem die folgende Tabelle in einer Access 2007 Datenbank:

Rechnungen:
ID AutoIncrement
Nummer
Kunde
Datum
Betrag
Anlage

Die Daten werden per Formular eingetragen, natürlich mit ausgeblendetem ID Feld, damit diese aufsteigend und einmalig ist.

Nun möchte ich das Feld "Nummer" wie folgt füllen:
JahrVKID

Beispiel für ID 1: 2010VK001
Beispiel für ID 10: 2010VK010
Beispiel für ID 100: 2010VK100

Ich möchte also immer das Jahr, gefolgt vom String "VK" und der ID, abhängig von der Größe, mit führenden Nullen. Die letzte ID aus der Tabelle auszulesen ist per Abfrage kein Problem, nur scheitere ich nun an der weiteren Umsetzung.

Wähle ich für "Nummer" im Formular ein Textfeld und setze die Abfrage als Standardwert, erscheint nur ?Name, wähle ich ein Kombinationsfeld, bekomme ich zwar die letzte ID+1, jedoch schaffe ich es nicht, dies mit dem von mir gewünschten zu verknüpfen.


Ich hoffe, dass mein Problem damit ausreichend beschrieben ist und freue mich über sämtliche Antworten.

Vielen Dank.

Danke für deine Antwort Dimu!

Ich möchte nicht das Feld Kunde, sondern das Feld Nummer füllen.
Die ID soll dabei auch die Rechnungs-ID sein.

Ich habe versucht, deine Prozedur abzuändern.
Allerdings wird wohl ID nicht erkannt, da immer 2010VK00 im Feld Nummer steht.

Hier mein Code:
Private Sub Nummer_Enter()
Select Case ID
Case Is < 10
Me.Nummer = Format(Date, "yyyy") & "VK00" & Me.ID
Case Is < 100
Me.Nummer = Format(Date, "yyyy") & "VK0" & Me.ID
End Select
End Sub


Kannst du mir nochmals unter die Arme greifen?


Edit: Was mit gerade einfällt: Ich habe ja schon eine fertige Abfrage, die mir die nächste ID liefert.
Kann ich die Abfrage von VBA abrufen und den Wert für die Variable ID setzen und das ganze dann damit prüfen?

Das Feld ID im Formular ist vorhanden, da steht eben "(Neu)" drinn.

Meine Abfrage hat den folgenden Code:
SELECT TOP 1 ([Rechungen].ID+1)
FROM [Rechungen]
ORDER BY [Rechungen].ID DESC;

Hast du eine Idee, wie ich das Ergebnis dieser Abfrage als ID im Nummernfeld verwenden kann?
Bzw. wie ich es doch schaffen könnte, auf das vorhandene ID Feld zuzugreifen.

Danke für deine Hilfe!!

Ich habs geschafft
Dein Ansatz hat mich in die richtige Richtung gebracht (auf VBA bin ich gar nicht gekommen)

Hier mein Code:
Private Sub Nummer_Enter()
If Me.DataEntry = True Then
ID_neu = DMax("ID", "Rechungen: Verkauf") + 1
Select Case ID_neu
Case Is < 10
Me.Nummer = Format(Date, "yyyy") & "VK00" & ID_neu
Case Is < 100
Me.Nummer = Format(Date, "yyyy") & "VK0" & ID_neu
End Select
End If
End Sub

Nochmals vielen Dank für deine Hilfe!