Duvida

[Guest Visitante]

Olá, estou precisando muitoo saber como:

1. Substituir "," por "." nos campos de um formulário.

2. Somar o conteúdo de uma coluna. Estou usando Access como banco de dados.

Obrigado!

[victormartins]

aqui tem um cod, não sei se te ajuda:

' ******************************************************* 
'******************************************************** 
' FUNÇÃO: fnc_RetiraVirgula(s as string) ** 
' VERSÃO: 1 REVISÃO: 2 ** 
' AUTOR: Victor Martins ** 
' ** 
' FUNÇÃO: Retira as virgulas de strings, retornando ** 
' a mesma com seu CASO normal. ** 
' ** 
'EXEMPLO: , --> . ** 
'******************************************************* 


Function fnc_RetiraVirgula(s) 
Dim vchars, chars, newS, i, j 
vchars = "," 
chars = "." 
newsS = s 
For i = 1 To Len(s) 
For j = 1 To Len(chars) 
If (Mid(s, i, 1) = Mid(chars, j, 1)) Then 
newsS = Replace(newsS, _ 
Mid(chars, j, 1), _ 
Mid(vchars, j, 1)) 
End If 
Next 
Next 
fnc_RetiraVirgula = newsS 
End Function 
' ** 
' ******************************************************** 
' ****************************************************** 

[.Andreia.]

1. Substituir "," por "." nos campos de um formulário.

variavel = replace(variavel, ",",".")

2. Somar o conteúdo de uma coluna. Estou usando Access como banco de dados.

sql = "select sum(campo) from TABELA"

[victormartins]

mais simples o que a andreia_sp falou