Estou desenvolvendo um sisteminha de provas, que sempre que um aluno digitar o número da matricula
ela vai fazer uma pesquisa no bd para verificar se o aluno já começou a prova, caso já tenha começado a prova ele irá colocar as respostas já respondidas pelo usuário.
O meu problema está na hora de fazer a consulta, pelo o pouco que conheço a consulta SQL está certa e pelo o que eu pesquisei, a forma de chamar também deveria estar certa.
Eu gostaria de saber o que está acontecendo para aparecer a seguinte mensagem:
Erro em tempo de execução '3061'
Parâmetros insuficientes. Eram esperados 3.
Código da função que chama a função "prova_anterior"
CODE
Private Sub Form_Load()
Dim matric As Integer
txtMatricula.SetFocus
txtMatricula.Text = InputBox("Digite o seu número de matricula.")
prova_anterior (CInt(txtMatricula.Text))
txtNomeAluno.SetFocus
End Sub
Abaixo segue o código da função onde eu faço a consulta SQL:
CODE
Private Sub prova_anterior(matricula As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim instrucao As String
instrucao = "SELECT aluno.aluno, windows.ex01, windows.ex02, windows.ex03, windows.ex04, " & _
"windows.ex05, windows.ex06, windows.ex07, windows.ex08, windows.ex09, windows.ex10, " & _
"windows.ex11, windows.ex12 FROM aluno, windows " & _
"WHERE aluno.matricula = " & matricula & " and aluno.id_aluno = windows.id_aluno;"
Set db = CurrentDb()
Set rs = db.OpenRecordset(instrucao)
If Not rs.EOF Then
txtNomeAluno.SetFocus
txtNomeAluno.Text = rs.Fields(0)
ex01.SetFocus
ex01.Value = rs.Fields(1)
End If
End Sub
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim instrucao As String
instrucao = "SELECT aluno.aluno, windows.ex01, windows.ex02, windows.ex03, windows.ex04, " & _
"windows.ex05, windows.ex06, windows.ex07, windows.ex08, windows.ex09, windows.ex10, " & _
"windows.ex11, windows.ex12 FROM aluno, windows " & _
"WHERE aluno.matricula = " & matricula & " and aluno.id_aluno = windows.id_aluno;"
Set db = CurrentDb()
Set rs = db.OpenRecordset(instrucao)
If Not rs.EOF Then
txtNomeAluno.SetFocus
txtNomeAluno.Text = rs.Fields(0)
ex01.SetFocus
ex01.Value = rs.Fields(1)
End If
End Sub
Desde já,
Obrigado.