[Resolvido]Sub simplesmente parou de executar!

Minha sub simplesmente não executa as instruções, tem uma explicação pra isso? Não alterei nome de objeto e etc...

Private Sub ValordoPedido__LostFocus()
Dim ValordoPedido As String
ValordoPedido = InputBox("Favor digite o valor do fechamento do pedido!")
If StrPtr(ValordoPedido) = 0 Then
MsgBox ("A operação acabou de ser cancelada!")
Else
resposta = MsgBox("Gerou o débito de: " & ValordoPedido, vbOK + vbCancel + vbInformation, "Informação!")
If resposta = vbOK Then
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Pedidos SET Pedidos.ValordoPedido = '" & ValordoPedido & "'" & " WHERE CódigoPedido = " & Me.CodigoPedido & ";"
DoCmd.SetWarnings True
End If
End If
End Sub

Já tentou depurar o vba para ver se encontra algum erro? Se não, tente fazer isso, depois um Compactar/Reparar. Outra coisa que pode alterar o funcionamento do bd são alterações externas ao aplicativo ou mesmo ao Access, como por exemplo, no Windows, em especial alterações no registro.

Comentei as linhas onde desativava as mensagens de consulta, então me apareceu a seguinte mensanagem!

""o Microsoft Office Acces nao atualizou 1 campo(s) devido a uma falhao na conversão tipo, 0 registro(s) devido violação de chave, 0 registro(s) devido a violações de bloqueio e 0 registro(s) devido violações de regra de validação
Deseja continuar a execução desse tipo de consulta ação assim mesmo?
clique em sim para ignorar o erro e executar a consulta
clique em ajuda para obter um explicação das causas das violações""