Não permitir item duplicado

Bom dia,

Tenho um formulario  com o nome "Frm_ItensRequisitados"  que é alimentado por um sub formulario "Frm_Solicitacao_Itens" , o que eu queria era que ao entrar com um novo registro no "Frm_Solicitacao_Itens" ele realizasse a busca e procurasse pelo codigo que estou tentando entrar e se encontrasse no "Frm_ItensRequisitados" , não permitisse a entrada desse novo registro e voltasse a tela do "Frm_Solicitacao_Itens" .

No "Frm_Solicitacao_Itens" o campo se chama desenho, ele deve comparar com o campo item ped no "Frm_ItensRequisitados".

Obrigado.

Amigo boa tarde!

Tente isso

Ponha esse código no evento "Antes de atualizar" no seu Campo:

Código:


     If DCount("CodDaTabela","TabeladoFormuláriol", "CodDaTabela='" & Me!CoddaTabela & "'") >= 1 then
            MsgBox "itens já cadastrado",vbInformation,"Informação"

           cancel = true
     end if

Tente adaptar esses códigos, pois você esqueceu de mencionar as tabelas dos referidos formulários,


att; Ney

Amigo,

Estou fazendo o teste com este código:

Private Sub cliente_nome_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.cliente_nome.Value
stLinkCriteria = "cliente_nome= '" & Busca & "'"
If DCount("cliente_nome", "tb_cliente", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção o registro " _
& Busca & " já existe." _
& vbCr & vbCr & "Mostrar o Registo.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
End Sub

Mas surge erro:

Erro em tempo de execução '3420':
O objeto não é válido ou não está definido.

Ao clicar depurar, mostra esta linha:
rsc.FindFirst stLinkCriteria