How Can I Remove two random buttons

[murray83]

ok thats fine but what is the folder setup for pictures as i have tried

picture or pictures

as it faults as cant load Slovakia flag picture

sorry also rather than dp ill edit this

on my results form it dosent work as its no longer checking for Q1,Q2,Q3 etc so i changed it to

=DCount("[Correct]","TblResult","[Correct] = True" & " AND [Person] = '" & [Forms]![F_Start]![txt_UserName] & "'")

and doesnt quite work as i cleared the results and dosent add up correct

 

[murray83]

ok thats fine but what is the folder setup for pictures as i have tried

picture or pictures

as it faults as cant load Slovakia flag picture

sorry also rather than dp ill edit this

on my results form it dosent work as its no longer checking for Q1,Q2,Q3 etc so i changed it to

=DCount("[Correct]","TblResult","[Correct] = True" & " AND [Person] = '" & [Forms]![F_Start]![txt_UserName] & "'")

and doesnt quite work as i cleared the results and dosent add up correct

i have managed to fix the flag issue ater a long google found out i was supposed to put the path to the image in the table

but if you can help with the final score that would be great

 

[JHB]

Here is the database.

 

[murray83]

Here is the database.

amazing thank you, that is also a lot less code in the dcount one thing i have noticed from the attached you can see as well

that if you even give the correct answer as i was doing it puts the wrong choice ??

 

[JHB]

..
that if you even give the correct answer as i was doing it puts the wrong choice ??

Sorry - I don't know what you mean, can you clarify?

 

[murray83]

OK

after i had completed the quiz and asnwerd each right( as i set the questions) as wanted to see add it all up to grand total

but was only showing 2 right and then when i checked the tblresult it was showing choices i hadnt picked

 

[JHB]

Is it running okay now?
Else explain how you get a wrong result, (step by step), so I can test it!

 

[murray83]

OK step by step with photos as well

I open the database as the end user would no holidng shift or anything

so i enter my name, for this was joe blogs

and choose set 1 for questions and then start and go through each question and as you can see from each picture i got each one right ( clever old me )

but then when i get to the results it only said i had got 2 right

so then i went to the admin and checked the table and as you can see this is what has been stored ?

 

[murray83]

extra pics as 5 is the max

 

[JHB]

Okay, now I understand, when I do a test and get all right, then the table shows all correct.
Please post the database back, I'll see what the problem is, (posted back because I can't reproduce the problem).

 

[murray83]

of course here you go

 

[JHB]

The problem is that you've change the code in Sub RegisterChoice.
So you call next question before the result get saved, (afterwards you save the result but with wrong data)!
Mark with red is what you've put in.

Private Sub RegisterChoice(TheChoise As Control)
  Dim x As Integer
  'Find out if a choise is right or wrong, show a message
  If TheChoise.Tag Then
    MsgBox ("Well Done, That Is Correct!")
[B][COLOR=Red]    RememberQuestionNo = RememberQuestionNo + 1
    Call GetQuestion
[/COLOR][/B]  Else
    MsgBox ("Sorry, That Is NOT Correct!")
[B][COLOR=red]    RememberQuestionNo = RememberQuestionNo + 1
    Call GetQuestion
[/COLOR][/B]  End If
  'Save the choise and other relevant data
  ...
End Sub

So all in all clear it doesn't compose the right result.
Put the 2 codelines you've added to the very end of the sub, that will do it.

 

[murray83]

trust me to try and be cleaver and go and break it

but thanks a lot for your help

 

[JHB]

You're welcome, good luck with the quiz!
Just one point, I would store the attachment to a question, either in same directory or in a sub directory to the database/question and then find/calculate the location by code, instead of storing the whole path in the table. Because it would be more flexible!

 

[murray83]

ok ta for that one last thing i promise on this subject

when you open the database in the drop down box where you select the question set it states number 2 as well as 1

but i have no number 2 ( no laughing back there )

 

[JHB]

In the form F_Start OnOpen event, you can set it to 1 or remove the code line:

Private Sub Form_Open(Cancel As Integer)
...
  [B][COLOR=Red]Me.QuestionRoundNo = 2[/COLOR][/B]
End Sub

 

[murray83]

Been a while but just wheeled this out and some one asked could it be made so that the questions move around.

not as in bounce around the screen, but as in the right questions isn't always in the same place

current version attached, also i haven't implemented the function suggested by JHB about storing of attachments for the flags ( ill do this soon )

 

[The_Doc_Man]

Add another column with data type SINGLE and load four random values generated at the time the question is chosen. Display the questions in the order of the random values.

 

[murray83]

Add another column with data type SINGLE and load four random values generated at the time the question is chosen. Display the questions in the order of the random values.

OK that sounds like a simple solution just a few questions

would the code look something like this ( pusdo for now don't judge )

when you press start, single in question table equal rndm, select choise in descending order on SIngle

 

[The_Doc_Man]

That seems to be the idea I was heading for. Just remember, this would be a different random number than would be used for the "remove two numbers randomly" situation. The good news is that a SINGLE is only 4 bytes per record, fairly cheap in terms of storage and unlikely to put a strain on anybody's computer for processing.