469,621 Members | 1,678 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,621 developers. It's quick & easy.

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

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....

Nov 12 '05 #1
1 2566
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....

Nov 12 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

31 posts views Thread by lawrence | last post: by
14 posts views Thread by Anoop | last post: by
14 posts views Thread by webEater | last post: by
11 posts views Thread by =?Utf-8?B?UmF5IE1pdGNoZWxs?= | last post: by
1 post views Thread by =?ISO-8859-1?Q?Lasse_V=E5gs=E6ther_Karlsen?= | last post: by
reply views Thread by devrayhaan | last post: by
reply views Thread by gheharukoh7 | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.