RunSQL vraagt naar een parameter

[vriese1]

Hoi,

Ik worstel al een aantal dagen met de volgende SQL query. Ik importeer een Excel-bestand, en deze wordt naar tabel weggeschreven, daarna wordt formulier geupdate met dag en tijd dat stap is voltooid (in tabel, formulier haalt gegevens uit query).
Probleem: Gegevens worden succesvol ingelezen, maar ik krijg een PopUp met tekst "Parameterwaarde opgeven" "Waar" (OK/Annuleren). Foutopsporing leidt mij naar DoCmd.RunSQL strSQL. Waarom? Wie kan mij helpen?

Public Function update_workflow(strID As Long, strFieldName As String, strValue As Boolean) As String
Dim TimeField As Variant, strSQL As String

DoCmd.SetWarnings True

Select Case UCase(strFieldName)
Case "WF_COMPLETED"
TimeField = "WF_COMPLETION_TIME"
Case "WF_CHECKED"
TimeField = "WF_CHECKED_TIME"
End Select
strSQL = " UPDATE workflow set " & _
strFieldName & "=" & strValue & _
" , " & TimeField & "= #" & Now() & "#" & _
" where wf_id = " & CStr(strID)
DoCmd.SetWarnings False

DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Function

 

[Dolfke]

Hoi ,
Als je deze foutcode krijgt kun je in het vba venster via view naar immediate window gaan

type hier eens ?StrSql

Dan kan je zien welke waarde je update en of er geen null waarden bij zijn .

Gegroet