Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Formulare durchnummerieren
zurück: Löschen-Formular mit Username und Passwort ?? weiter: ID(Zahl) in einer Tabelle ausfühlen durch ID(Autowert) ander Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
AccManu
Gast


Verfasst am:
30. Jan 2013, 15:24
Rufname:

Formulare durchnummerieren - Formulare durchnummerieren

Nach oben
       Version: Office 2010

Hallo,

ich wende mich an dieses Forum, da ich nicht weiss, wie ich ein Problem lösen soll. Ich arbeite noch nicht lange mit Access und habe nur rudimentäre VBA-Kenntnisse.

Also, ich muss in mehreren Formularen eine nachträgliche Durchnummerierung durchführen. Und das vom 1. Datensatz an. Bei einigen Formularen muss ich eine bestehende Nummerierung überschreiben. Die Formulare haben alle ein ungebundenes Textfeld für die Nummer.
Das sollte so ablaufen: In der Tabelle gebe ich im ersten Datensatz die Nummer ein (z.B. 10000), bzw. überschreibe die alte. Beim Öffnen des dazugehörigen Formulars sollen dann alle Datensätze aufbauend auf der ersten Nummer durchnummeriert werden.

Die Prozedur habe ich mir so ungefähr vorgestellt, kann sie aber nicht umsetzen: Gehe zum 1. Datensatz. Prüfe dort, ob dieser um 1 kleiner ist als der 2. Datensatz. Wenn nicht, schreibe im 2. Datensatz die Nummer des 1. Datensatzes +1. Gehe zum nächsten Datensatz, usw., bis zum letzten Datensatz.

Gibt es dazu eine passende VBA-Prozedur?

Grüße vom Manuel
MiLie
kein Office- VBA- Programmierer


Verfasst am:
30. Jan 2013, 18:40
Rufname: Micha
Wohnort: Chemnitz


AW: Formulare durchnummerieren - AW: Formulare durchnummerieren

Nach oben
       Version: Office 2010

Hallo,

dazu ein paar Gegenfragen.

- woran machst du den ersten oder zweiten DS fest (sortierung)
- warum Formular und nicht direkt in der Tabelle (z.B.Recorset)
- wenn du danach das Form erneut öffnest, soll es dann wieder neu nummeriert werden?
- wenn du die Nummer überschreibst (also Nummern existieren) woher weiß das Formular, welche Nummer die richtige (überschriebene) ist?

erkäre mal den Tieferen Sinn der Aktion. ( das klingt als wäre sie einmalig)

_________________
Viele Grüße

Micha

Schreibfehler die Ihr findet, könnt Ihr behalten
AccManu_
Gast


Verfasst am:
30. Jan 2013, 20:59
Rufname:

AW: Formulare durchnummerieren - AW: Formulare durchnummerieren

Nach oben
       Version: Office 2010

Hallo Micha,
Zitat:
woran machst du den ersten oder zweiten DS fest (sortierung)
Nach der momentanen Sortierung, die Datensätze werden temporär angelegt.

Zitat:
warum Formular und nicht direkt in der Tabelle (z.B.Recorset)
Wäre mir egal, ginge auch über Tabelle.
Übrigens - das Nummernfeld der Formulare ist nicht ungebunden, wie ich fälschlicherweise geschrieben hatte, die Werte werden natürlich auch in die Tabelle geschrieben.

Zitat:
wenn du danach das Form erneut öffnest, soll es dann wieder neu nummeriert werden?
Nein, nur wenn ich im 1. Datensatz eine zum 2. Datensatz eine Abweichung um mehr als 1 habe. Deshalb zunächst die Abfrage, ob es diese Abweichung gibt.
Man könnte aber auch ein anderes Kriterium nehmen, z.B. dass zusätzlich zur Änderung der Nummer im 1. Datensatz der 2. Datensatz leer gemacht wird, als Sicherheit, etc.

Zitat:
wenn du die Nummer überschreibst (also Nummern existieren) woher weiß das Formular, welche Nummer die richtige (überschriebene) ist?
Siehe letzte Antwort.

Zitat:
erkäre mal den Tieferen Sinn der Aktion. ( das klingt als wäre sie einmalig)
Erweiterung bzw. Änderung der Dezimalstellen, z.B. 10000 statt 1000. Soll eine einmalige Aktion bleiben.

