Boa tarde, pessoas!
Alguém poderia me dar um suporte porque o erro não foi tratado?
A sintaxe está correta?
Alguém poderia me dar um suporte porque o erro não foi tratado?
A sintaxe está correta?
- Código:
On erro GoTo 3022
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("tblservicos", dbOpenDynaset)
rs.AddNew
rs!id_solicitacao = Me!solicitacao
rs!id_exame = Me!exame
rs.Update
rs.Close
MsgBox "Cadastro efetivado com sucesso"
Exit Sub
3022:
If Err.Number = 3022 Then
MsgBox "Erro: Exame já cadastrado!"
End If
End Sub