Pessoal, boa tarde.
Tenho um formulário multipage onde, na primeira página, se encontram duas ComboBoxes (1 e 2), que determinam se o preenchimento das TextBoxes 22, 23 e 24 (que se encontram na segunda página) será obrigatório ou não.
Atribui macros de clique para as ComboBoxes para que o valor delas seja postado nas células B1 e C1 da minha Sheet 6 assim que alteradas e esses valores são utilizados em uma fórmula if/se na célula B3 da mesma aba, gerando um resultado 0 ou 1. Caso o resultado seja 01, eu precisaria que essas textboxes fossem de preenchimento obrigatório, não permitindo avanço para a próxima página.
O critério de análise é aplicado quando o botão para avançar página é clicado.
O código atual que estou usando é o seguinte:
Private Sub CommandButton2_Click()
If Sheet6.Cells(3, 2) <> 0 And TextBox22.Text = "" Or TextBox23.Text = "" Or TextBox24.Text = "" Then
MsgBox "Preencha os campos referentes aos contratos 'Antes do último ano'"
TextBox22.SetFocus
Me.MultiPage1.Value = 1
End If
If Sheet6.Cells(3, 2) = 0 Then
Me.MultiPage1.Value = 2
End If
End Sub
O que estou fazendo de errado?
Postado : 19/10/2015 1:49 pm