Kleine Sektflaschen Hochzeit
Veröffentlicht am 30. 12. 2003 Frage: Ich möchte eine Seriennummer ermitteln, die sich aus Jahreszahl und fortlaufender Nummer zusammensetzt. Wie kriege ich Access dazu, zum einen bei jedem Datensatz weiterzuzählen und vorher zu ermitteln, ob noch immer das gleiche Jahr läuft, oder ob es sich um ein neues Jahr handelt und dann wieder bei 1 zu beginnen? Antwort: Eine fortlaufende Nummer mit Jahreszahl, die sich beim neuen Jahr wieder zurücksetzt, kann man mit einer VBA-Funktion relativ leicht realisieren. Legen Sie zunächst ein Textfeld mit einer Länge von mindestens 8 Zeichen in Ihrer Rechnungs-Tabelle (beispielsweise tblRechnungen) an. Rechnungs und Angebotsnummer generieren (fortlaufend). Für die Rechnungsnummern könnte dieses Feld folgendes Format haben: 00023-99 Diese Nummer stellt also die dreiundzwanzigste Rechnung im Jahr 1999 dar. Um die letzte Rechnungsnummer im aktuellen Jahr zu ermitteln, setzen wir die Max-Funktion in einem Recordset ein: Dim db As Database Dim rstLetzteRechNr As Recordset Dim strJahr As String strJahr = Right$(Year(Date), 2) ' Aktuelles Jahr, z. b.
Ist vielleicht nicht elegant, aber läuft seit 2 Jahren ohne Lücken. Loading...
Hallo Brie, vom Gesetzgeber wird eine "fortlaufende Nummerierung" der Rechnungsnummern gewnscht. Um dies auch korrekt abzubilden, ist es unumgnglich, die erstellen Rechnungen bzw. zumindest die erstellen Rechnungsnummern in eine Datei zu speichern. Denn was passiert, wenn du dein Formular ffnest und die Datei/Eingaben dann verwirfst? Rechnungsnummer erzeugen in abhängigkeit vom Datum - Daten(bank)programmierung - VB-Paradise 2.0 – Die große Visual-Basic- und .NET-Community. Beim nchsten ffnen der datei wird dann eine Nummer ausgelassen. Was passiert wenn du eine Rechnung erstellt hast und willst nun eine zweite Rechnung erstellen? dann mut du ja die Datei vorher schliessen und wieder neu ffnen....!? Was will ich damit sagen?.... "so einfach wird das nicht" Was kannst Du tun? a) Programmieren lernen b) Access benutzen und eine Datenbank aller Rechnungen aufbauen c) einen Profi beauftragen Wenn du dies alles nur aus Spass an der Freude machst, kann ich dir da sicher auch einen kleinen Code zusammenbasteln. Gru Gerd
200 Transaktionen im Monat. Viel mehr wirds es kam werden. und wie gesagt stelle ich es mir so vor: Letzten Datensatz holen celle "Rechnungsnummer" Auslesen Nr um "1" erhöen und in Textbox schreiben. Wenn das mit dem Datum keine gute Idee ist dann lasse Ich das Datum weg. (Gibt es Bestimmungen wie eine Nummer auszusehen hat?? Ich meine, Ich hab noch nie eine Rechnung bekommen mit Rechnungsnummer 1, 2, 3, 4, 5, usw. Im Programm ist das Ausdrucken der Rechnung nicht integriert. Das mach ich mit Office Wäre aber für Später noch ein Projekt. (Mit Drucken und Ansteuerung, report usw. stehe ich auf Kriegsfuß) Es gibt nur eine Tabelle "Daten" ID Datum...................................... Datetime rrency Ausgaben_Verkärrency Gruß Möglicher Lösungsweg Folgende 3 Felder: 1. Präfix (String) z. B. R-20-03- 2. Nummer (Integer) z. 1234 3. Rechnungsnummer (String) z. R-20-03-1234 bei der Anlage einer Rechnung den Max/Letzten Wert für 'Nummer' aus der Datenbank abfragen, bei welcher der 'Präfix' identisch ist mit dem momentan gültigen Präfix (dieser basiert auf dem aktuellen Monat).