[Resolvido]Não salvar Registro quando digitar no campo e já existir

Bom dia Senhores,

Mais uma vez solicitando ajuda aos mestres,

Estou com um probleminha pra resolver e preciso da ajuda dos senhores...

É o seguinte, No form Empresa estou usando o seguinte código no Campo "Nome" e no Evento do Campo, Antes de Atualizar coloquei:

Private Sub Nome_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[Nome]", "tblEmpresa", _
"[Nome] ='" & Me!Nome & "'"))) Then
MsgBox "Empresa com esse nome já está cadastrado no Sistema.", _
vbInformation, "Empresa cadastrada"
Cancel = True 'cancela o evento.
Me!Nome.Undo 'desfaz a digitação.
End If
End Sub

Está funcionando blz!

Só que ao dar enter mostra a mensagem e dado OK limpra o Campo. Só que se sair do Form ou fechar, simplesmente salva o Registro sem as informações...

Ultilizando esse código tem como incrementar pra excluir o Registro ou não salvar o Registro sem as informações?

No aguardo de vossa ajuda.

Procurei no fórum, vi vários exemplos mais nenhum que faça essa função...

Abraços,

Bom dia...
Experimente após atualizar do campo ou no evento ao sair do mesmo. Vamos ver o que ocorre.

boa tarde amigo francisco

coloque este código e testa abraço Nogaro !

Private Sub CódBarra_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[Nome]", " tblEmpresa ", _
"[ Nome] ='" & Me! Nome & "'"))) Then
MsgBox "A Empresa já está cadastrado no sistema..." & Nome.Text, _
vbInformation, "A t e n ç ã o"
Me.Undo 'desfaz a digitação.
Cancel = True 'cancela o evento.
End If
End Sub

Bom dia Silvio,

No Antes de Atualizar o código funciona. O que está acontecendo é que, se digitar um nome de Empresa que coincida com um existente na tabela, mostra a mensagem. E ao dar ok ou enter, limpa o campo Nome.

Mais o erro é que, se não quiser prosseguir com o cadastro, por ele ter gerado o Número de Registro no form, ao fechar salva o número do registro sem informação nenhuma.

Norago, essa função estou utilizando. É exatamente a que apresentou falha.

Mais um desafio para descobrir o cimento para a brecha...

olá francisco é tambem a que estou utilizando como não uso a numeração da chave primária nunca notei vou pesquisar a respeito abraço Nogaro

Algo parecido com isso, talvez venha a funfar.

Private Sub CódBarra_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[Nome]", " tblEmpresa ", _
"[ Nome] ='" & Me! Nome & "'"))) Then
MsgBox "A Empresa já está cadastrado no sistema..." & Nome.Text, _
vbInformation, "A t e n ç ã o"
Me.Undo 'desfaz a digitação.
Cancel = True 'cancela o evento.
exit sub
else
me.proximocampo.set focus
End If
End Sub

Brother,


Os códigos dos colegas até dariam certo, se vc mudar o tipo de dados da chave primaria, de auto-numeração para inteiro longo.


O mesmo se aplica ao código abaixo, altere os nomes da tabela e campo.


Altere também de CritMsg para MsgBox e crie um rótulo ou exclua o que está no código para evitar mensagens de erro.

Código:

Private Sub Form_Current()

Dim Cancel As Integer

On Error GoTo Err_Form_Current
Const conErrNotVrNull = 94


Me!Total_Rótulo.Caption = "REGISTROS: " & Format(DCount("[ID_MOV]", "tb_MOVIMENTO"), "000")
    If Me.NewRecord Then
        Me!Cadastro_Rótulo.Caption = "NOVO REGISTRO"
    Else
        With Me.RecordsetClone
            .Bookmark = Me.Bookmark
            Me!Cadastro_Rótulo.Caption = "REGISTRO:      " & _
                    .AbsolutePosition + 1 _
                    & " de " & .RecordCount
        End With
   
    End If


Exit_Form_Current:

    Exit Sub
   
Err_Form_Current:

    If err.Number = conErrNotVrNull Then
       
        CritMsg "REGISTRO COM VALORES INVÁLIDOS!"
       
        Cancel = True

    Else
       
        CritMsg err.Description

    End If

Resume Exit_Form_Current

End Sub

Abraços,

Silvio, deu certo.

É muita coisa meu amigo... Programação não é brincadeira...

Obrigado, Nagaro, Cleverson...

Vou alterar nos demais...

Abraço a todos.