Erro em tempo de execução 3061.

[ndecastro 0]

Bom dia,

 

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

 

Desde já,

 

Obrigado.

[ndecastro 0]

Problema resolvido!!!

 

Era erro nos campos da tabela!!!