find/vis gentagne poster

Dine data er jo ikke sådan helt normaliserede  ;o)
Du kunne måske:
- tilføje et ekstra felt, KundeRef.
- løbe posterne igennem i en løkke og opdatere KundeRef
- køre en sumforespørgsel, som udvælger P-posterne, grupperer på KundeRef og tæller ID'er

Det er jo netop det som er problemet, den datafil jeg arbejder ud fra, er slet ikke normaliseret ... jeg forsøger netop at skabe logiske relationer

http://www.eksperten.dk/spm/705657?Esession=32ba5f798e3e6f7368234e9450a31101

Men måske kan jeg fortsætte med den løsning jeg fik tidligere

OK. Jeg gentager min løsning. Denne gang med fuld kode:

- tilføje et ekstra felt, KundeRef.:
Giver sig selv

- løbe posterne igennem i en løkke og opdatere KundeRef:
Sub OpretKundeRef()
  Dim Rst As Recordset
  Dim Husk As Integer
 
  Set Rst = CurrentDb.OpenRecordset("KunderPartnere")
  With Rst
    Do Until .EOF
      If .Fields("Felt1") = "K" Then Husk = .Fields("ID")
      .Edit
      .Fields("KundeRef") = Husk
      .Update
      .MoveNext
    Loop
  End With
  Set Rst = Nothing
End Sub

- køre en sumforespørgsel, som udvælger P-posterne, grupperer på KundeRef og tæller ID'er:
SELECT KunderPartnere.KundeRef, Count(KunderPartnere.ID) AS AntalPartnere
FROM KunderPartnere
WHERE (((KunderPartnere.Felt1)="P"))
GROUP BY KunderPartnere.KundeRef;

Resultat:
KundeRef    AntalPartnere
1    1
3    2
6    1

OK?

Lavede en lidt anden løsning, men principperne de de samme :o)

Sagt i al venlighed: Hvis du allerede har løst problemet, bør du lukke spm. Ellers kan det jo let føles som skønne spildte kræfter her i den anden ende.  :o|

Sorry, du får point alligevel

Alt ok. Det er ikke så meget pointene, mere tiden i at sætte sig ind i opgaven og forsøge at løse den. No hard feelings ;o)

Problemet er, at jeg arbejder fra to forskellige PC'er, og jeg kunne ikke komme på nettet i formiddags :o(

Som sagt: Alt ok  ;o)

Forstår dig ... har selv løst/brugt tid på mange løsninger, som man så bagefter føler har været spildte kræfter