why does that thing doesn't work??????,

[Foxie Foxster]

i made this
private sub date_afterupdate()

dim huidigeDB as database
dim rsklanten, rspunten as recordset
set huidigedb = currentdb
set reklanten= huidigeDB.openrecordset('tblleveranciers", dbopentable
set rspunten = HuidigeDB.openrecordset("qrytotaalspel", dbopendynaset

reklanten.movefirst
rsklanten.indes= "primaryKey"
rspunten.movefirst
do until rsklanten.eof()
rsklanten.seek "=", rspunten!Levid
rsklanten.edit

rsklanten!punt4 = rspunten!sumOfaanwezigpunten
rsklanten.update
rspunten.movenext
rsklanten.movenext
loop
rsklanten.close
rspunten.close

de bedoeling is met de qrytotaalspel heb ik van het veld aanwezigpunten het
totaal berekend die sumOfaanwezigpunten zie als naam

dat totaal wil ik plaatsen in tabel tblleveranciers
bij het laten lopen van dit stukje code

stop hij steeds op
run-time error 3061
to few parameters.expected 1.

deze foutmelding zegt mij niets
enfin: ik heb een tabel tblpunten met punten, ik wil daarop met een qeury
een totaal berekenen per speler van het totaal aantal punten en dit totaal
wil ik in een veld zetten van de tabel leveranciers bij de overeenkomstige
speler

ik werk er al een week op.....lukt mij niet.....
is hier iemand met dergelijke routine???

dank u....

[Danny J. Lesandrini]

I didn't get farther than the first line.

private sub DATE_afterupdate

You named your field, [Date]? Do you have, by any chance, another one
named [Number] or [Text] or [Memo]? How about [ASC] or [DESC]?

Fortunately, the VBA editor doesn't allow you to name variables with
keywords like Dim string As Integer or Dim double As Object. It
crapps out and says, "You can't do that!"

Access table designer, however, does allow you to shoot yourself in the
foot. Maybe I'm wrong, but I bet you have a column in your table named
Date and you placed that on a form as a text box, which got the name Date
with a recordsource of Date.

The way I figure it ...
Date_AfterUpdate = Tomorrow at Midnight + 1 second

--

Danny J. Lesandrini
dl*********@hotmail.com
http://amazecreations.com
"Foxie Foxster" <ve************@skynet.be> wrote in message news:3f**********************@reader3.news.skynet. be...

i made this
private sub date_afterupdate()

dim huidigeDB as database
dim rsklanten, rspunten as recordset
set huidigedb = currentdb
set reklanten= huidigeDB.openrecordset('tblleveranciers", dbopentable
set rspunten = HuidigeDB.openrecordset("qrytotaalspel", dbopendynaset

reklanten.movefirst
rsklanten.indes= "primaryKey"
rspunten.movefirst
do until rsklanten.eof()
rsklanten.seek "=", rspunten!Levid
rsklanten.edit

rsklanten!punt4 = rspunten!sumOfaanwezigpunten
rsklanten.update
rspunten.movenext
rsklanten.movenext
loop
rsklanten.close
rspunten.close

de bedoeling is met de qrytotaalspel heb ik van het veld aanwezigpunten het
totaal berekend die sumOfaanwezigpunten zie als naam

dat totaal wil ik plaatsen in tabel tblleveranciers
bij het laten lopen van dit stukje code

stop hij steeds op
run-time error 3061
to few parameters.expected 1.

deze foutmelding zegt mij niets
enfin: ik heb een tabel tblpunten met punten, ik wil daarop met een qeury
een totaal berekenen per speler van het totaal aantal punten en dit totaal
wil ik in een veld zetten van de tabel leveranciers bij de overeenkomstige
speler

ik werk er al een week op.....lukt mij niet.....
is hier iemand met dergelijke routine???

dank u....