opnieuw nummeren

[Susann]

Hoi,

Ik maak gebruik van een functie om de regelnummers opnieuw te berekenen. Ik wil graag dat de nummer bij iedere boekstuknr opnieuw begint. Nu loopt de regelnummers door.

De functie is:
Function fPositie(id As Long)
With CurrentDb.OpenRecordset("select * from testimportautonr order by boekstuknr")
.FindFirst "id=" & id
fPositie = .AbsolutePosition + 1
End With
End Function



Indien ik een nieuw boekstuknr heb, dan moet de functie weer met regelnummer 1 beginnen.

Ik ben zelf geen VBA kenner. Daarom hoop ik dat mij iemand op helpmij kan helpen.

Susan
Iedereen fijne feestdagen en een goed begin

 

[Floor E]

Je geeft te weinig informatie. Ik kan niet zien wanneer er sprake is van een nieuw boekstuk.
Wanneer ik dat weet is het simpel te bouwen en zet je de volgende code op de plaats van "fPositie = .AbsolutePosition + 1":

if NIEUWBOEKSTUK = true then
 fPositie =  1
else
 fPositie = .AbsolutePosition + 1 
end if

 

[ReneDirks]

Wat meer informatie zou inderdaad helpvol zijn.