Boa tarde amigos tenho um botão seleção no formulário que eu marco quando a solicitação já foi atendida e campo data que coloco a data que a solicitação foi atendida. Gostaria que quando for marcada a seleção tornasse obrigatório e preenchimento da data. Isso invitaria que a solicitação ficasse sem a data que foi atendida.
3 participantes
Preenchimento de campo obrigatório com condicionalidade.
GILDEZIO- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 134
Registrado : 23/04/2014
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5074
Registrado : 20/04/2011
Bom dia.
Vamos inverter a situação aqui, vamos primeiro preencher o campo data,forçando dessa maneira o preenchimento.
No evento click do botão.
If ISNULL ( me.campodata ) or me.campodata = "" then
msgbox( "Campo data é de preenchimento obrigatório", vbcritical, " ...AVISO..."
me.campodata.setfocus
else
exit sub
endif
Vamos inverter a situação aqui, vamos primeiro preencher o campo data,forçando dessa maneira o preenchimento.
No evento click do botão.
If ISNULL ( me.campodata ) or me.campodata = "" then
msgbox( "Campo data é de preenchimento obrigatório", vbcritical, " ...AVISO..."
me.campodata.setfocus
else
exit sub
endif
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
GILDEZIO- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 134
Registrado : 23/04/2014
amigo o código resolveu em parte ele solicita que coloque a data mas não a torna obrigatória ou seja o fomulário salve sem preencher a data.
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5074
Registrado : 20/04/2011
Coloque também no evento ao salvar o mesmo código...veja o que acontece quando tentar salvar sem data
No evento click do botão salvar.
If ISNULL ( me.campodata ) or me.campodata = "" then
msgbox( "Campo data é de preenchimento obrigatório", vbcritical, " ...AVISO..."
me.campodata.setfocus
else
exit sub
endif
No evento click do botão salvar.
If ISNULL ( me.campodata ) or me.campodata = "" then
msgbox( "Campo data é de preenchimento obrigatório", vbcritical, " ...AVISO..."
me.campodata.setfocus
else
exit sub
endif
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
GILDEZIO- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 134
Registrado : 23/04/2014
resolvido
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8443
Registrado : 05/11/2009
Marque o Resolvido
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
» [Resolvido]Tornar um campo obrigatório com base em três primeiros caracteres de outro campo
» [Resolvido]Formulario - Tornar um campo obrigatorio se outro campo estiver preenchido
» Campo obrigatório se campo de subformulário preenchido.
» campo obrigatorio
» [Resolvido]Campo Obigatorio não pode ficar em branco
» [Resolvido]Formulario - Tornar um campo obrigatorio se outro campo estiver preenchido
» Campo obrigatório se campo de subformulário preenchido.
» campo obrigatorio
» [Resolvido]Campo Obigatorio não pode ficar em branco
|
|