SQL string works in query but not as CurrentDB.Execute "...

[Chrtalgo]

Hi!


I am trying to keep a record of movements.
I have a button that changes the yes/no button on a record in the table InnUtmeldinger. At the same time I want to keep a log of every time the status is changed on a separate table called InnUtmeldinger. This SQL seems to work from a query, but not from VBA.

The code should insert the active ID (Primary key) of the record that is being changed in the form Medlemsregister, along with todays date, into InnUtMeldinger.

currentdb.Execute "INSERT INTO InnUtmeldinger ( ID, Innmeldt ) SELECT Medlemsarkiv.ID, Date() FROM Medlemsarkiv WHERE (((Medlemsarkiv.ID)=[Forms]![Medlemsregister]![ID]));"

I am getting error 3060 "Too few parameters. Expected 1"




Any suggestions?

Run as SQL is not the option I am looking for, as it will give a warning and I don't want to turn warnings off.

[June7]

Currentdb.Execute "INSERT INTO InnUtmeldinger (ID, Innmeldt ) VALUES(" & Me!ID & ", Date())"

[Chrtalgo]

Currentdb.Execute "INSERT INTO InnUtmeldinger (ID, Innmeldt ) VALUES(" & Me!ID & ", Date())"

Love it, thank you!