Boa-noite pessoal, tenho uma tabela chamada "Prevenda" com as seguintes Informações:

Nome dos campos

-------------------------------------

N_Pedido|Qtd     |Valor    | Total    |

-------------------------------------

   2          10        10,00     100,00

   2          10        12,00     120,00

   2          10        11,00     110,00

-------------------------------------

Estou usando esse código para poder somar num textbox o valor do campo Total:

SQL = "Select Sum(Total) From Prevenda"

Set Prevenda=Banco.Openrecordset(Sql, dbOpenDynaset)

Text1.text = Prevenda!Total

 

Bom, o meu problema é que com esse código ele informa que não encontrou nenhum registro, mesmo eu tendo certeza de que há valores digitados. Agradeço atenção.

Tente

 

SQL = "Select Sum(Total) as TOTAL_GERAL From Prevenda"

Set Prevenda=Banco.Openrecordset(Sql, dbOpenDynaset)

Text1.text = Prevenda.fields![TOTAL_GERAL]

Pois quando voce usa sum ou outra funcao ele transforma o nome do campo em EXPR001 ou algo similar