OI pessoal, se tem alguem ai em plena quarta de cinzas, por favor, help me!!!!
meu formulario usando ado pra conectar funciona basicamente,agora estou tentando incrementa-lo com tratamento de erro, por ex. tenho um txtmatricula q e chave primaria entao devo informar ao usuario q é impossível duplicar esta matricula. estou usando este codigo q esta errado em algum lugar ou faltando alguma linha, não seiiii
Case "incluir" 'botao pra incluir registro
On Error GoTo erro_mdb: 'inicia o tratamento de erros
Err.Raise Number = 3022
dtaFuncionarios.Recordset.AddNew
'verifica se esta incluindo ou editando caso contrário não faz nada
If rs.EditMode = dbEditAdd Or rs.EditMode = dbEditInProgress Then
dtaFuncionarios.Recordset.Update
rs.Bookmark = rs.MaxModified
End If
Exit Sub
erro_mdb:
Select Case Err.Number
Case 3022
MsgBox "Erro número : " & str$(Err.Number) & " --> Matrícula já está cadastrada!! "
Resume Next 'retorna a ação para a linha de código subsequente áquela que
'gerou o erro
End Select
