Ir para conteúdo
Fórum Script Brasil
  • 0

If dentro de if


PedroBarreto

Pergunta

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 por kuroi
Adicionar Tag CODE
Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

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 por kuroi
Adicionar Tag CODE
Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...