DUVIDA SIMPLES PRA VCS

WILTONVB 16/11/2012 15:25:51
#414344
Private Sub Command1_Click()

Dim a As Integer
Dim b As Integer

a = txt1.Text
b = txt2.Text

If a And b = [Ô][Ô] Then
MsgBox [Ô]Preencha os campos[Ô] <<<<<<<<<<<< como verificar se capos estão vazios, so isso
Exit Sub
End If

Label1.Caption = a - b

End Sub
GIOVANYNOGUEIRA 16/11/2012 15:41:56
#414346
Você pode utilizar assim:

If a And b = [Ô][Ô] = True Then
MsgBox([Ô]Preencha os campos[Ô])
Else
Coloque aqui o código para executar
End If
FEDERHEN 16/11/2012 16:23:12
#414349 Resposta escolhida
Private Sub Command1_Click()
If Trim(txt1.text)=[Ô][Ô] Or Trim(txt2.Text)=[Ô][Ô] Then
MsgBox [Ô]Preencha os campos[Ô]
Exit Sub
End If
Label1.Caption = Val(txt1.Text) - Val(txt2.Text)
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar