[Resolvido]Como alterar indice de tabela a partir do formulario

Ola Pessoal,

sou novo no access e tenho estudado bastante.

Criei um Formulário com sub formulário para adicionar ferramentas a uma nova caixa de ferramentas. Quando defino as ferramentas da nova caixa de ferramenta o BD não pode permitir que a mesma ferramenta esteja em duas caixas ao mesmo tempo, então o ACCESS alerta sobre a duplicidade de ferramentas:

O que eu quero é que o access mostre em que caixa essa ferramenta se encontra e de opção de eu mover da caixa de ferramentas que a ferramenta esta para a nova caixa de ferramentas.

Ola seja bem vindo ao forum;

Na minha aasinatura, no link interno "102 Códigos VBA Gratuitos..."

Veja se serve o código: Deteta e Mostra Registros Duplicados

Fala JPaulo,

obrigado pela ajuda, mas vou explicar melhor o que eu to fazendo e querendo.

Eu criei um formulário principal chamado Form_NCxFrm (ligado a tabela Tbl_NCxFrm) com um sub formulário chamado Form_SFormFrm (ligado a tabela Tbl_SformFrm) conectados pelo Código da caixa do formulário principal (codcx). No sub formulário eu adiciono as ferramentas da caixa que possuem um código único (chave primária) e que não podem estar em duas caixas ao mesmo tempo.

O que eu quero?

1. Quando tentar adicionar uma ferramenta que já esta em outra caixa, o BD mostrar onde a ferramenta já esta e perguntar se quero mudar de caixa.

Espero ter me explicado e em anexo segue o banco de dados.

Olá JPaulo,

Eu consegui mostrar que existe duplicidade de ferramenta utilizando o seu código:

-------
Private Sub cboCodFerr_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.cboCodFerr.Value
stLinkCriteria = "CodFerr= '" & Busca & "'"
If DCount("CodFerr", "Tbl_SFormFrm", stLinkCriteria) > 0 Then

Me.Undo
Cancel = True
MsgBox "Atenção, registo " _
& Busca & " ja existe." _
& vbCr & vbCr & "Vai ser mostrado o Registro.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
End Sub

--------

O que eu estou tentando implementar é localizar em que caixa a ferramenta se encontra (Na tabela Tbl_SFormFrm possui o campo codcx que mostra o nome da caixa) e clicando OK, atualizar para a nova caixa de ferramentas.