Te weinig parameters bij delete statement

[heartshapedboxx]

Hoi,

Ik ben bezig met het maken van een relationele database en zit met een stom probleempje. Ik heb een stuk code letterlijk uit een reader kunnen halen en de waardes verandert naar die van mij, maar access geeft steeds aan dat er 1 parameter verwacht wordt. Het gaat om dit stukje code:

Dim varItm As Variant
  
     For Each varItm In maatschappijWel.ItemsSelected
             
    CurrentDb.Execute _
              "DELETE FROM dbo_IncheckenMaatschappij " & _
              "WHERE maatschappijcode = " & maatschappijWel.ItemData(varItm)
  Next varItm

waarin maatschappijWel een listbox is. Met een beetje research ben ik tot de conclusie gekomen dat de fout bij WHERE maatschappijcode = " & maatschappijWel.ItemData(varItm) moet liggen omdat het wellicht als een stuk tekst gelezen wordt, maar het lukt me niet om het op te lossen. Vind het vrij raar want aangezien de code uit een reader komt zou je zeggen dat het wel werkt. Help?

 

[city guy]

Hi
ik denk dat je enkele quotes rond de waarde van de listbox nodig hebt. ( aangenomen dat het om tekst gaat)

"WHERE maatschappijcode = '" & maatschappijWel.ItemData(varItm) & "'"

 

[heartshapedboxx]

That did the trick, dankjewel!
Dat ik daar zelf niet aan dacht.. het valt allemaal niet mee als VBA noob

 

[city guy]

That did the trick, dankjewel!
Dat ik daar zelf niet aan dacht.. het valt allemaal niet mee als VBA noob

.. ben daar zelf vaak genoeg ingetrapt .... Zeg maar: ervaringsdeskundige

 

[heartshapedboxx]

Zoals ze altijd zeggen: van fouten leer je!

 

[ExcelAmateur]

heartshapedboxx,

Nu nog leren om de vraag als opgelost te zetten na de goede oplossing. :thumb:

De beste wensen voor 2011