murray83
Games Collector
- Local time
- Today, 02:41
- Joined
- Mar 31, 2017
- Messages
- 736
Ok so quick question,
My quiz database, which we are using on site to bump up morale during this time and have a bit of inter office banter, one user has found a unique flaw, maybe in windows or how I have made the Db, but here is the what he does
"as long as he doesn’t finish the quiz (its 20 questions long) so stops at question 17, and then ctrl alt del out and close the Db he can open again and his score is added as he uses the same name"
so my question is, if some decides it’s too hard or wants to have a laugh and bump there score to 77 out of 20, how do I combat them closing the dB by using the ctrl alt del
as I already have code in place to check the name( code below ) and to make sure if or is not present, the if for login sfm005 is due to two people sharing that login and so had to do that to allow second person a chance of doing the quiz
My quiz database, which we are using on site to bump up morale during this time and have a bit of inter office banter, one user has found a unique flaw, maybe in windows or how I have made the Db, but here is the what he does
"as long as he doesn’t finish the quiz (its 20 questions long) so stops at question 17, and then ctrl alt del out and close the Db he can open again and his score is added as he uses the same name"
so my question is, if some decides it’s too hard or wants to have a laugh and bump there score to 77 out of 20, how do I combat them closing the dB by using the ctrl alt del
as I already have code in place to check the name( code below ) and to make sure if or is not present, the if for login sfm005 is due to two people sharing that login and so had to do that to allow second person a chance of doing the quiz
Code:
Dim PlayerName As TempVars
Dim QRoundNo As TempVars
If Me.txt_UserName <> "" Then 'checks wethere the persons name is in the table
If Me.txtPCLogin.Value = "SFM005.D002" Then
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblLeaderBoard WHERE Person = '" & txt_UserName & "' AND UserID = '" & txtPCLogin & "' AND QuizNo = '" & QuestionRoundNo & "' ")
Else
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblLeaderBoard WHERE UserID = '" & txtPCLogin & "' AND QuizNo = '" & QuestionRoundNo & "' ")
rs.Requery
End If
End If
If rs.recordcount < 1 Then
TempVars!PlayerName = Me.txt_UserName.Value
TempVars!QRoundNo = Me.QuestionRoundNo.Value
Me.Visible = False
DoCmd.OpenForm "frmQuestions", , , , , , Me.QuestionRoundNo
Else
MsgBox ("You Have Allready Taken Part") 'if they are says so and exits sub
txt_UserName.Value = ""
txt_UserName.SetFocus
cmd_Start.Enabled = False
Exit Sub
End If