Excel Forum

Code: Select all

Private Sub cmdResult_Click()
Dim answer(70) As String
answer(1) = "A"
answer(2) = "C"
answer(3) = "C"
answer(4) = "C"
answer(5) = "C"
answer(6) = "A"
answer(7) = "C"
answer(8) = "C"
answer(9) = "A"
answer(10) = "D"
answer(11) = "A"
answer(12) = "A"
answer(13) = "C"
answer(14) = "A"
answer(15) = "B"
answer(16) = "B"
answer(17) = "D"
answer(18) = "B"
answer(19) = "A"
answer(20) = "A"
answer(21) = "B"
answer(22) = "B"
answer(23) = "A"
answer(24) = "B"
answer(25) = "B"
answer(26) = "B"
answer(27) = "A"
answer(28) = "A"
answer(29) = "A"
answer(30) = "B"
answer(31) = "B"
answer(32) = "A"
answer(33) = "B"
answer(34) = "B"
answer(35) = "A"
answer(36) = "A"
answer(37) = "B"
answer(38) = "A"
answer(39) = "B"
answer(40) = "B"
answer(41) = "A"
answer(42) = "C"
answer(43) = "C"
answer(44) = "C"
answer(45) = "C"
answer(46) = "A"
answer(47) = "C"
answer(48) = "C"
answer(49) = "A"
answer(50) = "D"
answer(51) = "A"
answer(52) = "A"
answer(53) = "C"
answer(54) = "A"
answer(55) = "B"
answer(56) = "B"
answer(57) = "D"
answer(58) = "B"
answer(59) = "A"
answer(60) = "A"
answer(61) = "B"
answer(62) = "B"
answer(63) = "A"
answer(64) = "B"
answer(65) = "B"
answer(66) = "B"
answer(67) = "A"
answer(68) = "A"
answer(69) = "A"
answer(70) = "B"

Dim Score As Integer
Dim i As Integer
Score = 0
For i = 1 To 70
If ChoiceSelected(i) = answer(i) Then
Score = Score + 1
End If
Next
Dim strSQL As String
strSQL = "INSERT INTO tblScore(SName,Score) VALUES("
strSQL = strSQL & "'" & SName & "',"
strSQL = strSQL & "" & Score & ")"
Dim comm As New ADODB.Command
With comm
.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActivePresentation.Path & "\Score Qc.accdb" & ";Persist Security Info=False;"
.CommandText = strSQL
.CommandType = adCmdText
.Execute
End With
MsgBox ("Complete! Your score is " & Score)
ActivePresentation.SlideShowWindow.View.GotoSlide (1)
End Sub

Code: Select all

Dim strSQL As String
strSQL = "INSERT INTO tblScore(SName,Score) VALUES("
strSQL = strSQL & "'" & SName & "',"
strSQL = strSQL & "" & Score & ")"
strSQL = strSQL & "" & Folder & ")"
Dim comm As New ADODB.Command
With comm
.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActivePresentation.Path & "\Score Qc.accdb" & ";Persist Security Info=False;"
.CommandText = strSQL
.CommandType = adCmdText
.Execute
End With

Code: Select all

Dim strSQL As String
strSQL = "INSERT INTO tblScore(SName,Score, Folder ) VALUES("
strSQL = strSQL & "'" & SName & "',"
strSQL = strSQL & "" & Score & ","
strSQL = strSQL & "" & Folder & ")"
Dim comm As New ADODB.Command
With comm
.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActivePresentation.Path & "\Score Qc.accdb" & ";Persist Security Info=False;"
.CommandText = strSQL
.CommandType = adCmdText
.Execute
End With