De code die onder een knop hangt.
1: Als er in txtAantal geen getal is ingevuld krijg ik de melding Fout bij gegevenstypeconversie
Hoe kan ik dit voorkomen?
2: Als de regel al bestaat in de tabel geeft .addnew een foutmelding over dubbele waarden.
Hoe kan je ervoor zorgen als het record bestaat, dat dan het record aangepast wordt met .edit?
Code:
intVeldnr = 0
For x = 1 To 20
intVeldnr = intVeldnr + 1
With CurrentDb.OpenRecordset("tbl_Regels")
.AddNew
.Fields("RegelID") = Me.txtOrdernr & Me("txtArtnr" & intVeldnr)
.Fields("OrderID") = Me.txtOrdernr
.Fields("ArtikelID") = Me("txtArtnr" & intVeldnr)
.Fields("Aantal") = Me("txtAantal" & intVeldnr)
.Update
.Close
End With
Next
1: Als er in txtAantal geen getal is ingevuld krijg ik de melding Fout bij gegevenstypeconversie
Hoe kan ik dit voorkomen?
2: Als de regel al bestaat in de tabel geeft .addnew een foutmelding over dubbele waarden.
Hoe kan je ervoor zorgen als het record bestaat, dat dan het record aangepast wordt met .edit?