Nachtrag: Wäre super, wenn es ein globales Modul wäre, damit man es aus jedem Formular aufrufen kann.

Grüße, Manuel
MiLie
kein Office- VBA- Programmierer


Verfasst am:
30. Jan 2013, 21:53
Rufname: Micha
Wohnort: Chemnitz

AW: Formulare durchnummerieren - AW: Formulare durchnummerieren

Nach oben
       Version: Office 2010

Hallo,

wenn die Nummerierung temporär ist klingt es danach dass deine Datensätze einfach nur nummeriert von oben nach unten angezeigt werden sollen, nur dass die Anfangsnummer bei jeden Form anders sein soll.

Das liese sich auch ohne abspeichern in der Tabelle machen, du müsstest nur irgendwo die Anfangsnummern festhalten.

erkläre mal tierfer den Sinn und Zweck der Sache.

_________________
Viele Grüße

Micha

Schreibfehler die Ihr findet, könnt Ihr behalten
AccManu_
Gast


Verfasst am:
30. Jan 2013, 22:31
Rufname:


AW: Formulare durchnummerieren - AW: Formulare durchnummerieren

Nach oben
       Version: Office 2010

Hallo Micha,
Zitat:
wenn die Nummerierung temporär ist klingt es danach dass deine Datensätze einfach nur nummeriert von oben nach unten angezeigt werden sollen, nur dass die Anfangsnummer bei jeden Form anders sein soll.
Die Nummerierung ist nicht temporär, sondern die Datensätze werden temporär angelegt. Ich meine damit, dass die ersten Datensätze älter sind, als die zuletzt angelegten. Die Datensätze sind nach der Nummerierung aufsteigend sortiert. Jedes Formular hat seinen eigenen Nummernkreis.

Zitat:
Das liese sich auch ohne abspeichern in der Tabelle machen, du müsstest nur irgendwo die Anfangsnummern festhalten.
Dazu kann ich ja in der Tabelle im 1. Datensatz die 1. Nummer setzen.

Zitat:
erkläre mal tierfer den Sinn und Zweck der Sache.
Der tiefere Sinn: Ich will in einigen Formularen meine Nummernkreise erweitern, weil einige bereits voll sind, also von 4 Stellen auf 5 Stellen.
Momentaner alter Nummernkreisbereich: 1000-9999
Neuer Nummernkreisbereich soll sein: 10000-99999

Die Nummernkreise in anderen Formularen will ich somit auch ändern, damit man die Nummernkreise optisch auf Anhieb auseinanderhalten kann, also von 5 Stellen auf 6 oder 7 Stellen.

Grüße, Manuel
MiLie
kein Office- VBA- Programmierer


Verfasst am:
30. Jan 2013, 22:47
Rufname: Micha
Wohnort: Chemnitz

AW: Formulare durchnummerieren - AW: Formulare durchnummerieren

Nach oben
       Version: Office 2010

Hallo,

also alle Nummern um eine (oder mehrere) Dezimalstellen erweitern.
einfache Updateabfrage einmalig ! starten
Code:
UPDATE deineTabelle
SET    Nummernfeld = Nummenfeld+10000
Tabellennamen und Feldnamen anpassen.
Die Zahl entsprechend anpassen 10000 wenn dein Ziel von 10000 aufwärts ist.
Datensätze ohne Nummer bleiben leer. Vorteil es werden die Originalnummern beibehalten, nur um deinen Wert erhöht. Unabhängig einer Sortierung.

_________________
Viele Grüße

Micha

Schreibfehler die Ihr findet, könnt Ihr behalten
AccManu
Gast


Verfasst am:
30. Jan 2013, 22:55
Rufname:

AW: Formulare durchnummerieren - AW: Formulare durchnummerieren

Nach oben
       Version: Office 2010

Hallo Micha,

das ist ja interessant, kannte die Funktion gar nicht.

Wie wird der Code ausgelöst?
Ließe er sich auch als globales Modul erstellen?

Viele Grüße, Manuel
MiLie
kein Office- VBA- Programmierer


