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

gokusander 30/7/2020, 18:59

gokusander

gokusander: Intermediário; Respeito às regras :

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

Mensagem nº1

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

Mensagem gokusander 30/7/2020, 18:59

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 30/7/2020, 20:47, editado 1 vez(es)

**Alexandre Fim** 30/7/2020, 19:17

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016

Mensagem nº2

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

Mensagem Alexandre Fim 30/7/2020, 19:17

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

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

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

Sistemas e Tecnologia Ltda

gokusander 30/7/2020, 19:33

gokusander

gokusander: Intermediário; Respeito às regras :

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

Mensagem nº3

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

Mensagem gokusander 30/7/2020, 19:33

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** 30/7/2020, 19:41

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016

Mensagem nº4

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

Mensagem Alexandre Fim 30/7/2020, 19:41

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,

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

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

Sistemas e Tecnologia Ltda

gokusander 30/7/2020, 19:51

gokusander

gokusander: Intermediário; Respeito às regras :

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

Mensagem nº5

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

Mensagem gokusander 30/7/2020, 19:51

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** 30/7/2020, 20:37

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016

Mensagem nº6

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

Mensagem Alexandre Fim 30/7/2020, 20:37

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

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

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

Sistemas e Tecnologia Ltda

gokusander gosta desta mensagem