Tenho um formulário com os campos Nome, Lider, E-mail, Data de Inicio e Data do Fim onde ao clicar no botão Gravar e vi que a função que eu usei abaixo mostra que o campo não foi digitado e pede para digitar. Private Sub gravar_Click()
If txtnome.Text = Empty Then
MsgBox "Nome não foi informado"
TextBox.SetFocus
Else
End If
If txtlider.Text = Empty Then
MsgBox "Líder não foi informado"
TextBox.SetFocus
Else
End If
If txtemail.Text = Empty Then
MsgBox "E-mail não foi informado"
TextBox.SetFocus
Else
End If
If maskdtinicio.Text = Empty Then
MsgBox "Data de inicio não foi informado"
TextBox.SetFocus
Else
End If
If maskdtfim.Text = Empty Then
MsgBox "Data do fim não foi informado"
TextBox.SetFocus
Else
End If
End Sub Teria algum modo mais facil de fazer esse tipo de funcao??? Tenho outros formularios para preencher e tem mais campos onde terei que fazer isso... existe algum modo mais simples??? Valeu!!