Gostaria de saber como poderia verificar se o registro já está cadastrado.
Esse é o código que fiz e obteve problema:

Dim strCodigo As String
strCodigo = InputBox("Código de P2: ")

If strCodigo = "" Then
Exit Sub
Else
If DLookup("[CODIGO]", "TABP2", "[CODIGO]='" & strCodigo & "'") Then
DoCmd.GoToRecord , , acNewRec
Forms!Resumo!CODIGO = strCodigo
DoCmd.OpenForm "COMP2", acNormal
Else
MsgBox ("Codigo da P2 já existente")
Exit Sub

End If

End If

Qdo copilo,indica que o tipo é incompatível no código :
If DLookup("[CODIGO]", "TABP2", "[CODIGO]='" & strCodigo & "'")

na tabela o campo CODIGO é um tipo texto.

caro Devus,
Segundo o exemplo do nosso amigo JR segue ai a sua resposta:

a) Abra o formulário "frmProdutos" do arquivo de exemplo e digite, no campo “Nome do Produto”, um nome já existente na tabela Produtos (por exemplo: Chang). O procedimento de evento Antes de Atualizar (BeforeUpdate) da caixa de texto NomeDoProduto compara o valor digitado com o campo NomeDoProduto da tabela Produtos. Se houver um valor coincidente na tabela, será exibida uma mensagem informando que o produto já foi inserido anteriormente, bem como será desfeita a digitação.

Private Sub NomeDoProduto_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[NomeDoProduto]", "Produtos", _
"[NomeDoProduto] ='" & Me!NomeDoProduto & "'"))) Then
MsgBox "O produto já está cadastrado na tabela Produtos.", _
vbInformation, "Produtos"
Cancel = True 'cancela o evento.
Me!NomeDoProduto.Undo 'desfaz a digitação.
End If
End Sub