Dear fellow programmers,
Can anyone tell me why the code listed below makes the fields in my table (and thus in my continous form) go empty ?
If i fill in all the controls it works perfectly. But when i leave one control empty then all the fields will be empty :
See the screenshot below, if i hit the button "Opslaan"(wich means SAVE) then the data will not transfer from the line with the white background (these are not bound fields) to the records with the light grey bachground (continous form).

Code:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Set db = CurrentDb
Set rs = db.OpenRecordset("tblSluitSystemen", dbOpenDynaset)
rs.AddNew
rs!Soort = Me.ctrlSoort
rs!Merk = Me.ctrlMerk
rs!LengteBinnen = Me.ctrlLengteBinnen
rs!LengteBuiten = Me.ctrlLengteBuiten
rs!KnopCilinder = Me.ctrlKnopCilinder
rs!KnopZijde = Me.ctrlKnopZijde
rs!SerieNummer = Me.ctrlSerieNummer
rs!Sluitsysteem = Me.ctrlSluitsysteem
rs!UitgevenAan = Me.ctrlUitgevenAan
rs!DatumUitgegeven = Me.ctrlDatumUitgegeven
rs!KostenPlaats = Me.ctrlKostenPlaats
rs!SoortObject = Me.ctrlSoortObject
rs!Object = Me.ctrlObject
rs!Bouwdeel = Me.ctrlBouwdeel
rs!Etage = Me.ctrlEtage
rs!KamerNummer = Me.ctrlKamerNummer
rs!Historie = Me.ctrlHistorie
rs.Update
Me.ctrlSoort = Null
Me.ctrlMerk = Null
Me.ctrlLengteBinnen = Null
Me.ctrlLengteBuiten = Null
Me.ctrlKnopCilinder = Null
Me.ctrlKnopZijde = Null
Me.ctrlSerieNummer = Null
Me.ctrlSluitsysteem = Null
Me.ctrlUitgevenAan = Null
Me.ctrlDatumUitgegeven = Null
Me.ctrlKostenPlaats = Null
Me.ctrlSoortObject = Null
Me.ctrlObject = Null
Me.ctrlBouwdeel = Null
Me.ctrlEtage = Null
Me.ctrlKamerNummer = Null
Me.ctrlHistorie = Null
Any help would be greatly appreciated.