Gleiche Datensätze zählen 1 von x

[PePan]

Hallo zusammen,

ich habe eine Tabelle in der ein Feld Auftrag heißt und bei gleichem AUftrag die Menge x vorkommen kann.
Wie schaffe ich es, das zb. bei der Menge 3, bei jedem datensatz mit der gleichen Auftragsnummer ein Feld berechnet wird, in dem
steht, 1 von 3,   2 von 3  und beim letzten 3 von 3
Access 2010.

Danke.

Friedhelm

[MzKlMu]

Hallo,
das musst Du mal genauer erklären.
Es gibt doch nur eine Feld für die Menge, wo soll denn da 1 von 3 usw. angezeigt werden? Das mit der Menge ist doch nur ein Datensatz.

[PePan]

Hallo,

ein Feld heißt Auftragsnummer  und das andere Feld heißt Menge.
Auftragsnummer              Menge          Lieferdatum
1234                                    2               31.10.12
1234                                    2               05.11.12
12345                                  3               07.11.12
12345                                  3               08.11.12
12345                                  3               09.11.12

ich hätte gerne, dass es in der Abfrage oder Bericht so dargestellt wird.


1234                             1 von 2            31.10.12
1234                             2 von 2            05.11.12
12345                           1 von 3            07.11.12
12345                           2 von 3            08.11.12
12345                           2 von 3            09.11.12


gruss
Friedhelm

[PePan]

Hallo zusammen,

ist die Frage nicht zu lösen? Hat den keiner eine Idee?
oder stehe ich im Wald und sehe die Bäume nicht.

gruss
Friedhelm

[MzKlMu]

Hallo,
Du musst einen Zähler einbauen der je Aufragsnummer zählt und das in einem separaten Feld zusammensetzen.

[PePan]

Hallo,

ich habe es so gelöst.
Obwohl mir eine Berechnung in der Abfrage besser gefallen hätte.
Function Zähler()
On Error GoTo Err_Befehl10_Click
Dim DB1 As Database, tab1 As Recordset, tab2 As Recordset, tab3 As Recordset
Set DB1 = DBEngine.Workspaces(0).Databases(0)
Set tab1 = DB1.OpenRecordset("tbl VTBS aus SAP Laufsumme")

Dim Projekt As Double
Dim Zaehler As Integer

tab1.MoveFirst
Do Until tab1.EOF
If Not Projekt = tab1.Fields("Projekt").Value Then
Zaehler = 1
Else
Zaehler = Zaehler + 1
End If
tab1.Edit
tab1.Fields("Zaehler").Value = Zaehler
tab1.Update
Projekt = tab1.Fields("Projekt").Value
tab1.MoveNext
Loop

Exit_Befehl10_Click:
Exit Function

Err_Befehl91_Click:
MsgBox Err.Description
Resume Exit_Befehl10_Click

End Function


Aber mit dem Zähler direkt in der Abfrage, bekomme ich nur einefFortlaufende Zahl zu allen Aufträgen.