flyingdavid
Nieuwe gebruiker
- Lid geworden
- 24 apr 2012
- Berichten
- 4
Hi,
Wie o wie kan mij helpen met de bijgevoegde foutmelding. Ik heb onderstaande code onder de knop zitten. Ik zal ergens (waarschijnlijk iets heels stoms) fout doen... maar ik kom er niet achter wat.

Wie o wie kan mij helpen met de bijgevoegde foutmelding. Ik heb onderstaande code onder de knop zitten. Ik zal ergens (waarschijnlijk iets heels stoms) fout doen... maar ik kom er niet achter wat.

Code:
Private Sub cmdAdd_Click()
'add data to table
CurrentDb.Execute "INSERT INTO T_CLIENT(ARNAAM, VRNAAM, AANHEF, VR_LETTERS, ADRES, WOONPLAATS, POSTCODE, LAND, GESLACHT, GEB_DSTAMP, TEL_NO1, TEL_NO2, BSN, EMAIL, VERZEKERING, HUISARTS, ANTI_CONCEPTIE, MEDICATIE, DIABETES, ALLERGIEN, VOORGESCHIEDENIS, SPORT, BEROEP, START_GEWICHT, PAL, STREEF_GEWICHT, LENGTE, TAILLE, OPMERKINGEN) " & _
" VALUES(" & Me.ARNAAM & _
"', '" & Me.VRNAAM & "', '" & Me.AANHEF & "', '" & Me.VR_LETTERS & _
"', '" & Me.ADRES & "', '" & Me.WOONPLAATS & "', '" & Me.POSTCODE & _
"', '" & Me.LAND & "', '" & Me.GESLACHT & "', '" & Me.GEB_DSTAMP & _
"', '" & Me.TEL_NO1 & "', '" & Me.TEL_NO2 & "', '" & Me.BSN & _
"', '" & Me.EMAIL & "', '" & Me.VERZEKERING & "', '" & Me.ANTI_CONCEPTIE & _
"', '" & Me.MEDICATIE & "', '" & Me.DIABETES & "', '" & Me.ALLERGIEN & _
"', '" & Me.VOORGESCHIEDENIS & "', '" & Me.SPORT & "', '" & Me.BEROEP & _
"', '" & Me.START_GEWICHT & "', '" & Me.PAL & "', '" & Me.STREEF_GEWICHT & _
"', '" & Me.LENGTE & "', '" & Me.TAILLE & "', '" & Me.OPMERKINGEN & "')"
'refresh data in list on form
T_CLIENTsubform.Form.Requery
End Sub