Ik tracht nieuwe velden aan een tabel toe te voegen op basis een variabele en doe dit zo. Ik krijg telkens twee foutmeldingen:
De eerste: Deze eigenschap of methode wordt niet ondersteund door dit object
De tweede: Objectvariabele of blokvariabele With is niet ingesteld
Hier de code
De eerste: Deze eigenschap of methode wordt niet ondersteund door dit object
De tweede: Objectvariabele of blokvariabele With is niet ingesteld
Hier de code
Code:
Dim db As Object
Dim rsDomein As Object
Dim rsLeerlingen As Object
Dim fldNieuw As Object
Dim txtDomeinNaam As String
Dim txtDomeinNaami As String
Set db = CurrentDb
Set rsDomein = db.OpenRecordset("tblDomein")
'ga dan naar het eerste record
rsDomein.MoveFirst
For iBeginTellen = 1 To iAantalRecords 'en hier het aantal velden bijmaken
txtDomeinNaam = rsDomein!DDomeinNaam
txtDomeinNaami = "DomeinNaam" & iBeginTellen
Set fldNieuw = rsLeerlingen.CreateField(txtDomeinNaami, dbText)
rsLeerlingen.Fields.Append fldNieuw
rsDomein.MoveNext
Next