Laufende Nr :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Laufende Nr

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Access Hilfe

Autor

Nachricht

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 452
Wohnort: Fridingen an der Donau

Verfasst am: 25.08.2008, 09:56

Hallo!

Private Sub Workbook_Open()
On Error GoTo Fehler:
Range("D23").Select
Set Db = Opendatabase(Name:="C:\Users\gookchannel\Desktop\test\Makro\Belegnummern.mdb")
Set rs = Db.OpenRecordset(Name:="Belegnummern")
With rs
.AddNew
!datum = Date
.Update
End With
rs.MoveLast
ActiveCell.FormulaR1C1 = rs.fields(0).Value
rs.Close
Db.Close
'ActiveCell.FormulaR1C1 = "2"
Exit Sub
Fehler:
MsgBox ("Fehler!")
End Sub

Habe eine Tabelle mit Folgendem Code. Die Laufende NR wird in einer externen Accessdatei gespeicher. Nun mein Problem bin grade bei der Laufenden Nr 400 will diese zurück setzen auf 300. Habe in Access einfach mal 100 Datensätze geöscht aber die Laufenede NR. geht trotzdem immer bei 401 weiter kann das an dem Code liegen oder an der DAtenbank? DAnke schonmal Gruß

PS: Falls es an der DAtenbank liegt kann der Thread ja verschoben werden.

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 461
Wohnort: Kiel

Verfasst am: 25.08.2008, 10:34

gook hat Folgendes geschrieben:

bin grade bei der Laufenden Nr 400 will diese zurück setzen auf 300. Habe in Access einfach mal 100 Datensätze geöscht aber die Laufenede NR. geht trotzdem immer bei 401 weiter

(Ich hoffe, Du hast nicht Primärschlüssel und Datenfeld miteinander vermischt. Aber das ist ein anderes Thema...)

Die "laufende Nummer" wird kontinuierlich hochgesetzt, auch nachdem Datensätze gelöscht werden. Das ist normal und, zumindest von Microsoft, so gewolt. Es gibt aber eine Abhilfe:

Nach dem Löschen der Datensätze muß die Datenbank komprimiert werden. Damit wird der interne Zähler wieder auf den höchsten Datensatz zurückgesetzt und das "fortlaufend" klappt wieder lückenlos.

Die Alternative benötigt mehr oder weniger VBA. Mittels =dmax(...)+1 als Standardwert in einem Formular für das Feld läßt sich immer die jeweils nächsthöhere Nr. bestimmen, auch nach Löschoperationen.

Gruß, Michael

PS: Ja, es liegt an Access, Verschieben ist also durchaus eine Option. Wink

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Access Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Laufende Nummer löschen...	Schmitti	Microsoft Excel Hilfe	2	13.08.2006, 13:17

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de