MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Verificar Registro existente na tabela

    Compartilhe
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 760
    Registrado : 11/09/2013

    [Resolvido]Verificar Registro existente na tabela

    Mensagem  formiga10x em Qua 18 Dez 2013, 17:18

    Boa tarde pessoal estou com dificuldades para verificar se o registro codProduto já existe na tabela.
    Alguém da um uma ajuda?
    foto da tabela
    Brigado
    Anexos
    verificar.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (237 Kb) Baixado 22 vez(es)
    avatar
    Uilson Brasil
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/04/2013

    Re: [Resolvido]Verificar Registro existente na tabela

    Mensagem  Uilson Brasil em Qui 19 Dez 2013, 00:45

    Formiga,

    Este código utilizo no evento "Após Atualizar" do campo "EAN" em um formulário de cadastro de produtos em um sistema em desenvolvimento. Veja se consegue adaptar a sua necessidade.

    Código:
    If (Not IsNull(DLookup("[EAN]", "Produtos", ("[EAN] ='" & Me.EAN & "'")))) Then
        MsgBox "O código " & EAN & " já é cadastrado.", vbInformation, "SIG v1.0 (Gerencial)"
        Cancel = True
        Me.EAN.Undo
    End If

    Abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 760
    Registrado : 11/09/2013

    Re: [Resolvido]Verificar Registro existente na tabela

    Mensagem  formiga10x em Qui 19 Dez 2013, 06:00

    Resolvido aqui grato

      Data/hora atual: Qua 13 Dez 2017, 16:44