Office: (Office 2007) Laufende Nummer einfügen

0815besucher · 27. Dezember 2015

Hallo
Suche eine Möglichkeit um eine fortlaufende Nummerierung in einer Abfrage oder Tabelle einzufügen. Nicht an irgend eine Id gebunden oder sonst wo.
Z.B. Einfach nur die Zahlen 1 bis 100 in eine Tabelle schreiben.

Grüße
besucher

:)

avogt_at_home · 29. Dezember 2015

Hallo,
kuckst du hier:
donkarls Access-Seiten

Gruß Andreas

0815besucher · 29. Dezember 2015

Hi
Das hab ich schon probiert.
Beim Sortieren(Nach Textfeld) ist dann die Laufende Nummer nicht in der Reihenfolge. Möchte vielleicht ein Update mit vba, dass eine Laufende Nummer erzeugt.

besucher

ebs17 · 29. Dezember 2015

Füge in Deine Tabelle ein Autowertfeld ein.

//Edit:
An NICHTS gebunden und nicht in Reihenfolge mit Sortierung X ist ein Widerspruch (sich gegensätzlich ausschließend). Bin ich alleine verwirrt?

0815besucher · 29. Dezember 2015

Hi
AutoWert hab ich.
Die Nummernreihenfolge die an nichts gebunden ist, und nur so drinnen steht, brauch ich für ein Formular mit 100 Schaltflächen, so dass der Datensatz mit Nummer 1 an Schaltfläche 1 usw. zugeordnet wird. Da ich die Datensätze nach Name sortiere, würden die Schaltflächen auch die Datensätze sortiert anzeigen, deshalb suche ich eine Möglichkeit, dass in der Tabellenspalte daneben die Zahlen 1 bis 100 stehen.

besucher

besucher

0815besucher · 29. Dezember 2015

Habe diesen Code erst mal versucht, nur leider schreibt er in alle Felder auf einmal
Es sollte von ersten zum letzten gegangen werden, und in jedem eine aufsteigende Zahl geschrieben werden.
Kann mir man da eine Hilfe geben?

Code:

Dim I As Integer
Dim sString, sString2 As Variant
Dim SQL As String
sString = 1

For I = 0 To 100 'AnzFld
sString2 = I + sString
SQL = "UPDATE ArtikelMitLfdNr SET fr = '" & sString2 & "'"
DoCmd.RunSQL SQL
Next I
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

besucher

Nouba · 29. Dezember 2015

Wenn man mitdenkt, könnte einem auch einfallen, statt der ID, das Textfeld für den Vergleich in der DonKarl'schen Version heranzuziehen.

0815besucher · 29. Dezember 2015

Also dass ist ne Sache - mit dem Textfeld
Danke an alle

Tschüß
besucher

Kyron9000 · 29. Dezember 2015

Hallo besucher,

Den Sinn muss ich mir ja nicht überlegen.

So könntest diese Artikelnummer, die bei dir ja ein String ist,
immer eine Laufnummer verpassen, auch wenn mal DS dazukommen.
Wäre auch mit Format "00000" möglich, muss aber erst eingebaut werden.
Besser wäre eine Zahl, dann könnte man mit DMax arbeiten, was sicherer wäre.
Oder, du erstellst dir eine Abfrage und machst aus dem String eine Zahl.
Ist aber jetzt mit String vorgesehen...
Code:

Option Compare Database
Option Explicit

Private Sub btnUpdate_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sSQL As String
Dim i As Integer
i = Nz(DLast("fr", "ArtikelMitLfdNr", "fr Is Not Null"), 0) + 1
sSQL = " SELECT * FROM ArtikelMitLfdNr WHERE fr Is Null"
Set db = CurrentDb()
Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
With rs
If .RecordCount = 0 Then MsgBox "Kein DS vorhanden!": Exit Sub
.MoveFirst
Do While Not .EOF
.Edit
!fr = i
.Update
.MoveNext
i = i + 1
Loop
.Close
End With
Set rs = Nothing
Set db = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2007) Laufende Nummer einfügen

Laufende Nummer einfügen

Laufende Nummer einfügen

Laufende Nummer einfügen

Laufende Nummer einfügen

Laufende Nummer einfügen - Similar Threads - Laufende Nummer einfügen

Dokumente und Blatt umbenennen

Laufende Nummer, wenn Bedingung erfüllt...

Einstiegsprobleme und laufende Nummer

Laufende Nummer Im Formular

Laufende Nummer automatisch um eins erhöhen

laufende Nummer mit Startwert

Laufende Nummer löschen...