Automatiseringsfout

[harolda1980]

Ik krijg in een code die ik eigenlijk altijd zonder enige problemen gebruik een foutmelding.
Namelijk een automatiseringsfoutmelding.



De code is:

Private Sub Documentdetails_add()
Dim rstdetail As ADODB.Recordset
Dim stringsql As String
    loadcombo_koppelingen
    Set rstdetail = New ADODB.Recordset
    stringsql = "SELECT tblinstdoc.* FROM tblinstdoc;"
    rstdetail.Open stringsql, CNNAPP, adOpenDynamic, adLockOptimistic
    rstdetail.AddNew
    rstdetail!instdoc_AT = koppelingAT
    rstdetail!instdoc_vmus = koppelingVM
    rstdetail!instdoc_extern = koppelingEX
    rstdetail!instdoc_AID = koppelingART
    rstdetail!instdoc_Prijsnw = txtprijs_nw.Value
    rstdetail!instdoc_Prijsoud = txtprijs_oud.Value
    rstdetail!instdoc_Opmerking = txttoelichting_st.Value
    rstdetail!instdoc_dt = Now
    rstdetail!instdoc_AF = 0
    rstdetail!instdoc_week = txtweek.Value
    rstdetail!instdoc_jaar = txtjaar.Value
    rstdetail!instdoc_bsnr = cbbsnr.Value
    rstdetail!instdoc_ingangsweek = txtingang.Value
    rstdetail!instdoc_title = txttitel.Value
    rstdetail.Save
    rstdetail.Close
    Set rstdetail = Nothing
End Sub

 

[harolda1980]

Gevonden. In de stringsql dienen alle te gebruiken kolommen van de tabel te worden benoemd!