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]Se não estiver na LISTBOX emitir uma mensagem

    avatar
    Donizete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 22/08/2012

    [Resolvido]Se não estiver na LISTBOX emitir uma mensagem Empty [Resolvido]Se não estiver na LISTBOX emitir uma mensagem

    Mensagem  Donizete Sáb 1 Jul - 23:36

    Olá a todos

    Estou com dificuldade em resolver um problema.

    Gostaria de quando digitar um nome na TEXTBOX e caso esse nome não conste na LISTBOX emita uma mensagem avisando que o nome digitado não consta no cadastro.

    Desde já agradeço muito a ajuda
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Se não estiver na LISTBOX emitir uma mensagem Empty Re: [Resolvido]Se não estiver na LISTBOX emitir uma mensagem

    Mensagem  crysostomo Dom 2 Jul - 15:49

    Boa tarde.
    NO evento após atualizar;
    Código:
    If DCount("campodatabela", "tabela", "campodatabela= '" & campodoform & "'") > 0 Then
        MsgBox  "Está na lista"
    Else
        MsgBox " Não tem o nome da lista"


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Donizete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 22/08/2012

    [Resolvido]Se não estiver na LISTBOX emitir uma mensagem Empty Re: [Resolvido]Se não estiver na LISTBOX emitir uma mensagem

    Mensagem  Donizete Dom 2 Jul - 21:32

    Ficou excelente Crysostomo.

    Era justamente isso que eu pocurava.

    Obrigado pela ajuda  cheers cheers
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Se não estiver na LISTBOX emitir uma mensagem Empty Re: [Resolvido]Se não estiver na LISTBOX emitir uma mensagem

    Mensagem  crysostomo Seg 3 Jul - 8:05

    Sucesso Basketball cheers


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]Se não estiver na LISTBOX emitir uma mensagem Empty Re: [Resolvido]Se não estiver na LISTBOX emitir uma mensagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Dom 24 Nov - 23:12