Record voorzien van volgnummer.

Status
Niet open voor verdere reacties.

a1mat

Gebruiker
Lid geworden
13 jul 2001
Berichten
208
Geachte Lezer
Ik heb een tabel van 200 namen.Met een selectiequery maak ik een selectie van b.v. 20 namen die aan een bepaalde voorwaarde voldoen.
Als ik die namen in de query oproep, zou ik gaarne zien dat ze automatisch van een volgnummer 1 t/m 20 voorzien zijn.Bij b.v.30 namen moet dit 1 t/m 30 zijn.Van deze query wil ik later een rapport maken, en in dat rapport is dan belangrijk om het aantal namen te weten.
Is dit mogelijk en hoe zou ik dit dan moeten doen?
Kan ik in de query een kolom VOLG Nr aanbrengen met een bepaald criteria, zodat er een volgnummer verschijnt?
Kan iemand mij verder helpen?

Bij voorbaat dank
Met vriendelijke groet,
Mathieu
 
Ik heb het wel eens gezien op internet maar ben het nu even kwijt.

Je kan een select query maken met een dummy veld:
Code:
strSql = "select '' as Regelnummer, * from table1"
en daarna een recordset openen met deze query, er door lopen
Code:
do while not rst.eof
  rst.edit
  rst.fields(0)=intTeller
  rst.update
  intTeller=intTeller+1
loop
daarna kan je de recordset (met regelnummer) gebruiken om verder mee te werken.

succes!
 
Hallo Guus en andere Lezers
Bedankt voor je oplossing,maar helaas gaat mij dit te ver.Daar kom ik niet uit met mijn beperkte Access kennis.
Maar mag ik de vraag wat eenvoudiger maken.Het gaat er mij om, dat ik in het uiteindelijke rapport zie, hoeveel records staan er in .Dus het aantal namen.
Bestaat er niet zoiets als een RECORDTELLER ,die ik in het rapport kan maken en hoe moet dat dan?
Wie kan mij verder helpen?

Mijn dank
Mathieu
 
Record voorzien van volgnummer

Hallo Guus
Jouw antwoord is voor mij wel erg kort door de bocht.Kun je mij niet eens precies vertellen hoe ik dit moet doen, want Dcount zegt mij niets en ik vind de kreet ook niet in het dikke handboek van Access.
Bij voorbaat dank

Mathieu
 
tik in: dcount en daarna F1, je krijgt het volgende voorbeeld.
Code:
Public Function OrdersCount(ByVal strCountry As String, _
                            ByVal dteShipDate As Date) As Integer

    OrdersCount = [B]DCount[/B]("[ShippedDate]", "Orders", _
                  "[ShipCountry] = '" & strCountry & _
                  "' AND [ShippedDate] > #" & dteShipDate & "#")
End Function
 
misschien helpt dit ook wel :confused:

ik heb bij mijn rapporten het volgende gebruikt =+1


Groet,
Access beginner
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan