[Resolvido]Não salvar Registro já registrado

Boa noite

tem algum código que impesa
que salve um arquivo já registrado?

ou seja para ser colocado no botão
salvar do meu formulario

Explique melhor "registro já registrado" por gentileza. Você fala de editar um registro já existente ou de repetição de nomes por exemplo?

Assim como todo mundo sabe

o access salva os registros automaticamente

ex:

Fiz cadastro de um cliente Ana

modifiquei algumas coisas

e depois cliquei em salvar (sem quere exemplo)

vai ficar duplicado
Ana
Ana

ou seja editar ele sem que salve

para não ficar duplicado

O formulário é desvinculado da tabela? Se não for, um registrado editado fica editado e não duplicado. Se for desvinculado, você pode editar um registro usando Edit no Lugar AddNew caso esteja gravando por RecordSet ou UPDATE ao invés de INSERT caso seja por sql.

Amigo Criquio .. Talvez o Deleta Duplicidade sirva neste caso...
Se for Adicionar um cliente e ele ja estiver cadastrado...

Para isso cole no módulo do Form:



Public Sub DetetaDuplicidade()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset
Dim strCriteria As String
Dim Cancel As Integer

strCriteria = "(]Campo Nome] = '" & Me.CaixaTexoNome & "')"
Set rst = Me.RecordsetClone
rst.FindFirst strCriteria
If rst.NoMatch Then
Exit Sub
Else
If MsgBox("Existe Cliente cadastrado com este Nome!" & Chr(10) + Chr(13) & "Deseja encontra-lo?", vbYesNo + vbInformation, "Atenção") = vbYes Then
Cancel = True
Me.Undo
Me.Bookmark = rst.Bookmark
End If
End If
Set rst = Nothing
End Sub

E no evento Antes de atualizar da CaixaTextoNome....

Private Sub CaixaNome_BeforeUpdate(Cancel As Integer)
Call DetetaDuplicidade
End Sub
'Assim ele apaga o novo registro duplicado e encontra o resgistro existente

Saudações

O problema, amigo, é que pode existir mais de uma pessoa com mesmo nome. Embora raro, pode acontecer tambem de ter mesmo nome e mesmo sobrenome. Pelo que o amigo Leam diz, imagino que ele esteja usando formulário desvinculado, pois se fosse vinculado, um registro já existente não seria sobreposto ao editar. Penso isso porque ele falou em editar um registro já existente. Se o que ele pretende é evitar duplicidade na hora de cadastrar uma pessoa sem saber se ela já está cadastrada, então o mais prático é usar um dado único, como CPF por exemplo ou fazer uma comparação entre nome, endereço e telefone, embora, mesmo assim, pode não ser eficiente, pois imagina um cidadão que tem o filho com mesmo nome apenas acrescentando Filho ou Neto ou Junior ao final de nome e os dois sejam cadastrados com nome reduzido...

Grande harysonh

já tinha colocado

essa função

quando digito o nome de um registro
ele avisa que já esta cadastrado no sistema
e mostra as informações deste cliente

e acabei de pessar no

que criquio disse

o mesmo nome

muitas pessoas tem o mesmo nome

será que tenho de tirar essa função?

o que precisa então amigão.. seja mais claro....

Precisar tirar creio que não, pois ela ajuda a evitar isso....
Mas como o Criquio disse.. existem as coincidências, são raras mas existem...
Mas creio que isso não será problema no seu caso

Acredito que seja apenas adaptar. Acredito que seja obrigatório o cadastro do CPF, não? Se sim, use ele. Pode até colocar ele como primeiro campo na hora de preencher, porque se existir outro igual, já não gasta tempo preenchendo outro campo.

BINGO!

bom e que entraro no assunto ai peguei um carona!!!

Voltando

Amigos

Quero alterar um cadastro seja ele de cliente ou produtos etc

sabese que posso fazer isso

e os ir lá alterar os campos e fechar o formulario (ou seja não aperta em nada)

então como poderia fazer

criar um novo botão (Salvar Altarçoes)
com a função de so alterar os dados
sem gerar outro registro (o mesmo)

Qual forma correta?

Seu Form é desvinculado?

Porque ser não for.. não precisa disso.. é so ir no registro.. alterar e salvar normal

Acredito que seja o que eu falei no meu segundo post aqui no tópico, postado Hoje à(s) 20:27. Dê uma melhor analisada nele.

o campo CPF Aui e obrigatorio

mas está na função validar
enquanto nao digitar o CPF valido ele nao
da sequencia as demas campos

acho que não e desvinculado!!!

Amigão voce ta confundindo as coisas...
Validar CPF é apenas um cálculo para verificar se o número do CPF condiz com as regras de criação da receita....Se o CPF é correto..
Ele não impede de cadastrar 2 CPF's iguais.....

Leia o 2 post do criquio por favor....

sim entendie

como posso fazer

desvinculado

no meu form?

Tem exemplo no Repositório Leam.. da uma olhadinha la...
Mas com relacao a este tópico... é do Sistema Seu? que tá no repositório?

Ele esta duplicando os registros?

Grande Harysonh

já mofiquei

no campo cpf

ele verifica se e valido
e se já tem algum registro
si tiver ele busca o cliente registrado com aquele cpf

A respeito ao Meu sistema

ele pode duplicar se não for feito da maneira
certo pois já conheço os sistemas e os macetes do access

tava colocando essa questão

que não tem conhecimento

selecionar um produto

alterar o preço

e clicar em salvar

ele vai salvar o registro novamente

ficando os 2 ex
produto x
produto x

Estou achando que o registro já é salvo no momento em que é alterado, pois a tabela é vinculada, e provavelmente no botão tenha um código que salva ele novamente. Tente apenas modificar o registro. Se ele for editado sem pressionar o botão, retire esse botão intrometido que ele está sobrando na relação

então seria mas faciel

fazer essa vinculação

pos não tenho ?

Façamos o seguinte: poste o código completo do seu botão para nossa apreciação.

On Error GoTo Err_Comando220_Click
MsgBox "Cadastro de Produto concluido!", vbInformation, "Diego Costruções"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
DoCmd.OpenForm "frmproduto1"
Exit_Comando220_Click:
Exit Sub

Err_Comando220_Click:
MsgBox err.Description
Resume Exit_Comando220_Click

End Sub

modiquei peguei de outro que não duplicava

e joguei dentro

nao ta duplicando

Ao que me parece é o que eu suspeitava mesmo. Você devia estar usando um código que salvava um novo registro ao invés de editar o registro atual.

Tópico resolvido?

O dele devia estar assim:

DoCmd.RunCommand acCmdNewRec
DoCmd.RunCommand acCmdSaveRecord
Ou AddNew... algo assim

resolvido
******
obrigado criquio
pela tempo prestado aqui (a dispor)

e o grande harysonh

vlw grades mestres do access

ok

nesse código poderia

acrescentar

uma messagem ao salvar o registro

e outra ao moficalo?

Explique melhor por gentileza.

sim crquio

e posso uso duas messagem nesse mesmo código

A primeira quando adiconar um produto (novo)
msg " produto casatrado"

A segunda quando eu buscar um produto e alterar algo
msg "produto alerado com sucesso"

em um so código no botão salvar

será possivel criquio?

Antes da linha que salva, coloque algo assim:

If DCount("Código", "NomeTabela", "Código=" & Me!Código) = 0 Then
MsgBox "Mensagem para novo resgistro"
Else
MsgBox "Mensagem para registro existente"
End If

Era o que eu queira
grande criquio

parabéns

perfeito

aprovado
no meu caso ficou assim

Private Sub Comando220_Click()
On Error GoTo Err_Comando220_Click
If DCount("ID", "produtos", "ID=" & Me!ID) = 0 Then
MsgBox "Produto cadastrado com sucesso"
Else
MsgBox "Produto alterado com sucesso"
End If
DoCmd.RunCommand acCmdSaveRecord

DoCmd.Close
DoCmd.OpenForm "frmproduto1"
Exit_Comando220_Click:
Exit Sub

Err_Comando220_Click:
MsgBox err.Description
Resume Exit_Comando220_Click

End Sub

muito bom

Isso mesmo. Bom trabalho.