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


2 participantes

    [Resolvido]Código para verificação!

    joaomarcosferlinibento
    joaomarcosferlinibento
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 223
    Registrado : 23/02/2011

    [Resolvido]Código para verificação! Empty [Resolvido]Código para verificação!

    Mensagem  joaomarcosferlinibento 1/4/2011, 16:06

    Olá boa tarde.


    Tenho que fazer um código em VBA no acess, que quando digite o CLIENTE e perca o foco, ele (o código) consulta se já existe algum cliente com este mesmo nome.


    Teria como fazer?

    E também deixar com uma opção assim: (na mensagem de aviso)

    "Este cliente já está cadastrado! Deseja fazer uma busca! Clique em Sim para buscá-lo ou Não para sair!"

    Agradeceria muito Obrigado.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Código para verificação! Empty Re: [Resolvido]Código para verificação!

    Mensagem  vieirasoft 1/4/2011, 16:19

    Amigo

    Faça isso no evento afterupdate do campo

    Se o campo for numérico


    If (Not IsNull(DLookup("[meucampo]", "minhatabela", _
    "[meucampo] =" & Me!meucampo))) Then
    MsgBox "O xxxxxxxx já está cadastrado no sistema..." & meucampo.Value, vbInformation, "Aviso"
    Cancel = True 'cancela o evento.
    Me!meucampo.Undo 'desfaz a digitação.
    End If

    Se for texto

    If (Not IsNull(DLookup("[meucampo]", "minhatabela", _
    "[meucampo] ='" & Me!meucampo & "'"))) Then
    MsgBox "O xxxxxxxxxxxx já está cadastrado no sistema..." & meucampo.Text, _
    vbInformation, "Aviso"
    Cancel = True 'cancela o evento.
    Me!meucampo.Undo 'desfaz a digitação.
    End If
    joaomarcosferlinibento
    joaomarcosferlinibento
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 223
    Registrado : 23/02/2011

    [Resolvido]Código para verificação! Empty Re: [Resolvido]Código para verificação!

    Mensagem  joaomarcosferlinibento 1/4/2011, 16:29

    Valew obrigado.

    Depois como colocar RESOLVIDO?...kkkkkkkkk
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Código para verificação! Empty Re: [Resolvido]Código para verificação!

    Mensagem  vieirasoft 1/4/2011, 16:33

    Eu coloco, amigão. Bom trabalho

    Conteúdo patrocinado


    [Resolvido]Código para verificação! Empty Re: [Resolvido]Código para verificação!

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/4/2024, 11:19