AS INSTRUCOES IF ANINHADAS

MANCKENNA 18/08/2009 13:46:58
#320151

Alguém consegue ver erro neste código ?

Private Sub Command1_Click()
Dim curSales As Currency, ntHrsWorked As Integer, curBonus As Currency

If Trim(Text1) = [Ô][Ô] Or Trim(Text2) = [Ô][Ô] Then Exit Sub
curSales = CCur(Text1)
ntHrsWorked = CInt(Text2)

If (curSales > 10000) Then
If (ntHrsWorked > 40) Then
curBonus = 750
Else
curBonus = 500
End If
lblBonus.Caption = [Ô]Good Work![Ô] [ô] Run-Time error [Ô]424[Ô] Object Rquired[Ô]
End If

MsgBox [Ô]CurBonus: [Ô] & curBonus

End Sub
ROBIU 18/08/2009 14:04:24
#320154
Você colocou a Label 3 mas não renomeou-a.
Altere o name da label3 para lblBonus
MANCKENNA 18/08/2009 18:40:29
#320173
Citação:

ROBIU escreveu:
Você colocou a Label 3 mas não renomeou-a.
Altere o name da label3 para lblBonus



Sim eu alterei e funcionou legal, mas o código também não diz que lbl.Caption = [Ô]Godd Work[Ô] esta mensagem também não deveria aparecer ?
O lable 1 não está tendo nenhuma função...?
MANCKENNA 18/08/2009 19:08:48
#320176
Citação:

ROBIU escreveu:
Você colocou a Label 3 mas não renomeou-a.
Altere o name da label3 para lblBonus



Alterei e funcionou , mas também não deveria aparecer uma caixa com a mensagem [Ô]Good Work![Ô] ? , lblBonus.Caption = [Ô]Good Work![Ô] , neste programa qual está sendo a utilidade do lable 1 ?
TECLA 18/08/2009 19:31:29
#320178 Resposta escolhida
Remova a linha de código que onde a instrução MsgBox ... aparece.
MANCKENNA 18/08/2009 22:07:39
#320185
Valeu , Dez mesmo , você acrescentou um código diferente do livro mas funcionou perfeitamente , vou dar uma analizada para poder entender com funciona a coisa..muitíssimo Agradecido.

Aproveito para perguntar o que significa esta frase: Favor não enviar MP com dúvidas. Utilize o fórum. ?

Será que estou enviando algo com o nome de MP ?

MP = ?

Abraços !!
ASHKATCHUP 19/08/2009 08:22:01
#320203
Citação:

MANCKENNA escreveu:
Favor não enviar MP com dúvidas. Utilize o fórum. ?

Será que estou enviando algo com o nome de MP ?

MP = ?

Abraços !!



MP = mensagem pessoal. é como se fosse um [Ô]email[Ô] dentro do forum.
ROBIU 19/08/2009 08:46:35
#320206
Citação:

Alterei e funcionou , mas também não deveria aparecer uma caixa com a mensagem [Ô]Good Work![Ô] ? , lblBonus.Caption = [Ô]Good Work![Ô] , neste programa qual está sendo a utilidade do lable 1 ?



I
f (curSales > 10000) Then

Veja nesta linha. Se CurSales for maior que 10000... vai acontecer todo código até o end if. Essa variável está pegando o valor da Text1. Então coloca um valor maior que 10000 na text1 e vai aparecer.

As label tem a função de dá nome as Textboxs. Se vocÊ colocar um monte de textboxs no forme para o usuario digitar o endereço e o Nome de uma pessoa, por exemplo, como você vai saber em qual textbox colocar o nome e em qual colocar o endereço?
Para isso colocamos um label acima ou ao lado da textbox, informando o que é para colocar em cada label. Quando você abre qualquer prograga para Windows, você vai ver as textboxs e o que devemos colocar nelas, não percebe?
Tópico encerrado , respostas não são mais permitidas
Voltar