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

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



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

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

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á.

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,

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

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

Opaaaa, esse "or" salvou hehehe,

Muito obrigado e abraços

Valeu Rodrigo
O fórum agradece.

Boa sorte.