If dentro de if

[PedroBarreto]

galera eu quero que quando executem o botao ele ira primeiro executar a açao:

If txtvalor.Text Or txtdata.Text = "" Then
msg = MsgBox("O campo Data ou o campo Valor podem estar em branco.", vbOKOnly, "Erro")
else

abaixo deste else eu gostaria que ele executase esta açao:

lblparcelas.Caption = lblparcelas.Caption + 1
lblvalor.Caption = lblvalor.Caption - txtvalor.Text
If lblvalor.Caption = "0" Then
Pedro = MsgBox("Progresso concluido", vbOKOnly, "Sucesso")
End If
If lblvalor.Caption < "0" Then
os = MsgBox("O valor da parcela ultrapassou o valor do produto. Automaticamente o computador subtraíra da ultima parcela o valor ultrapassado.", vbOKOnly, "Erro")
txtvalor.Text = Val(txtvalor.Text) + Val(lblvalor.Caption)
lblvalor.Caption = txtvalor.Text
End If

Voces podem ver que possui varios if dentro de um..

Como faz isso?

Editado Fevereiro 26, 2008 por kuroi
Adicionar Tag CODE

[kuroi]

ue, é só por os Ifs dentro do outro If normalmente. o seu codigo acima deve funcionar direitinho se você puser um embaixo do outro. só note q faltaria fechar o if principal.

[PedroBarreto]

Private Sub Command1_Click()
If txtvalor.Text Or txtdata.Text = "" Then
msg = MsgBox("O campo Data ou o campo Valor podem estar em branco.", vbOKOnly, "Erro")
Else
lblparcelas.Caption = lblparcelas.Caption + 1
lblvalor.Caption = lblvalor.Caption - txtvalor.Text
If lblvalor.Caption = "0" Then
Pedro = MsgBox("Progresso concluido", vbOKOnly, "Sucesso")
End If
If lblvalor.Caption < "0" Then
os = MsgBox("O valor da parcela ultrapassou o valor do produto. Automaticamente o computador subtraíra da ultima parcela o valor ultrapassado.", vbOKOnly, "Erro")
txtvalor.Text = Val(txtvalor.Text) + Val(lblvalor.Caption)
lblvalor.Caption = txtvalor.Text
End If
End If
End Sub

eu coloquei assim, mas deu erro na linda: If txtvalor.Text Or txtdata.Text = "" Then, e o erro é o type mesmacht

oque e devo fazer?

Editado Fevereiro 26, 2008 por kuroi
Adicionar Tag CODE

[kuroi]

a o problema não são os varios ifs. o problema é q o primeiro if ta errado. você não tem uma expressao nele. olha:

If txtvalor.Text Or txtdata.Text = "" Then

o q faz o txtvalor.Text no meio no If?? o operador Or tem q estar entre expressoes booleanas. exemplo, If txtvalor.Text = "" Or txtdata.Text = "" Then