MaximoAccess

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

Obrigado

Administração do MaximoAccess

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] Caixa de Mensagem: "Selecione uma opção"

    avatar
    gokusander
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 21/04/2012

    [Resolvido] Caixa de Mensagem: "Selecione uma opção" Empty [Resolvido] Caixa de Mensagem: "Selecione uma opção"

    Mensagem  gokusander em Qui 30 Jul 2020, 5:59 pm

    Bom dia, gostaria de saber como abrir uma MsgBox quando não estiver selecionado nenhum opção.

    [Resolvido] Caixa de Mensagem: "Selecione uma opção" Captur10

    Eu uso os seguintes códigos para MsgBox

    Código:

    If IsNull(Me.XXXXXXX) Then
        MsgBox "O campo XXXXXé obrigatório", vbInformation, "Campo obrigatório"
        Me.XXXXXX.SetFocus
        Exit Sub
        End If

    Obrigado


    Última edição por gokusander em Qui 30 Jul 2020, 7:47 pm, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido] Caixa de Mensagem: "Selecione uma opção" Empty Re: [Resolvido] Caixa de Mensagem: "Selecione uma opção"

    Mensagem  Alexandre Fim em Qui 30 Jul 2020, 6:17 pm

    Olá Rodrigo

    Seria a mesma coisa, porem, com o nome do quadro de opções.

    Ex.:

       
      If IsNull(Me.[Nome do Quadro de Opções]) Then
           MsgBox "A opção de Bolsa é obrigatória", vbInformation, "Campo obrigatório"
           Me.[Nome do Quadro de Opções].SetFocus
           Exit Sub
       End If


    Espero ter ajudado

    Boa sorte


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    gokusander
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 21/04/2012

    [Resolvido] Caixa de Mensagem: "Selecione uma opção" Empty Re: [Resolvido] Caixa de Mensagem: "Selecione uma opção"

    Mensagem  gokusander em Qui 30 Jul 2020, 6:33 pm

    Boa tarde, tudo tranquilo?

    Então, coloquei o colchetes mas ele ignora a existência dele.

    Praticamente adiciona o registro como se nem existisse o código.

    Obrigado desde já.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido] Caixa de Mensagem: "Selecione uma opção" Empty Re: [Resolvido] Caixa de Mensagem: "Selecione uma opção"

    Mensagem  Alexandre Fim em Qui 30 Jul 2020, 6:41 pm

    Tudo beleza...
    Rodrigo, os colchetes era só pra titulo de informação.
    Poderia ser "Me.QuadroStatus.Setfocus".

    O teu sistema é acoplado à tabela?

    Por gentileza, disponibilize seu banco de dados (somente partes envolvidas) para análise.

    Att,


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    gokusander
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 21/04/2012

    [Resolvido] Caixa de Mensagem: "Selecione uma opção" Empty Re: [Resolvido] Caixa de Mensagem: "Selecione uma opção"

    Mensagem  gokusander em Qui 30 Jul 2020, 6:51 pm

    Entao, mesmo assim não sei o que está ocorrendo.

    Não sei como colocar apenas as partes envolvidas.

    Abre o formulario "Frm_Matricula"

    Está em anexo, puder analisar por gentileza.

    Obrigado
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido] Caixa de Mensagem: "Selecione uma opção" Empty Re: [Resolvido] Caixa de Mensagem: "Selecione uma opção"

    Mensagem  Alexandre Fim em Qui 30 Jul 2020, 7:37 pm

    No botão Adicionar e Salvar altere a seguinte instrução:

    If IsNull(Me.QrBolsa) Or Me.QrBolsa = 0 Then
    MsgBox "O campo Bolsa é obrigatório", vbInformation, "Campo obrigatório"
    Me.QrBolsa.SetFocus
    Exit Sub
    End If


    Acredito que irá funcionar.

    Boa sorte


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    gokusander gosta desta mensagem

    avatar
    gokusander
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 21/04/2012

    [Resolvido] Caixa de Mensagem: "Selecione uma opção" Empty Re: [Resolvido] Caixa de Mensagem: "Selecione uma opção"

    Mensagem  gokusander em Qui 30 Jul 2020, 7:47 pm

    Opaaaa, esse "or" salvou hehehe,

    Muito obrigado e abraços cheers cheers cheers
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido] Caixa de Mensagem: "Selecione uma opção" Empty Re: [Resolvido] Caixa de Mensagem: "Selecione uma opção"

    Mensagem  Alexandre Fim em Qui 30 Jul 2020, 7:51 pm

    Valeu Rodrigo Very Happy Very Happy
    O fórum agradece.

    Boa sorte.


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: Seg 28 Set 2020, 10:04 am