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]Ajuda com Msg Box

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Msg Box Empty Ajuda com Msg Box

    Mensagem  Agravina 28/10/2011, 11:56

    Como crio uma mensagem para não encontrar na tabela o valor que estou procurando
    exemplo entro com o numero 10 mas esta não esta na tbl quero criar um msg avisando isto.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Msg Box Empty Re: [Resolvido]Ajuda com Msg Box

    Mensagem  vieirasoft 28/10/2011, 12:01

    Evento antes de actualizar

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Msg Box Empty Re: [Resolvido]Ajuda com Msg Box

    Mensagem  vieirasoft 28/10/2011, 12:03

    Se for numerico


    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
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Msg Box Empty Re: [Resolvido]Ajuda com Msg Box

    Mensagem  Agravina 28/10/2011, 12:03

    nome campo na tabela ou form?
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Msg Box Empty Re: [Resolvido]Ajuda com Msg Box

    Mensagem  vieirasoft 28/10/2011, 12:05

    Tabela
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Msg Box Empty Re: [Resolvido]Ajuda com Msg Box

    Mensagem  Agravina 28/10/2011, 12:07

    Perai Vieira eu quero e se não estiver cadastrado emitir uma mensagem aviso que não esta cadastrado
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Msg Box Empty Re: [Resolvido]Ajuda com Msg Box

    Mensagem  vieirasoft 28/10/2011, 12:22

    O Sistema não consegue verificar o que não está, mas sim o que está. Logo, se está, ele avisa, agora ter a capacidade cerebral para saber que não está antecipadamente????É uma questão de raciocinar.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Msg Box Empty Re: [Resolvido]Ajuda com Msg Box

    Mensagem  vieirasoft 28/10/2011, 12:30

    Se quer assim:

    If (IsNull(DLookup("[meucampo]", "minhatabela", _
    "[meucampo] ='" & Me!meucampo & "'"))) Then
    MsgBox "O xxxxxxxxxxxx não está cadastrado no sistema..." & meucampo.Text, _
    vbInformation, "Aviso"
    End If

    Pode ainda com um Else inserir uma outra rotina após a primeira condição
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Msg Box Empty Re: [Resolvido]Ajuda com Msg Box

    Mensagem  Agravina 28/10/2011, 12:46

    Vieira Obrigado pela Ajuda ,o que chama de capacidade cerebral ou falta dela,aqui no Brasil chamamos de Burro, obrigado pelo Elogio Também !
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Msg Box Empty Re: [Resolvido]Ajuda com Msg Box

    Mensagem  vieirasoft 14/11/2011, 11:24

    Não se trata de burrice amigão. Qualquer um a desenvolver um sistema fixa suficientemente cansado para errar. Desculpe a demora, mas as férias souberam-me bem.

    Conteúdo patrocinado


    [Resolvido]Ajuda com Msg Box Empty Re: [Resolvido]Ajuda com Msg Box

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 12:44