COMO TRATAR ERRO DE INDEX IGUAIS

USUARIO.EXCLUIDOS 16/06/2004 21:58:02
#30010
Pessoal, como se faz para tratar erro quando o usuário tentar colocar valores iguais no Index do Recordset? (Erro3022).
Na verdade, eu gostaria que o programa exibisse uma MsgBox, Cancelasse o AddNew normalmente e pronto, sem precisar de muita conversa e muito End.
Daí eu tentei o seguinte:
No programa tem o botão Adicionar e o Salvar. Daí no salvar eu coloquei o seguinte código, antes da linha do data1.update.

On error goto Tratamento
data1.update
'codigo
'codigo
exit sub
Tratamento:
if err.number = 3022 then 'esta linha nem é necessária
Msgbox "texto formalzinho e tal..."
'Bem, a minha dúvida é se essas duas linhas estão certas mesmo
data1.cancelupdate
data1.refresh    'aqui dá o erro 444: Method not applicable in this context


Bem, e agora, como faz??
USUARIO.EXCLUIDOS 21/06/2004 17:27:30
#30586 Resposta escolhida
nao bastaria algo como

data1.AddNew
'codigo
'codigo
data1.Update

TrataErro:
data1.CancelUpdate
data1.MoveFirst

detesto usar este sistema - prefiro trabalhar com instrucoes em sql
Tópico encerrado , respostas não são mais permitidas
Voltar