[Resolvidos]Como verificar se um dado já existe na tabela através do formulário

como verificar se um dado ja existe na tabela?

encontrei esse codigo, porem nao sei usa-lo

nome da minha tabela: tabela1
nome da caixa de texto: 1 1 Inscrição Cadastral
nome aonde é armazenado na tabela: 1 1 Inscrição Cadastral


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

obrigado pela atenção

Boa tarde,

Vai aí grande confusão e desconhecimento.

1º - Nomeie os controlos com prefixo de tipo de controlo e nome sugestivo da sua função e sem espaços. Comece sempre por uma letra
Por exemplo: RtlNome - rótulo que mostra o nome
TxtNome - Caixa de texto onde armazena o nome
CxcNome - Caixa de combinação onde selecciona o nome
Lst... - caixa de listagem ...
Cmd... - botão de comando ...
...
2º - Nomeie os campos da tabela com os mesmos princípios, excepto o prefixo.

3º - Não percebi os nomes do seu controlo nem o nome do seu campo, por isso, explico o código que apresentou para que possa adaptá-lo à sua necessidade:

Private Sub NomeDoProduto_BeforeUpdate(Cancel As Integer) 'NomeDoProduto é o nome do controlo no formulário

If (Not IsNull(DLookup("[NomeDoProduto]", "Produtos", _ 'NomeDoProduto é o nome do campo. Produtos é o nome da tabela. (Me.)NomeDoProduto é o nome do controlo no formulário

"[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. '(Me.)NomeDoProduto é o nome do controlo no formulário

End If

End Sub

4º - Já reparou na dificuldade em destrinçar o NomeDoProduto se faz referência ao campo da tabela ou ao controlo no formulário? Se utilizasse NomeDoProduto para o campo na tabela e TxtNomeDoProduto para o nome do controlo no formulário o código ficava mais intelegível!

Correto amigo,

muito obrigado, no meu caso ficou assim:

Private Sub RIC_BeforeUpdate(Cancel As Integer)

If (Not IsNull(DLookup("[icadastral]", "tabela1", _
"[icadastral] ='" & Me!RIC & "'"))) Then
MsgBox "A inscrição já está cadastrada.", _
vbInformation, "Inscrição Cadastral"
Cancel = True 'cancela o evento.
Me!RIC.Undo 'desfaz a digitação.

End If
End Sub

abraço