Urgent help needed (continued)

Hi first of all thx for ur help to everyone who responded to the first part of this question (Jonathan many thanks) but now for the second part when i have added this coding (that was shown to me) in the correct place it comes up with a run time error '5' with the message of invalid procedure call or argument on this line
txtAnswer.SetFocus

the code that i have added to stop the txtbox from being writen in after the question has been typed is al followed

Private Sub txtAnswer_KeyPress(KeyAscii As Integer)
Dim Ans As Integer
''Only allow numbers, minus sign, decimal point, return key
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbkeyMinus Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then
Exit Sub
txtAnswer.Enabled = True ' To allow people to type in it again
ElseIf KeyAscii = vbKeyReturn Then
'Check answer
Ans = Val(txtAnswer.Text)
If Ans = sum Then
NumRight = NumRight + 1
lblMessage.Caption = "That's The Correct Answer!"
Else
lblMessage.Caption = "Your Answer Is Wrong The Correct Anser Is " + Format(sum, "#0")
End If
lblScore.Caption = Format(1000 * NumRight / NumProb, "##0")
cmdNext.Enabled = True
cmdNext.SetFocus
txtAnswer.Enabled = False ' To stop people typing in it
Else
KeyAscii = 0
End If
End Sub

many thanks in advanced thanks
from
mark


Comments

  • No worries ppl i managed to fix it thanks for ur help though every one who helped me
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

In this Discussion