[Resolvido]repetição de Dados

Bom dia Marco!

Na sua tabela tem uma chave primária?

Se já tiver faça uso da função DCount no seu form no evento antes de atualizar do seu campo.

Olá existem algumas formas para fazer o que deseja, como nosso amigo Leandro colocou, você tb pode usar a função DLookup para verificar se o registro existe.

Veja o exemplo do mestre Osmar.

Abra o forms cliente no modo desing e veja o código que está no evento antes de atualizar da caixa de texto cod. do cliente.

Bom estudo!

boas,
Leandro tenho sim, mas n/ apanhei como fazer... HELP !
Irei ver o EX do mestre . . .

boas,
coloquei assim e da erro :

Private Sub Numero_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[NUmero]", "T_Funcionarios", _
"[Numero] ='" & Me!Numero & "'"))) Then
MsgBox "Funcionario Registado", _
vbInformation, "Funcionario Registado"
End If
End Sub

E assim:

Private Sub Numero_BeforeUpdate(Cancel As Integer)
If DCount("[NUmero]", "T_Funcionarios", _
"[Numero] =" & Me!Numero))) Then
MsgBox "Funcionario Registado", _
vbInformation, "Funcionario Registado"
End If
End Sub

Da erro na mesma . . .

Veja o exemplo:

No seu funciona direito a mim da-me o seguinte erro :
bla bla bla o access não consegue localiza o campo txtNumero referido na sua expressão
run time error 2465

Tem como postar a parte em questão do seu banco?

Em access 2000 de preferência.

Ele ai . . .

https://dl.dropbox.com/u/37350411/C%C3%B3pia%20de%20GestaoDados%20v1.0.rar

Form F_Funcionarios, depois Numero de Funcionario

Marco, altere seu código para esse:

Private Sub Numero_BeforeUpdate(Cancel As Integer)
If DCount("[Numero]", "t_funcionarios", "[Numero]=" & Me!Numero) > 0 Then
MsgBox "Duplicidade"
Cancel = True
End If
End Sub

O nome do seu form estava errado.

E para ficar mais informativo, coloque esse código:

Private Sub Numero_BeforeUpdate(Cancel As Integer)
Dim strNome As String
strNome = DLookup("[Nome]", "t_funcionarios", "[Numero]=" & Me!Numero)
If DCount("[Numero]", "t_funcionarios", "[Numero]=" & Me!Numero) > 0 Then
MsgBox "Duplicidade" & vbCrLf & "Esse número já foi cadastrado para : " & vbCrLf & strNome
Cancel = True
End If
End Sub

ui . . . 5 Estrelas ! Grande Leandro...

Obrigado pelo retorno Marco!
Uma boa tarde aqui do Brasil! rsrs

boas,
esta a dar erro Grande Leandro . . .
run time error "94" invalid use of null
se fizer debug coloca a linha - strNome = DLookup("[Nome]", "t_funcionarios", "[Numero]=" & Me!Numero) - em amarelo

Isto ao criar um Novo Registo

-

Private Sub Numero_BeforeUpdate(Cancel As Integer)

Dim strNome As String
strNome = DLookup("[Nome]", "t_funcionarios", "[Numero]=" & Me!Numero)
If DCount("[Numero]", "t_funcionarios", "[Numero]=" & Me!Numero) > 0 Then
MsgBox "Funcionário Duplicado" & vbCrLf & "Número Utilizado : " & vbCrLf & strNome
Cancel = True
End If

End Sub

-

Marco mude a variável para Integer e use a Nz também.

Private Sub Numero_BeforeUpdate(Cancel As Integer)

Dim strNome As Integer
intNome = Nz(DLookup("[Nome]", "t_funcionarios", "[Numero]=" & Me!Numero),0)
If DCount("[Numero]", "t_funcionarios", "[Numero]=" & Me!Numero) > 0 Then
MsgBox "Funcionário Duplicado" & vbCrLf & "Número Utilizado : " & vbCrLf & strNome
Cancel = True
End If

End Sub

O fórum agradece pelo retorno!

Valeu,

Grande Leandro... Funciona, mas agora da o seguinte quando colocamos um Número que esteja gravado da que o Numero esta utilizado, mas no Número 0
ou seja não diz o Numero 20 por ex e o nome da pessoa...

Marco, erro meu, numa variável de texto não dá para usar o Nz, nem precisava ter colocado isso, daria erro notoriamente e eu não prestei atenção, desculpe-me.

Então:

Private Sub Numero_BeforeUpdate(Cancel As Integer)

Dim strNome As String
intNome = DLookup("[Nome]", "t_funcionarios", "[Numero]=" & Me!Numero)
If DCount("[Numero]", "t_funcionarios", "[Numero]=" & Me!Numero) > 0 Then
MsgBox "Funcionário Duplicado" & vbCrLf & "Número Utilizado : " & vbCrLf & intNome
Cancel = True
Else
Exit Sub
End If

End Sub


Abraço

beleza . . . ok - Grande Leandro