MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Verificar duplicidade no primeiro campo.

    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Verificar duplicidade no primeiro campo. Empty Verificar duplicidade no primeiro campo.

    Mensagem  ptknascimento 21/9/2011, 13:53

    Olá amigos,
    Comecei a trabalhar a pouco tempo com access e estou fazendo um BD para cadastro de ocorrências.
    Tenho um campo numero_ro, na tabela CADASTRO_RO que não quero q exista duplicidade, mas queria isso assim que ele perdece o foco ou sei lá, pq ele só verifica duplicidade quando vc for salvar dae é brabo neh :/

    Tentei o seguinte:

    Private Sub Numero_RO_BeforeUpdate(Cancel As Integer)
    If (Not IsNull(DLookup("[Numero_RO]", "CADASTRO_RO", _
    "[Numero_RO] ='" & Me!Numero_RO & "'"))) Then
    MsgBox "Já existe RO cadastrado com essa Numeração..", vbInformation
    Cancel = True 'cancela o evento.
    Me!Numero_RO.Undo 'desfaz a digitação.
    End If
    End Sub

    Não sei se deu certo porque qualquer numero que digito ele diz que existe duplicidade :/
    onde to errando??

    Uso o Access 2007.
    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Verificar duplicidade no primeiro campo. Empty Re: [Resolvido]Verificar duplicidade no primeiro campo.

    Mensagem  ptknascimento 21/9/2011, 15:21

    renomeie os campos pra melhorar, ficou assim:

    Private Sub N_RO_txt_BeforeUpdate(Cancel As Integer)
    If (Not IsNull(DLookup("[N_RO]", "CADASTRO_RO", _
    "[N_RO] ='" & Me!N_RO.txt & "'"))) Then
    MsgBox "Já existe um registro para " & Numero_RO & " no sistema.", _
    vbInformation, "Registro Duplicado!"
    Cancel = True 'cancela o evento.
    Me!N_RO.txt.Undo 'desfaz a digitação.
    End If
    End Sub

    Na tabela Cadastro_RO tenho uma campo com o nome de N_RO e um frm com o nome de N_ro.txt.

    Mas da esse erro:
    Erro em tempo de execução '438':
    Este objeto não aceite esta propiedade ou método.
    ptknascimento
    ptknascimento
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 18/09/2011

    [Resolvido]Verificar duplicidade no primeiro campo. Empty Resolvi!

    Mensagem  ptknascimento 21/9/2011, 15:39

    Private Sub NROtxt_BeforeUpdate(Cancel As Integer)
    If (Not IsNull(DLookup("[N_RO]", "CADASTRO_RO", _
    "[N_RO] ='" & Me!NROtxt & "'"))) Then
    MsgBox "Já existe um registro para " & NROtxt & " no sistema.", _
    vbInformation, "Registro Duplicado!"
    Cancel = True 'cancela o evento.
    Me!NROtxt.Undo 'desfaz a digitação.
    End If
    End Sub

    O que tava acontecendo é que eu tava confundindo o nome do campo com o nome do frm.
    Renomiei pra ficar de uma forma que eu pudesse diferenciar melhor e deu tudo certo!
    Apesar de ninguem ter respondido ao post Obrigado assim msm...rsrs!
    Abraço!

    Conteúdo patrocinado


    [Resolvido]Verificar duplicidade no primeiro campo. Empty Re: [Resolvido]Verificar duplicidade no primeiro campo.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 18:24