Início
hugopanzer Qui Fev 24, 2011 7:54 amCaros amigos é possivel, sem recorrer a essa propriedade numa tabela, tornar um campo obrigatorio num formulario?
Obrigado
Obrigado
2 participantes
[Resolvido]campo obrigatorio num formulario
hugopanzer- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 182
Registrado : 16/11/2010
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Está usando forms acoplados ou desacoplados? Tente usar:
If IsNull(Me.NomeCampo) Or Me.NomeCampo.Value = "" Then
MsbBox "O campo é obrigatório", vbOkOnly + vbCritical, "Erro"
Me.Undo
Me.NomeDoCampo.SetFocus
Else
Exit Sub
End If
If IsNull(Me.NomeCampo) Or Me.NomeCampo.Value = "" Then
MsbBox "O campo é obrigatório", vbOkOnly + vbCritical, "Erro"
Me.Undo
Me.NomeDoCampo.SetFocus
Else
Exit Sub
End If
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
hugopanzer- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 182
Registrado : 16/11/2010
O Form é desacuplado. Onde coloco esse codigo nas propriedades do form "ao actualizar" (after update) ?
Obrigado
Obrigado
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Você deve ter um botão aonde clica para inserir o registro, não? Coloque no "Ao clicar" desse botão. Só cuidado para colocar no local certo juntamente com o código que lá já deve existir.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
hugopanzer- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 182
Registrado : 16/11/2010
Amigo tudo certinho apenas uma correcçao no seu codigo em vez de MsbBox expressao correcta MsgBox
Codigo correcto:
If IsNull(Me.NomeCampo) Or Me.NomeCampo.Value = "" Then
MsgBox "O campo é obrigatório", vbOkOnly + vbCritical, "Erro"
Me.Undo
Me.NomeDoCampo.SetFocus
Else
Exit Sub
End If
Abraço e muito Obrigado
Codigo correcto:
If IsNull(Me.NomeCampo) Or Me.NomeCampo.Value = "" Then
MsgBox "O campo é obrigatório", vbOkOnly + vbCritical, "Erro"
Me.Undo
Me.NomeDoCampo.SetFocus
Else
Exit Sub
End If
Abraço e muito Obrigado
hugopanzer- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 182
Registrado : 16/11/2010
Desculpem esqueci de colocar "resolvido"
Conteúdo patrocinado
Tópicos semelhantes
