Replies

Thanks

Thanks KT

CCS– yes CSS I meant.
Thanks for the tip Ivan

I found already some guestbook-sites and cgi scripts
B.T.W. The guestbook template from FP2000, is this one only working on a server with Frontpage Extensions?

Thanks again Leif (and I’ll thank you allready for the upcomming answers )

I looked at it myself, and yes this is also something I need to study more, great info

(ps, just follow me, and you will see the most srtangest places)

Thanks Mary

Hello Leif,
What should I do without you

Thanks Leif,

Bart,
I’m teaching MS Office programs to endusers and Helpdesk people.
(zie ook je private mail voor meer info)

Thats’s okay Bart, I’m arealy glad that you help me. I’m learning a lot.

Thanks for the instructions. It is working good now.
Keep up the good work.

When I debug te code (return to the code screen after the error) it highlights te following line:

Set rsold = db.OpenRecordset(“EHC”, dbOpenSnapshot)

Okay Bert,
I’m doing this for the firts time now (realy working with VBA) and have modified your listing as follows:

Dim db As Database
Dim rsold As Recordset
Dim rsnew As Recordset
Set rsold = db.OpenRecordset(“EHC”, dbOpenSnapshot)
Set rsnew = db.OpenRecordset(“RPT”, dbOpenDynaset)
With rsold
.MoveFirst
While Not .EOF
rsnew.AddNew
rsnew![ID] = ![ID]
Select Case ![Q1]
Case 0
rsnew![S0] = rsnew![S0] + 1
Case 1
rsnew![S1] = rsnew![S1] + 1
Case 2
rsnew![S2] = rsnew![S2] + 1
Case 3
rsnew![S3] = rsnew![S3] + 1
Case 4
rsnew![S4] = rsnew![S4] + 1
Case 5
rsnew![S5] = rsnew![S5] + 1

End Select
rsnew.Update
.MoveNext
Wend
End With
Set rsnew = Nothing
Set rsold = Nothing

When I run the code I get en error:
Objectvariabele of blokvariabele With is niet ingesteld (Fout 91)
(Nederlandese versie!)

Could you again help me?

I had the feeling that only programming will give me the solution.
Thanks Bart, I will give it a try and let you know

Your solution is showing me per Q the values, but I need to see the values per ID

So for ID 1 I need to know how many times I have a 0 in Q1-Q12, and a 1 in Q1-Q12 and a 2…
And the same foor all other ID’s
e.g.
TBL:
ID Q1 Q2 Q3 Q4 Q5 Q6 Q7 Q8 Q9 Q10 Q11 Q12
01 0 3 1 0 5 0 5 3 2 0 1 1
02 0 3 5 5 3 0 0 4 5 0 0 3
03 0 4 4 5 5 4 4 4 4 4 5 4
…

RPT:
————————–
ID 0 1 2 3 4 5
————————–
01 4 3 1 2 0 2
02 5 0 0 3 1 3
03 1 0 0 0 8 3
…

I hope this example makes it all clear Bart?

This is not doing the trick I think Bart.
Maybe I was not clear.
I have 12 questions fields (Q1 – Q12). In every field there is a score from 0 to 5
In the list it must show per ID how many zeros there where (all the questions), how many ones, how many twos, …

(In Excel I Can do it with a CountIf() function)