Não Salva Dois Registros Seguidos

[Musashi_RS]

Olá, estou enfrentando um problema na hora de salvar um registro. No processo de gravação, logo

após o comndo rs.Update, coloquei um tratamento de erros para verificar uma possível duplicação de dados:

ErroDuplo:

If Err.Number = -2147467259 Then

MsgBox "O semicondutor " & TxtTipo.Text & " já está cadastrado!", vbExclamation, "Inclusão

de Semicondutores"

TBSemi.CancelUpdate

TBSemi.MoveNext

TBSemi.MovePrevious

Exit Sub

End If

O que está acontecendo é o seguinte: após cadastrar um registro, se eu cadastrar outro eu não consigo, acusa o erro acima, de duplicidade. Só fechando o form e abrindo outra vez.

Alguém sabe o que estou fazendo de errado? :huh:

Editado Outubro 23, 2007 por Musashi_RS

[kuroi]

mas ele ta mostrando a sua MsgBox ou a mensagem padrão do access??

mas de qualquer forma o problema não deve estar ai, posta o codigo de quando você grava o novo registro.

[Musashi_RS]

Aprece a minha msgbox.

If LblEditMode.Caption = "Adicionando semicondutor..." Then
     'Adiciona um novo registro
     RS1.AddNew
  End If
  
  'Atribui os valores a tabela
  RS1!TIPO = Trim(TxtTipo.Text)
  RS1!Característica = Trim(TxtCarac.Text)
  RS1!Descrição = Trim(TxtDesc.Text)
  RS1!Terminais = Trim(TxtTerm.Text)
  RS1!Encapsulamento = Trim(TxtEnv.Text)
  RS1!Equivalente = Trim(TxtSubst.Text)
  RS1!Categoria = UCase(CboCat.Text)

  'Grava o registro
  RS1.Update
  '----------------------------------------------

ErroDuplo:
  If Err.Number = -2147467259 Then
     MsgBox "O semicondutor " & TxtTipo.Text & " já está cadastrado!", vbExclamation, "Inclusão de Semicondutores"
     RS1.CancelUpdate
     RS1.MoveLast
     RS1.MoveFirst
     Exit Sub
  End If

Editado Outubro 25, 2007 por Musashi_RS

[kuroi]

bom, você tem certeza q o TxtTipo vai tar com um valor q não exista no banco certo??

e q é a unica chave primaria da sua tabela, certo??

estranho... olhando assim não sei não...

bom, ce já tem meu email, se quiser mandar o projeto la pra eu ver.