<\/p>\n
Wenn Sie Daten mit individueller Reihenfolge anlegen wollen, können Sie das mit sehr wenig Aufwand anstellen, indem Sie dafür einfach ein Zahlenfeld anlegen. Für dieses kann der Benutzer dann einen eigenen Wert festlegen, der zwischen dem zweier vorhandener Felder liegt und die Reihenfolge-Werte dann per Mausklick aktualisieren. Wie das genau aussieht und wie einfach die Programmierung hierfür ist, lesen Sie im vorliegenden Beitrag.<\/b><\/p>\nWarum die Reihenfolge festlegen<\/h2>\n
Gründe, um die Reihenfolge von Datensätzen in einer Tabelle festzulegen, gibt es genügend. In unserem Beispiel der Tabelle tblArtikel <\/b>gehen wir zum Beispiel davon aus, dass der Benutzer die Artikel in einer bestimmten Reihenfolge für einen Katalog ausgeben möchte. <\/p>\nFeld zum Speichern der Reihenfolge hinzufügen<\/h2>\n
Um die Reihenfolge für Datensätze festzulegen, benötigen wir natürlich ein entsprechendes Feld. Dieses nennen wir Position <\/b>und fügen es einfach der betroffenen Tabelle, in diesem Fall tblArtikel<\/b>, als Feld mit dem Datentyp Zahl <\/b>hinzu (siehe Bild 1). Hier passen wir allerdings noch die Feldgröße auf Single<\/b> an, damit wir auch Dezimalzahlen eingeben können.<\/p>\n
![\"Feld](\"..\/fileadmin\/_temp_\/2018_03\/pic_1129_001.png\")
<\/p>\n
Bild 1: Feld für das Einstellen der Reihenfolge<\/span><\/b><\/p>\n Die Daten wollen wie in einem Unterformular in der Datenblattansicht anzeigen. Dazu erstellen wir zunächst ein neues Unterformular und fügen diesem eine Abfrage als Datenherkunft hinzu, welche alle Felder der Tabelle tblArtikel<\/b> liefert, und zwar sortiert nach dem Feld Position <\/b>(siehe Bild 2).<\/p>\n Bild 2: Datenherkunft für das Unterformular<\/span><\/b><\/p>\n Danach können wir dem Unterformular die Felder der Datenherkunft zuweisen, allerdings in einer ganz bestimmten Reihenfolge: Das Feld Position <\/b>greifen wir zuerst aus der Feldliste heraus und fügen es oben im Formularentwurf ein.<\/p>\n Erst danach ziehen wir die übrigen Felder aus der Feldliste unterhalb des Feldes Position <\/b>in das Zielformular (siehe Bild 3).<\/p>\n Bild 3: Hinzufügen der Felder zum Unterformular<\/span><\/b><\/p>\n Dadurch werden die Felder in der Datenblattansicht gleich in der gewünschten Reihenfolge angezeigt, nämlich mit dem Feld Position <\/b>an erster Stelle.<\/p>\n Legen Sie nun noch die Eigenschaft Standardansicht <\/b>auf den Wert Datenblatt <\/b>fest und speichern Sie das Formular unter dem Namen sfmArtikelMitReihenfolge<\/b>. Schließen Sie das Formular anschließend.<\/p>\n Danach erstellen Sie das Hauptformular und speichern es unter dem Namen frmArtikelMitReihenfolge<\/b>. Ziehen Sie dann das Unterformular aus dem Navigationsbereich von Access in den Entwurf des neu angelegten Hauptformulars.<\/p>\n Richten Sie das Unterformular so aus, dass das Ergebnis wie in Bild 4 aussieht. Nun können Sie noch die Eigenschaften Horizontaler Anker <\/b>und Vertikaler Anker <\/b>des Unterformular-Steuerelements auf die Werte Beide <\/b>einstellen, damit dieses seine Größe gemeinsam mit dem Hauptformular ändert.<\/p>\n Bild 4: Unterformular zum Hauptformular hinzufügen<\/span><\/b><\/p>\n Interessant ist, was geschieht, wenn Sie das Formular nun in der Formularansicht öffnen, ohne zuvor die Werte des Feldes Position<\/b> zu füllen. Die Datensätze werden willkürlich sortiert – und zwar noch nicht einmal nach dem Feld mit dem Primärindex (ArtikelID<\/b>). Das Ergebnis sieht dann zunächst wie in Bild 5 aus.<\/p>\n Bild 5: Ohne Werte liefert das Feld Position eine willkürliche Sortierung.<\/span><\/b><\/p>\n Nun fügen wir dem Hauptformular eine Schaltfläche hinzu, mit der wir die Reihenfolge der Datensätze aktualisieren können. Diese Schaltfläche nennen wir cmdReihenfolgeAktualisieren<\/b>. <\/p>\n Für die das Ereignis Beim Klicken <\/b>der Schaltfläche hinterlegen wir die Prozedur aus Listing 1. Diese Prozedur erstellt zunächst ein Recordset auf Basis der Tabelle tblArtikel<\/b>, wobei diese die Datensätze aufsteigend nach den Feldern Position <\/b>und ArtikelID <\/b>sortiert. Danach durchläuft sie alle Datensätze der Tabelle in einer Do While<\/b>-Schleife.<\/p>\n Listing 1: Initiales Einstellen der Reihenfolge<\/span><\/b><\/p>\n Hier versetzt sie den aktuellen Datensatz zunächst mit der Edit<\/b>-Methode in den Bearbeitungszustand, stellt dann das Feld Position <\/b>auf den Wert der Eigenschaft AbsolutePosition <\/b>des Datensatzzeigers plus ein ein (AbsolutePosition <\/b>ist 0-basiert) und speichert den Datensatz mit der Update<\/b>-Methode. Danach werden die übrigen Datensätze in der Do While<\/b>-Schleife auf die gleiche Weise bearbeitet. Die letzte Anweisung der Prozedur aktualisiert die im Unterformular angezeigten Daten, die dann in der soeben festgelegten Sortierung erscheinen. Da das Feld Position <\/b>zuvor noch keine Werte aufwies, erfolgt die Sortierung in diesem Fall ausschließlich nach den Werten des Primärschlüsselfeldes ArtikelID<\/b>.<\/p>\n Nun soll der Benutzer eine einfache Möglichkeit erhalten, für einen neuen Datensatz direkt über das Feld Position <\/b>an der gewünschten Stelle einzufügen. Nun ist es unter Access ja nicht möglich, neue Datensätze an beliebiger Stelle einzufügen, denn der neue, leere Datensatz ist immer der letzte ganz unten.<\/p>\n Durch unsere Vorbereitung kann der Benutzer jedoch nun einen neuen Datensatz eingeben und für diesen durch einen geeigneten Wert für das Feld Position <\/b>nach dem Speichern an der richtigen Stelle einsortieren. Im Beispiel aus Bild 6 geben wir beispielsweise den Wert 1,5 <\/b>für das Feld Position <\/b>ein, weil wir den Datensatz zwischen dem ersten und zweiten vorhandenen Datensatz einsortieren wollen.<\/p>\n Bild 6: Der neue Datensatz mit Position 1,5 …<\/span><\/b><\/p>\n Nach dem Speichern des Datensatzes und dem anschließenden Betätigen der Schaltfläche Reihenfolge aktualisieren <\/b>landet der Datensatz tatsächlich an der gewünschten Stelle (siehe Bild 7).<\/p>\n Bild 7: … landet zwischen dem vorherigen ersten und zweiten Datensatz.<\/span><\/b><\/p>\n Nun wollen wir diese Lösung noch so verfeinern, dass der Benutzer den Datensatz nur noch speichern muss und der Datensatz dann automatisch an die gewünschte Stelle verschoben wird. Dazu fügen wir die Anweisungen, die sich bisher in der Prozedur cmdReihenfolgeAktualisieren_Click <\/b>befanden, in der Ereignisprozedur ein, die durch das Ereignis Nach Aktualisierung <\/b>des Unterformulars ausgelöst wird.<\/p>\n Die Ereignisprozedur sieht dann wie in Listing 2 aus. Sie führt grundsätzlich die gleichen Schritte durch wie die zuvor beschriebene Ereignisprozedur – mit dem Unterschied, dass sie gleich nach der Eingabe des neuen Datensatzes ausgeführt wird.<\/p>\n <\/p>\n Listing 2: Einstellen der Reihenfolge nach dem Update eines Datensatzes<\/span><\/b><\/p>\n Und es gibt noch einen weiteren Einsatzzweck: Sie können nämlich auch die Position vorhandener Datensätze durch Einstellen des Wertes für das Feld Position <\/b>ändern. Wenn Sie etwa den Datensatz an der zweiten Position auf die dritte Position verschieben wollen, sodass der dritte Datensatz auf die zweite Position rutscht, geben Sie für das Feld Position <\/b>des zweiten Datensatzes einfach einen Wert ein, der zwischen den Werten des Feldes Position<\/b> für die Datensätze der dritten und der vierten Position liegt (siehe Bild 8).<\/p>\n Bild 8: Verschieben des Datensatzes von der zweiten Position auf die dritte Position<\/span><\/b><\/p>\n Nun kann es natürlich auch einmal vorkommen, dass Sie einen Datensatz aus der Liste entfernen möchten.<\/p>\n In diesem Fall sollen die Positionen natürlich direkt nach dem Löschen angepasst werden. Dazu benötigen wir entsprechende Ereignisprozeduren, die nach dem Löschen von Datensätzen ausgelöst werden.<\/p>\n Im Beitrag Löschen in Formularen: Ereignissej <\/b>(www.access-im-unternehmen.de\/1128<\/b>) schauen wir uns im Detail an, welche Ereignisprozeduren am Löschen von Daten aus Formularen beteiligt sind und wie Sie diese für eigene Zwecke nutzen können. Hier wollen wir dafür sorgen, dass nach dem Löschen eines oder mehrerer Datensätze ebenfalls die erneute Aktualisierung der Werte im Feld Position <\/b>ausgelöst wird. Dazu benötigen wir ein paar Ereignisprozeduren im Unterformular.<\/p>\n Wir wollen in jedem Fall berücksichtigen, dass der Benutzer auf dem Rechner die Einstellung der Access-Option Bestätigen|Datensatzänderungen <\/b>beeinflussen kann. Ist diese aktiviert, soll die Meldung auch angezeigt werden, falls nicht, soll diese nicht erscheinen.<\/p>\n Wenn die Datensatzänderungen ohne Meldung angezeigt werden sollen, wird allerdings auch nicht das Ereignis Nach Löschbestätigung <\/b>ausgelöst, in der wir genau die Anweisungen schreiben möchten, die nach dem Löschen den Inhalt des Feldes Status <\/b>für alle verbleibenden Datensätze aktualisieren wollen. Das prüfen wir eingangs und schreiben das Ergebnis in die Variable bolConfirmRecordChanges<\/b>:<\/p>\n Beim Laden des Unterformulars prüfen wir den Wert der Option Bestätigen|Datensatzänderungen <\/b>und tragen diesen in bolConfirmRecordChanges <\/b>ein. Außerdem aktivieren wir die Option, wenn diese nicht aktiviert ist, denn wir wollen ja, dass das Ereignis Nach Löschbestätigung <\/b>feuert:<\/p>\n Bevor wir das vergessen, legen wir die Prozedur für das Ereignis Beim Entladen <\/b>an und stellen dort die Option Bestätigen|Datensatzänderungen <\/b>wieder auf den alten Wert aus der Variablen bolConfirmRecordChanges <\/b>ein:<\/p>\n Dann kümmern wir uns um die Anzeige eventueller Meldungen, die durch Datensatzänderungen und -löschungen hervorgerufen werden. Wenn der Benutzer Bestätigen|Datensatzänderungen <\/b>auf seinem Rechner aktiviert hat, sollen die Meldungen erscheinen, sonst nicht. Wir haben an dieser Stelle jedenfalls in der Ereignisprozedur Beim Laden <\/b>die Anzeige der Meldungen aktiviert. Damit diese nicht erscheint, wenn der Benutzer die Meldungen nicht sehen will, füllen wir die Prozedur, die durch das Ereignis Vor Löschbestätigung <\/b>ausgelöst wird, wie folgt:<\/p>\n Die Prozedur prüft anhand von bolConfirmRecordChanges<\/b>, ob der Benutzer die Bestätigung der Datensatzänderungen aktiviert hat.<\/p>\n Falls nicht, sorgen wir mit Response = acDataErrContinue <\/b>dafür, dass diese auch nicht erscheint, obwohl wir die Anzeige der Meldungen eigentlich aktiviert haben.<\/p>\n Nun kommt der interessante Teil – die Aktualisierung der Werte des Feldes Position<\/b>. Da wir diesen Vorgang nun nicht mehr nur beim Hinzufügen und Aktualisieren eines Datensatzes, sondern auch beim Löschen auslösen wollen, nehmen wir die notwendigen Anweisungen zunächst aus der Ereignisprozedur Form_AfterUpdate <\/b>heraus und tragen diese in eine eigene Prozedur ein (siehe Listing 3).<\/p>\n Listing 3: Positionen aktualisieren in einer eigenen Prozedur<\/span><\/b><\/p>\n Den ersten Aufruf dieser Prozedur müssen wir nun natürlich in die Ereignisprozedur Form_AfterUpdate <\/b>eintragen, der wir die entsprechenden Zeilen entnommen haben:<\/p>\n Außerdem fügen wir den Aufruf der Prozedur PositionenAktualisieren <\/b>noch in die Ereignisprozedur Form_AfterDelConfirm <\/b>ein:<\/p>\n Damit haben wir nun ein rundes Paket, welches die Reihenfolge nicht nur beim Hinzufügen eines Datensatzes oder beim ändern des Feldes Position <\/b>anpasst, sondern auch noch beim Löschen eines Datensatzes.<\/p>\n Fehlt noch die Möglichkeit, gleich mehrere Datensätze gleichzeitig an die gewünschte Stelle zu verschieben. Hier ergibt sich das Problem, dass wir zwar mehrere Datensätze markieren können, aber wenn wir dann auf das Feld Position <\/b>eines der Datensätze klicken, hebt Access die Markierung wieder auf.<\/p>\n Also fügen wir dem Hauptformular eine Schaltfläche namens cmdVerschieben <\/b>hinzu, welche eine InputBox <\/b>anzeigt, über die der Benutzer die Zielposition eingeben kann. Anschließend soll die Ereignisprozedur, die durch die Schaltfläche aufgerufen wurde, die markierten Datensätze an der gewünschten Stelle verschieben.<\/p>\n Das Unterfangen ist allerdings nicht ganz so einfach. Wir können mit den beiden Eigenschaften SelTop <\/b>und SelHeight <\/b>ermitteln, welche Zeilen im Datenblatt der Benutzer markiert hat.<\/p>\n Wenn wir dies allerdings in der Ereignisprozedur erledigen wollen, die durch die Schaltfläche cmdVerschieben <\/b>ausgelöst wird, haben wir ein Problem: Sobald wir auf die Schaltfläche klicken, wird der Fokus nämlich vom Unterformular auf die Schaltfläche im Hauptformular verschoben und damit hebt Access auch die Markierung im Unterformular auf.<\/p>\n Wir müssen also ein wenig tricksen. Dazu legen wir zwei Variablen im Kopf des Klassenmoduls des Hauptformulars, also in Form_frmArtikelMitReihenfolge<\/b>, an:<\/p>\n Diese füllen wir, wenn das Ereignis Beim Verlassen <\/b>des Unterformulars ausgelöst wird. Zu diesem Zeitpunkt ist die Markierung noch vorhanden, wir können diese also wie folgt auslesen und in die beiden Variablen schreiben:<\/p>\n Damit kommen wir zu der Prozedur aus Listing 4. Hier nutzen wir einige DAO-Techniken, um unser Vorhaben umzusetzen. Dabei ermitteln wir zunächst die Zielposition per InputBox <\/b>und speichern diese in sngPosition<\/b>. Dann öffnen wir ein Recordset auf Basis der Tabelle tblArtikel<\/b>. Diese durchlaufen wir nicht per Do While<\/b>-Schleife, sondern nur die zu verschiebenden Datensätze in einer For…Next<\/b>-Schleife über alle Werte vom Index des ersten markierten Artikels bis zum letzten.<\/p>\n Listing 4: Einstellen der Reihenfolge für mehrere Datensätze gleichzeitig<\/span><\/b><\/p>\n Dabei stellen wir den Wert des Feldes Position <\/b>auf einen Wert ein, der dem Wert aus sngPosition<\/b> plus einem Hundertstel der aktuellen Zählervariablen l <\/b>geteilt durch 1000 <\/b>erhält. Wenn der Benutzer also beispielsweise als Position 1,1 <\/b>eingibt, erhalten zwei markierte Datensätze die Positionswerte 1,101 <\/b>und 1,102<\/b>.<\/p>\n Dies ist nur der erste Teil. Danach nutzen wir eine relativ selten verwendete Möglichkeit von DAO, nämlich das Festlegen der Sortierkriterien für ein DAO-Recordset mit der Sort<\/b>-Methode und der Angabe des Sortierausdrucks (hier Position, ArtikelID<\/b>) und weisen das bestehende Recordset aus der Variablen rst<\/b> erneut der Variablen rst <\/b>zu (im Gegensatz zum herkömmlichen öffnen eines Recordsets ohne Angabe der Datenherkunft und Parametern wie dbOpenDynaset<\/b>).<\/p>\n Anschließend durchlaufen wir wie in den vorherigen Beispielen das komplette Recordset, das nach dem Inhalt des Feldes Position <\/b>sortiert ist und beispielsweise Werte wie 1<\/b>, 1,101<\/b>, 1,102<\/b>, 2<\/b>, 3<\/b>, … enthält. Dabei stellen wir den Inhalt des Feldes Position <\/b>wieder auf ganze Zahlen ein, in diesem Fall also 1<\/b>, 2<\/b>, 3<\/b>, 4<\/b>, 5<\/b> …<\/p>\n Dieser Teil des Beispiels sieht dann in Aktion wie in Bild 9 aus. Hier sehen Sie eine Bildmontage, denn natürlich ist die Markierung der beiden Datensätze bereits aufgehoben, wenn die InputBox <\/b>erscheint.<\/p>\nHaupt- und Unterformular<\/h2>\n
![\"Datenherkunft](\"..\/fileadmin\/_temp_\/2018_03\/pic_1129_002.png\")
<\/p>\n![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2018_03\/pic_1129_003.png\")
<\/p>\n![\"Unterformular](\"..\/fileadmin\/_temp_\/2018_03\/pic_1129_004.png\")
<\/p>\nReihenfolge ohne Reihenfolge<\/h2>\n
![\"Ohne](\"..\/fileadmin\/_temp_\/2018_03\/pic_1129_005.png\")
<\/p>\nSchaltfläche zum Aktualisieren der Reihenfolge<\/h2>\n
Private Sub <\/span>cmdReihenfolgeAktualisieren_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblArtikel ORDER BY Position, ArtikelID\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n rst.Edit\r\n rst!Position = rst.AbsolutePosition + 1\r\n rst.Update\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\n Me!sfmArtikelMitReihenfolge.Form.Requery\r\nEnd Sub<\/span><\/pre>\nBenutzer gibt Reihenfolge vor<\/h2>\n
![\"Der](\"..\/fileadmin\/_temp_\/2018_03\/pic_1129_006.png\")
<\/p>\n![\"...](\"..\/fileadmin\/_temp_\/2018_03\/pic_1129_007.png\")
<\/p>\nReihenfolge ohne Schaltfläche<\/h2>\n
Private Sub <\/span>Form_AfterUpdate()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>lngArtikelID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblArtikel ORDER BY Position, ArtikelID\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n rst.Edit\r\n rst!Position = rst.AbsolutePosition + 1\r\n rst.Update\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\n![\"Verschieben](\"..\/fileadmin\/_temp_\/2018_03\/pic_1129_008.png\")
<\/p>\nPosition nach dem Löschen ändern<\/h2>\n
Dim <\/span>bolConfirmRecordChanges As Boolean<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n bolConfirmRecordChanges = GetOption(\"Confirm Record Changes\")\r\n If <\/span>bolConfirmRecordChanges = True<\/span> Then<\/span>\r\n SetOption \"Confirm Record Changes\", True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Unload(Cancel As Integer<\/span>)\r\n SetOption \"Confirm Record Changes\", bolConfirmRecordChanges\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_BeforeDelConfirm(Cancel As Integer<\/span>, Response As Integer<\/span>)\r\n If <\/span>bolConfirmRecordChanges = False<\/span> Then<\/span>\r\n Response = acDataErrContinue\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>PositionenAktualisieren()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>lngArtikelID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblArtikel ORDER BY Position, ArtikelID\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n rst.Edit\r\n rst!Position = rst.AbsolutePosition + 1\r\n rst.Update\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\n Me.Requery\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_AfterUpdate()\r\n PositionenAktualisieren\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_AfterDelConfirm(Status As Integer<\/span>)\r\n PositionenAktualisieren\r\nEnd Sub<\/span><\/pre>\nMehrere Datensätze verschieben<\/h2>\n
Dim <\/span>lngSelTop As Long<\/span>\r\nDim <\/span>lngSelHeight As Long<\/span><\/pre>\nPrivate Sub <\/span>sfmArtikelMitReihenfolge_Exit(Cancel As Integer<\/span>)\r\n lngSelTop = Me!sfmArtikelMitReihenfolge.Form.SelTop\r\n lngSelHeight = Me!sfmArtikelMitReihenfolge.Form.SelHeight\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdVerschieben_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>sfm As <\/span>Form\r\n Dim <\/span>l As Long<\/span>\r\n Dim <\/span>sngPosition As Single<\/span>\r\n Dim <\/span>strPosition As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n strPosition = InputBox(\"An welche Position sollen die markierten Datensätze verschoben werden\", _\r\n \"Datensätze verschieben\")\r\n If <\/span>IsNumeric(Replace<\/span>(strPosition, \".\", \",\")) Then<\/span>\r\n sngPosition = CSng(strPosition)\r\n Else<\/span>\r\n If <\/span>Len<\/span>(strPosition) > 0 Then<\/span>\r\n MsgBox<\/span> \"''''\" & strPosition & \"'''' ist keine gültige Zahl.\"\r\n End If<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n Set<\/span> sfm = Me!sfmArtikelMitReihenfolge.Form\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblArtikel ORDER BY Position, ArtikelID\", dbOpenDynaset)\r\n For l = lngSelTop To lngSelTop + lngSelHeight - 1\r\n rst.AbsolutePosition = l - 1\r\n rst.Edit\r\n rst!Position = sngPosition + (l - lngSelTop + 1) \/ 1000\r\n rst.Update\r\n Next<\/span> l\r\n rst.MoveFirst\r\n rst.Sort = \"Position, ArtikelID\"\r\n Set<\/span> rst = rst.OpenRecordset\r\n Do While<\/span> Not<\/span> rst.EOF\r\n rst.Edit\r\n rst!Position = rst.AbsolutePosition + 1\r\n rst.Update\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\n Me!sfmArtikelMitReihenfolge.Form.Requery\r\nEnd Sub<\/span><\/pre>\n![\"Verschieben](\"..\/fileadmin\/_temp_\/2018_03\/pic_1129_009.png\")
<\/p>\n