Somar campos!

[Edson_csi 0]

Olá pessoal!

 

Tenho a seguinte fórmula para somar e campos e mostrar o resultado no 4.

 

Text4.Text = CSng(Text1.Text) + CSng(Text2.Text) + CSng(Text3.Text)

 

Gostaria de saber qual a maneira de um dos campos, ou aceitar valor em branco, ou então se não digitar nada ele soma com 0.

 

Porque se eu nçao digitar nada em um dos campos e mandar somar, ele gera um erro Run-Time error "13".

[scorpio 7]

Verifica um por um

 

If(Text1.Text="")Then Text1.Text="0"::

assim vai com todos os campos

[Fernando Almeida 0]

é so colocar iif a cada operação

 

e ficaria assim

 

Text4.Text = iif(trim(text1.text) = "", 0, CSng(Text1.Text)) + iif(trim(text2.text) = "", 0, CSng(Text2.Text)) + iif(trim(text3.text) = "", 0, CSng(Text3.Text))

bom caso você não conheça o iif tem essa instrutura,

 

iif ( condição , se verdadeiro , se falso)

 

e quanto ao trim, ele retira os espaços antes e depois do que tiver escrito.

 

acredito que é isso ai,

flw