veld in nieuw record automatisch laten oplopen en invullen

Status
Niet open voor verdere reacties.

Guess Who

Gebruiker
Lid geworden
7 nov 2006
Berichten
54
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).
 
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
 
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?
 
je kunt wel via vba bepalen wat de hoogste waarde is (Dmax)
krijg je zoiets
y = dmax (veld, tabel, voorwaarde)
volgnummer = y +1
 
Ik ben niet thuis in VBA :confused:

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
 
Ik ben niet thuis in VBA :confused:

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
 
Laatst bewerkt door een moderator:
Zelf ben ik ook met zoiets aan het stoeien.
Maar wat moet ik dan invullen bij voorwaarde, heeft iemand daar een voorbeeld van ?
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan