Erro no código: Ocorreu um problema enquanto o Microsoft Access se comunicava com o servidor OLE ou com o controle ActiveX

Private Sub Form_Current()

If PRECO.Value > 150 Then
MsgBox "O preco esta acima de 150,00 reias"
End If

End Sub

Um simples código para quando navegar pelos produtos ele me avisaria qual preço seria maior.
Ao abrir o formulário ele me da o seguinte erro:

"A expressão No atual (Atual é um dos eventos ) que você inseriu como definiçãoda propriedade de evento
gerou o seguinte erro: Ocorreu um problema enquanto o Microsoft Access se comunicava com o servidor OLE ou com o controle ActiveX."
- Talvez a expressão não resulte no nome de uma macro, no nome deuma função definda pelo usuário ouem um [Procedimento de Evento].
- Talvez tenha ocorrido um erro na avaliação da função do evento ou da macro.

Olá Carlos Santos,

Seja Bem-Vindo ao fórum.

Tente assim:

Código:

Private Sub Form_Current()

If me.PRECO > 150 Then
MsgBox "O preco esta acima de 150,00 reias"
End If

End Sub

Verifique se o nome da caixa de texto é igual ao nome do campo da tabela, se for altere na caixa de texto para txtPRECO e mantenha origem dos dados PRECO e ajuste desta forma:

Código:

Private Sub Form_Current()

If me.txtPRECO > 150 Then
MsgBox "O preco esta acima de 150,00 reias"
End If

End Sub

Se o problema se mantiver, partilhe parte envolvida para se testar.

Abraço