CALCULO SIMPLES COM 6 TEXTBOX NAO FUNCIONA

HGZICA 23/07/2012 10:12:55
#406436
Bom dia!

Tenho um Form simples com 6 TextBox, porém ta dando [Ô]peté[Ô] com os 2 últimos textbox que aliás não são obrigatório o preenchimento.

segue código e Plan em anexo.

------------------------------
Private Sub calcula_Click()
[ô]OBS:
[ô] As SAÍDAS devem ser SUBTRAÍDAS pelas CHEGADAS
[ô] e os Resultados SOMADOS.

[ô] VALIDA (As duas primeiras linhas são obrigatório o preenchimento)
If ch_c = Empty Or sd_c = Empty Then
MsgBox [Ô]Preencha chegada e saida da coleta[Ô], vbExclamation, [Ô]ATENÇÃO[Ô]
ch_c.BackColor = vbYellow
sd_c.BackColor = vbYellow
ElseIf ch_d = Empty Or sd_d = Empty Then
MsgBox [Ô]Preencha chegada e saida da descarga[Ô], vbExclamation, [Ô]ATENÇÃO[Ô]
ch_d.BackColor = vbYellow
sd_d.BackColor = vbYellow
Else
ch_c.BackColor = vbWhite
sd_c.BackColor = vbWhite
ch_d.BackColor = vbWhite
sd_d.BackColor = vbWhite

[ô] FAZ OS CALCULOS DAS 2 PRIMEIRAS LINHAS
soma_1 = Int(sd_c.Text) - Int(ch_c.Text)
soma_2 = Int(sd_d.Text) - Int(ch_d.Text)

[ô] As duas últimas linhas (Cd. Descarga CC e Sd. Descarga CC)
[ô] Não são obrigatórias os preenchimentos
If ch_dcc = Empty & sd_dcc = Empty Then
soma_3 = 0
Else
soma_3 = Int(sd_dcc.Text) - Int(ch_dcc.Text)
End If

total = (soma_1 + soma_2) + soma_3
resultado.Caption = total
End If
End Sub
------------------------------
MARCELO.TREZE 23/07/2012 12:13:46
#406449 Resposta escolhida
tenta assim


If ch_dcc = Empty [txt-color=#0000f0]And [/txt-color]sd_dcc = Empty Then
soma_3 = 0
Else
soma_3 = Int(sd_dcc.Text) - Int(ch_dcc.Text)
End If

então nuca use & no if e sim o (And ou Or)
HGZICA 23/07/2012 13:10:15
#406455
nuss...shaushua

Obrigado MARCELO
Tópico encerrado , respostas não são mais permitidas
Voltar