records toevoegen

[Basbrommer]

Hallo,

Graag wil ik a.d.h.v. een procedure records toevoegen. Via een toevoegquery kom ik er wel uit maar met een procedure kan ik hem automatiseren. Kan iemand mij helpen om hiervan een procedure te maken?

De toevoegquery ziet zo uit:
INSERT INTO presentie (roosterid, dagdid)SELECT rooster.roosterid, rooster.dagdid FROM rooster WHERE (((rooster.gestopt)=No))

Groeten Bas

 

[Guus2005]

zet in een module:

Public sub InsertIntoTable()

  dim strSql as strong

  strSql="INSERT INTO presentie (roosterid, dagdid)SELECT rooster.roosterid, rooster.dagdid FROM rooster WHERE (((rooster.gestopt)=No))"

  currentdb.execute strSql

end sub

 

[Basbrommer]

Het is gelukt. Bedankt Guus.