Início![[Resolvido]campos obrigatórios Empty](https://2img.net/i/empty.gif)
marcocalixto 12/12/2011, 00:25Boa noite!!!!
Como devo utilizar o vba para fazer campos obrigatórios?
Quero que trave e só saia se digitar algo.
Como devo utilizar o vba para fazer campos obrigatórios?
Quero que trave e só saia se digitar algo.
[Resolvido]campos obrigatórios
marcocalixto- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 36
Registrado : 08/12/2011
Convidad- Convidado
Olá
Você se refere a um formulário, que não salve o registro sem determinados campos estarem preenchidos?
Se este é o caso, pode usar a função IsNull() ou a função Len().
A função IsNull verifica se um campo possui uma entrada, e retorna True ou False.
Deve levar em conta a configuração da propriedade Permitir comprimento zero do campo na tabela.
Exemplo de uso:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.NomeDoSeuCampo1) Then
Cancel = True
Me.NomeDoSeuCampo1.SetFocus
MsgBox "Preencha o campo NomeDoSeuCampo1"
ElseIf IsNull(Me.NomeDoSeuCampo2) Then
Cancel = True
Me.NomeDoSeuCampo2.SetFocus
MsgBox "Preencha o campo NomeDoSeuCampo2"
End If
End Sub
A função Len retorna a quantidade de caracteres de um campo.
Exemplo de uso:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Len(Me.NomeDoSeuCampo1) = 0 Then
Cancel = True
Me.NomeDoSeuCampo1.SetFocus
MsgBox "Preencha o campo NomeDoSeuCampo1"
ElseIf Len(Me.NomeDoSeuCampo2) = 0 Then
Cancel = True
Me.NomeDoSeuCampo2.SetFocus
MsgBox "Preencha o campo NomeDoSeuCampo2"
End If
End Sub
Você se refere a um formulário, que não salve o registro sem determinados campos estarem preenchidos?
Se este é o caso, pode usar a função IsNull() ou a função Len().
A função IsNull verifica se um campo possui uma entrada, e retorna True ou False.
Deve levar em conta a configuração da propriedade Permitir comprimento zero do campo na tabela.
Exemplo de uso:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.NomeDoSeuCampo1) Then
Cancel = True
Me.NomeDoSeuCampo1.SetFocus
MsgBox "Preencha o campo NomeDoSeuCampo1"
ElseIf IsNull(Me.NomeDoSeuCampo2) Then
Cancel = True
Me.NomeDoSeuCampo2.SetFocus
MsgBox "Preencha o campo NomeDoSeuCampo2"
End If
End Sub
A função Len retorna a quantidade de caracteres de um campo.
Exemplo de uso:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Len(Me.NomeDoSeuCampo1) = 0 Then
Cancel = True
Me.NomeDoSeuCampo1.SetFocus
MsgBox "Preencha o campo NomeDoSeuCampo1"
ElseIf Len(Me.NomeDoSeuCampo2) = 0 Then
Cancel = True
Me.NomeDoSeuCampo2.SetFocus
MsgBox "Preencha o campo NomeDoSeuCampo2"
End If
End Sub
marcocalixto- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 36
Registrado : 08/12/2011
consegui resolver perfeitamente o travamento dos campos. Obrigado.