veld in nieuw record automatisch laten oplopen en invullen

[Guess Who]

hoi,

Ik wil onze tekeningen bijhouden in een access-bestand. Alle tekeningen hebben een uniek nummer. Hiervoor zijn we begin dit jaar begonnen bij 100.000, oude nummers lopen maximaal tot 10.000.
Ik had dus een kolom "volgnummer" gemaakt. Tot zover geen probleem.

Nu willen we de oude plannen ook invoegen. Maar als we nieuwe plannen gaan invoeren moet dit steeds het hoogste gebruikte ("volgnummer" + 1) zijn.

Is het mogelijk om dit getal automatisch in te voegen als men kiest voor een nieuw record? bvb door op een knop te drukken die een nieuw record aanmaakt en atumatisch het volgnummer invult = (grootste volgnummer +1).

 

[maartenf]

dit zijn de stappen die je ze moeten doorlopen
-maak een kopie van de strctuur van de tabel
-verander in de kopie het veld volgnummer in autonummering
-maak een toevoegquery waarin je de orginele tabel toevoegd aan de kopie
-als alles er in staat, verwijder dan orginele tabel
-hernoem kopie naar orginele naam

succes

 

[Guess Who]

maartenf,

jouw oplossing werkt als het laatste nummer de hoogste is. Op dit moment worden ouden en nieuwe nummers nog door elkaar ingevuld.

Is er een manier om dit op te vangen?

 

[maartenf]

je kunt wel via vba bepalen wat de hoogste waarde is (Dmax)
krijg je zoiets
y = dmax (veld, tabel, voorwaarde)
volgnummer = y +1

 

[Guess Who]

Ik ben niet thuis in VBA

kan ik het dan gewoon schrijven in het volgende VBA-deeltje? of moet ik nog iets anders doen?


Private Sub Knop_record_toevoegen_Click()
On Error GoTo Err_Knop_record_toevoegen_Click

DoCmd.GoToRecord , , acNewRec

Exit_Knop_record_toevoegen_Click:
Exit Sub

Err_Knop_record_toevoegen_Click:
MsgBox Err.Description
Resume Exit_Knop_record_toevoegen_Click

End Sub

 

[maartenf]

Ik ben niet thuis in VBA

kan ik het dan gewoon schrijven in het volgende VBA-deeltje? of moet ik nog iets anders doen?


Private Sub Knop_record_toevoegen_Click()
On Error GoTo Err_Knop_record_toevoegen_Click

y = dmax (veld, tabel, voorwaarde)


DoCmd.GoToRecord , , acNewRec

me.volgnummer = y + 1


Exit_Knop_record_toevoegen_Click:
Exit Sub

Err_Knop_record_toevoegen_Click:
MsgBox Err.Description
Resume Exit_Knop_record_toevoegen_Click

End Sub

voeg anders maar zip bestandje bij
dan kijk ik er naar

 

[Guess Who]

Het is gelukt!

BEDANKT.

 

[maartenf]

perfect!
zet je de vraag nog op opgelost? bvd

 

[maniac2003]

Zelf ben ik ook met zoiets aan het stoeien.
Maar wat moet ik dan invullen bij voorwaarde, heeft iemand daar een voorbeeld van ?