USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Variavel
Irenko
BELO HORIZONTE
MG - BRASIL
Postada em 17/05/2004 16:13 hs            
O Cód. abaixo funciona legal, só que eu gostaria de gravar o resutado da instrução Sql em uma variavel(Soma) e substituir o LbTotal por esta variavel e depois efetuar o calculo conforme a ultima linha. Como faço?
 
Set Rs1 = db.OpenRecordset("SELECT SUM([SALDO EM ESTOQUE] * [VALOR UNITARIO])AS TOTAL FROM [CALCULO$]", dbOpenSnapshot)
If IsNull(Rs1("TOTAL")) Then
LbTotal = Format(0, "#,##0.00")
Else
LbTotal = Format(Rs1("TOTAL"), "#,##0.00")  
End If
LbTotal = Soma + CDbl(Lb_Entrada) - CDbl(Lbsaida)
     
THECRAZY
Pontos: 2843
BRASÍLIA
DF - BRASIL
Postada em 17/05/2004 18:39 hs            
Olá !
Não sei se entendi mas acho que é isto !
--------------------------------------------------------------------------
Dim Soma as Double
Set Rs1 = db.OpenRecordset("SELECT SUM([SALDO EM ESTOQUE] * [VALOR
UNITARIO])AS TOTAL FROM [CALCULO$]", dbOpenSnapshot)
If IsNull(Rs1("TOTAL")) Then
LbTotal = Format(0, "#,##0.00")
Else
LbTotal = Format(Rs1("TOTAL"), "#,##0.00")  
Soma = Rs1("TOTAL")
End If
LbTotal = Soma + CDbl(Lb_Entrada) - CDbl(Lbsaida)
------------------------------------------------------
SE não for isso mande de volta se explicando melhor !

  Eu sou o alfa e o ômega, o princípio e o fim, diz o Senhor, que é, e que era, e que há de vir, o Todo Poderoso. (Ap 1.8)
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página