AJUDINHA QUI

RDPIZA 18/10/2011 19:39:07
#386993
Ola me ajudem com esses erros primeiro
KERPLUNK 18/10/2011 19:40:55
#386994
Amigo, mostre o código fonte pra gente poder te ajudar, pelo menos a parte onde está dando erro...
RDPIZA 18/10/2011 19:41:17
#386995
Option Explicit
Dim gas As String
Dim eta As String
Dim die As String
Dim soma As Integer
-----------------------------------------------------------------------------------------------------------------------
Private Sub lst1_Click()
gas = 2.89999
eta = 1.89999
die = 1.97999

If lst1.Text = [Ô]Gasolina[Ô] Then
lblvalor.Caption = gas
End If

If lst1.Text = [Ô]Etanol[Ô] Then
lblvalor.Caption = eta
End If

If lst1.Text = [Ô]Diesel[Ô] Then
lblvalor.Caption = die
End If

lbltotalpagar = lblvalor.Caption * txtlitros.Text
End Sub
-------------------------------------------------------------------------------------------------------

Private Sub mnueta_Click()
frmEtanol.Show
End Sub
RDPIZA 18/10/2011 19:43:10
#386996
Aqui esta
KERPLUNK 18/10/2011 19:43:54
#386997
Nesta linha:
lbltotalpagar = lblvalor.Caption * txtlitros.Text

Se não tiver nada na caixa de texto [Ô]txtlitros[Ô] vai dar esse erro...
Pode mudar para:

If txtlitros.text = [Ô][Ô] then
msgbox [Ô]Digite quantos litros...[Ô]
else
lbltotalpagar = lblvalor.Caption * txtlitros.Text
end if

Vale lembrar que seria bom tratar também se o valor de txtlitros é número
RDPIZA 18/10/2011 19:45:11
#386998
Aqui esta
KERPLUNK 18/10/2011 19:46:02
#386999
Leu o que escrevi ali em cima???
RDPIZA 18/10/2011 19:49:40
#387001
Aee blz nossa tao facil kkkkkk brigadão
mais uma coisinha fiz um menu e nesse menu tem editar serve pra mudar o preço dos combustiveis tendeu só que não sei como fazer isso editar o valor.
LROSSI 18/10/2011 19:51:17
#387002
troque a linha em amarelo pelo o texto abaixo:



[txt-color=#e80000]lbltotalpagar.caption= ccur(lblvalor.caption)*ccur(txtlitros.text)[/txt-color]
RDPIZA 18/10/2011 19:59:10
#387003
??????????????????
MARCELO.TREZE 18/10/2011 19:59:19
#387004
Option Explicit
[txt-color=#0000f0]Dim gas As Double
Dim eta As Double
Dim die As Double
Dim soma As Double[/txt-color]
-----------------------------------------------------------------------------------------------------------------------
Private Sub lst1_Click()
gas = 2.89999
eta = 1.89999
die = 1.97999

If lst1.Text = [Ô]Gasolina[Ô] Then
lblvalor.Caption = gas
End If

If lst1.Text = [Ô]Etanol[Ô] Then
lblvalor.Caption = eta
End If

If lst1.Text = [Ô]Diesel[Ô] Then
lblvalor.Caption = die
End If

[txt-color=#0000f0]lbltotalpagar = CDbl(lblvalor.Caption) * CDbl(txtlitros.Text)[/txt-color]
End Sub
-------------------------------------------------------------------------------------------------------

Private Sub mnueta_Click()
frmEtanol.Show
End Sub

tente ai
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar