Jump to content
Fórum Script Brasil
  • 0

If dentro de if


PedroBarreto

Question

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?

Edited by kuroi
Adicionar Tag CODE
Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 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?

Edited by kuroi
Adicionar Tag CODE
Link to comment
Share on other 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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.7k
×
×
  • Create New...