Verfasst am:
30. Jan 2013, 23:22
Rufname: Micha
Wohnort: Chemnitz

AW: Formulare durchnummerieren - AW: Formulare durchnummerieren

Nach oben
       Version: Office 2010

Hallo, das ist eine Abfrage.

in Abfragen gehen und neu, dann auf SQL-Ansicht (rechte Maustaste) und den geposteten Code reinkopieren, Inhalt ersetzen. Dann Tabellennamen und Feldnamen sowie Zahl auf die zuändernte Tabelle anpassen. Mit Datenblattansicht (rechte Maustaste) Ergebnis kontrollieren. Wenn es passt schließen und Abfrage speichern.

Danach die Abfrage ( hat ein !-Symbol) doppelklicken, sie wird gestartet und es kommt eine Meldung ob du x Datensätze verändern möchtest. Bestätigen und danach Tabelle anschauen.

Dann deine anderen Tabellen ebenso.

Tabelle oder DB vorher sichern, falls es falsch wird.

_________________
Viele Grüße

Micha

Schreibfehler die Ihr findet, könnt Ihr behalten
AccManu
Gast


Verfasst am:
31. Jan 2013, 15:11
Rufname:


AW: Formulare durchnummerieren - AW: Formulare durchnummerieren

Nach oben
       Version: Office 2010

Hallo Micha,

funktioniert perfekt, genau das, was ich wollte! Very Happy

Ich möchte mich hiermit bei Dir für Deine Hilfe ausdrücklich bedanken! Very Happy

Viele Grüße vom Manuel
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum 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 nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrere Formulare mit dem gleichen Datensatz 1 trekki1701 108 04. Aug 2013, 17:01
Gast Mehrere Formulare mit dem gleichen Datensatz
Keine neuen Beiträge Access Tabellen & Abfragen: Formulare über Schaltfläche in der Menüleiste öffnen 5 Hasenfuss8 106 04. Jul 2013, 09:25
Hasenfuss8 Formulare über Schaltfläche in der Menüleiste öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze Durchnummerieren ähnlich wie Autowert ... 12 lubbinet 194 14. Nov 2012, 15:30
lubbinet Datensätze Durchnummerieren ähnlich wie Autowert ...
Keine neuen Beiträge Access Tabellen & Abfragen: Listenfeld durchnummerieren 1 robbitobbi 82 11. Nov 2012, 23:12
Marmeladenglas Listenfeld durchnummerieren
Keine neuen Beiträge Access Tabellen & Abfragen: Formulare speichern? 1 Totolino 89 10. Jun 2012, 22:37
KlausMz Formulare speichern?
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2007 Abfragebedingungen mit Verweis auf Formulare 5 FranziskaS 699 23. Nov 2011, 16:45
MissPh! Access 2007 Abfragebedingungen mit Verweis auf Formulare
Keine neuen Beiträge Access Tabellen & Abfragen: Kann keine Formulare erstellen :-( 4 zecloin 406 26. Jul 2007, 09:23
zecloin Kann keine Formulare erstellen :-(
Keine neuen Beiträge Access Tabellen & Abfragen: Formulare und Abfragen lassen sich nicht mehr editieren 2 Azrael19 592 29. Okt 2005, 19:14
Gast Formulare und Abfragen lassen sich nicht mehr editieren
Keine neuen Beiträge Access Formulare: Zwei Formulare die sich auf den gleichen Datensatz beziehen 0 SilkeSchaefer 493 11. Apr 2005, 15:53
SilkeSchaefer Zwei Formulare die sich auf den gleichen Datensatz beziehen
Keine neuen Beiträge Access Formulare: Formulare: Karteikarten: Vorlagen für Access 2002/2003 1 ewittig 8495 08. Apr 2005, 17:47
mc_moe Formulare: Karteikarten: Vorlagen für Access 2002/2003
Keine neuen Beiträge Access Formulare: 2 Formulare miteinander drucken 0 Phantomias 495 05. Apr 2005, 15:35
Phantomias 2 Formulare miteinander drucken
Keine neuen Beiträge Access Formulare: Formulare in Access verknüpfen 1 yuna 791 04. Apr 2005, 19:52
waldwuffel Formulare in Access verknüpfen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project