|
|
Postada em 18/06/2008 22:41 hs
[e o seguinte...tenho 2 campos de soma
valor1 e valor2....
as vezes o valor2 esta vazio, ai da um erro...
Dim ssql As String
Dim total As Integer
ssql = "select sum(valor2)as total from contas_a_receber"
Set tb = Banco.OpenRecordset(ssql, dbOpenDynaset)
lbl.Caption = tb!total
****************************
( tipo de dados imcompativel na express'ao do criterio) mas so acontece se tem ao menos uma coluna vazia...
valor2 = 120
valor2 =
valor2 = 150...
ai n'ao soma e da este erro...alguem ajuda'/'
|
|
|
|
|
|
|
|
Postada em 19/06/2008 07:40 hs
Na hora de gravar os valores na tabela, procure fazer a verificação, se o camp estiver vazio, grave ele com o valor 0 (zero), assim, na hora de somar, não vai dar erro. If TxtValor.Text = "" Then TxtValor.Text=0 Assim não dará erro. Até mais. |
|
|
|
|
|
Postada em 19/06/2008 07:41 hs
if not isnull valor2 and not isnull valor1 then valor3=valor2+valor1 endif |
|
|
|
Donkey
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
Postada em 19/06/2008 09:18 hs
Apenas complementando o amigo Perci, sempre que for testar algum controle ser igual ou diferente de "" (vazio), use em conjunto a função TRIM (elimina espaçõs vazios).
Vc ficará impressionado com o numero de usuarios que colocam um espaço apenas ao inves de digitar algo, dai se não usar Trim ele vai passar na critica, pq dai ele não vai ser igual a "" vai ser igual a " "
Mesma coisa na hora de gravar o nome principalmente, o que tem de usuario que coloca um espaço no começo do nome, dai fica fora da ordem alfabetica.....
Apenas algumas dicas para evitar dor de cabeças futuras... rs
Um abraço e tenha um ótimo dia.
|
|
|
|
|
|
Postada em 19/06/2008 10:10 hs
Valeu pela dica, amigo Donkey. Vivendo e aprendendo. Abraços. |
|
|
|
