Blöcke fortlaufend nummerieren

02/07/2008 - 09:08 von Michael Feske | Report spam
Hallo alle zusammen,
ich habe 1400 Datensàtze, dabei kommt alle 5 bis 7 felder eine neue Zahl.
jetzt sollen die Zeilen durch nummeriert werden, jedoch nur wo eine neue
Zahl auftaucht, also ungefàhr so:
001 4578
001 4578
001 4578
002 5689
002 5689

usw.

Wàre schön, wenn Ihr mir da mit einem entsprechenden Makr weiterhelfen
könntet, mit makros habe ich bisher nur sehr wenig zu tun :-)

Gruß
Micha
 

Lesen sie die antworten

#1 Thomas Kühn
02/07/2008 - 10:39 | Warnen spam
Hallo Michael,

ich habe 1400 Datensàtze, dabei kommt alle 5 bis 7 felder eine neue Zahl.
jetzt sollen die Zeilen durch nummeriert werden, jedoch nur wo eine neue
Zahl auftaucht, also ungefàhr so:
001 4578
001 4578
001 4578
002 5689
002 5689

usw.

Wàre schön, wenn Ihr mir da mit einem entsprechenden Makr weiterhelfen
könntet, mit makros habe ich bisher nur sehr wenig zu tun :-)



Mit einem Makro wirst Du da nicht wirklich weiterkommen.

Zur Lösung gibt es mehrere Ansàtze. Hier mal einer davon:

Tabelle:
Feld1 Feld2
4578
4578
4578
5689
5689

Function a()

Dim db as DAO.Database
Dim rs as DAO.Recordset

Dim strSQL as String
Dim iCounter as Integer
iCounter = 1
set db = CurrentDB
strSQL = "SELECT DISTINCT Feld2 FROM Tabelle"
Set rs = db.OpenRecordset(strSQL)
While Not rs.EOF
strSQL = "UPDATE Tabelle Set Feld1 = " & iCounter & _
" WHERE Feld2 = " & rs.Fields(0)
db.Execute strSQL, dbFailOnError
iCounter = iCounter + 1
rs.MoveNext
Wend
rs.Close
set rs = Nothing
End Function

Tabelle nun:
Feld1 Feld2
1 4578
1 4578
1 4578
2 5689
3 5689

Über Format(Feld1, "000") kommst zu zu deinem Ergebnis.

Gruß Thomas

http://www.thomas-kuehn.de

Ähnliche fragen