Bom dia!
Sou inciante em VBA Access e preciso fazer uma aplicação que pegue o resultado de um select de determinado campo
jogue este resultado em um variavel inteira, e após isso use desta variavel para fazer um update em um campo em outra tabela.
Abaixo segue o código que estou tentando utilizar.
O erro ocorre no numreg = rs("NUMERO_DE_RESPOSTAS")
Nao passa desta linha!
Qualquer ajuda agradeço!
Abraços
Sub Atualiza_Resposta_Objetiva(numeroQuestao As Integer, resposta As String)
MsgBox ("Funcao inicio")
'Declaracao de variaveis
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim numreg As Integer
numreg = 0
'Seleciona o banco
Set db = CurrentDb
MsgBox ("Funcao antes do meio")
'Busca registro a ser atualizado
Set rs = db.OpenRecordset("select NUMERO_DE_RESPOSTAS " _
& " from TB_RESPOSTA_QUESTAO_OBJETIVA " _
& " where CODIGO_QUESTAO = " & numeroQuestao _
& " AND TEXTO_RESPOSTA = '" & resposta & "'")
numreg = rs("NUMERO_DE_RESPOSTAS")
'Atualiza somando 1
numreg = numreg + 1
MsgBox ("Funcao meio")
'Executa comando de atualizacao
db.Execute "UPDATE TB_RESPOSTA_QUESTAO_OBJETIVA " _
& " Set NUMERO_DE_RESPOSTAS = " & numreg _
& " WHERE CODIGO_QUESTAO = " & numeroQuestao _
& " AND TEXTO_RESPOSTA = '" & resposta & "'"
MsgBox ("Funcao FIM")
End Sub
Leandro Neroni
