tabel aanvullen met nummers

[arnoderuig]

Ik heb een tabel waarin zich gegevens bevinden ten behoeve van de opmaak van facturen. Deze is ontstaan uit een query. Er is echter één gegeven dat nog niet is ingevuld en dat is een opvolgend factuurnummer. Het eerst te gebruiken factuurnummer moet worden gehaald uit een veld (vEersteFactuurnr) binnen een formulier (frmProcFacturen). Hoe krijg ik voor elkaar dat de tabel record voor record wordt gewijzigd met een oplopend factuurnummer te beginnen met het nummer uit het eerder genoemde veld.

 

[Bartuls]

Via een recordset.

voorbeeldje

Function wijzigen_in_tabel()
Dim db As Database, r As Recordset
Set db = CurrentDb
Set r = db.OpenRecordset("tblVakken", dbOpenTable)
Do Until r.EOF
r.Edit
r![vak_omschrijving] = UCase(r![vak_omschrijving])
r.Update
r.MoveNext
Loop
r.Close
db.Close
End Function

 

[arnoderuig]

Bartuls,

Hier kan ik wel wat mee. Dank voor je wel zeer snelle reactie.

Groet,
Arno.