SOMAR CAMPO DO FLEXGRID
BOA TARDE
FIZ UM FORM DE CONSULTAS DAS VENDAS QUE FORAM EFETUADAS
GOSTARIA DE SOMAR OS CAMPOS CORRESPONDENTES AOS VALORES. MEU CÓDIGO é ESSE
Private Sub cmdPesquisar_Click()
Dim i As Integer
Dim soma As Currency
Set rsVendas = cnn.Execute([Ô]SELECT * FROM Vendas WHERE data BETWEEN #[Ô] & Format(dtData1, [Ô]mm/dd/yyyy[Ô]) & [Ô]# And #[Ô] & Format(dtData2, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô])
With GridVendas
.Clear
.Cols = 5
.Rows = 1
GridVendas.TextMatrix(0, 1) = [Ô]DATA[Ô]
GridVendas.TextMatrix(0, 3) = [Ô]CLIENTE[Ô]
GridVendas.TextMatrix(0, 4) = [Ô]VALOR[Ô]
.ColWidth(0) = 200
.ColWidth(1) = 1200
.ColWidth(2) = 800
.ColWidth(3) = 5600
.ColWidth(4) = 2000
Do While Not rsVendas.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 1) = Format(rsVendas!Data, [Ô]dd/mm/yyyy[Ô])
.TextMatrix(.Rows - 1, 3) = rsVendas!Cliente & [Ô][Ô]
.TextMatrix(.Rows - 1, 4) = Format(rsVendas!Total, [Ô]Currency[Ô])
rsVendas.MoveNext
Loop
End With
For i = 1 To GridVendas.ColWidth(2)
soma = soma + (GridVendas.ColWidth(2))
txtTotal = soma
Next i
rsVendas.Close
End Sub
ESSE TXTTOTAL é UM TEXTBOX ONDE DEVERIA APARECER O RESULTADO DA SOMA
DESSE MODO QUE EU CODIFIQUEI SEMPRE APARECE UM NÚMERO QUE NÃO TEM NADA A VER COM A SOMA.
OBRIGADO A TODOS
PS.O RESTO ESTà FUNCIONANDO PERFEITO é SÓ O TRECHO DA SOMA QUE GOSTARIA DE CONSERTAR.
FIZ UM FORM DE CONSULTAS DAS VENDAS QUE FORAM EFETUADAS
GOSTARIA DE SOMAR OS CAMPOS CORRESPONDENTES AOS VALORES. MEU CÓDIGO é ESSE
Private Sub cmdPesquisar_Click()
Dim i As Integer
Dim soma As Currency
Set rsVendas = cnn.Execute([Ô]SELECT * FROM Vendas WHERE data BETWEEN #[Ô] & Format(dtData1, [Ô]mm/dd/yyyy[Ô]) & [Ô]# And #[Ô] & Format(dtData2, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô])
With GridVendas
.Clear
.Cols = 5
.Rows = 1
GridVendas.TextMatrix(0, 1) = [Ô]DATA[Ô]
GridVendas.TextMatrix(0, 3) = [Ô]CLIENTE[Ô]
GridVendas.TextMatrix(0, 4) = [Ô]VALOR[Ô]
.ColWidth(0) = 200
.ColWidth(1) = 1200
.ColWidth(2) = 800
.ColWidth(3) = 5600
.ColWidth(4) = 2000
Do While Not rsVendas.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 1) = Format(rsVendas!Data, [Ô]dd/mm/yyyy[Ô])
.TextMatrix(.Rows - 1, 3) = rsVendas!Cliente & [Ô][Ô]
.TextMatrix(.Rows - 1, 4) = Format(rsVendas!Total, [Ô]Currency[Ô])
rsVendas.MoveNext
Loop
End With
For i = 1 To GridVendas.ColWidth(2)
soma = soma + (GridVendas.ColWidth(2))
txtTotal = soma
Next i
rsVendas.Close
End Sub
ESSE TXTTOTAL é UM TEXTBOX ONDE DEVERIA APARECER O RESULTADO DA SOMA
DESSE MODO QUE EU CODIFIQUEI SEMPRE APARECE UM NÚMERO QUE NÃO TEM NADA A VER COM A SOMA.
OBRIGADO A TODOS
PS.O RESTO ESTà FUNCIONANDO PERFEITO é SÓ O TRECHO DA SOMA QUE GOSTARIA DE CONSERTAR.
Está errado. Modifique para:
For i = 1 To GridVendas.rows-1
soma = soma + val(GridVendas.textmatrix(i,COLUNADESEJADA)
Next i
txtTotal = soma
EDERMIR Boa tarde
FIZ COMO VC DISSE
For i = 1 To GridVendas.rows-1
soma = soma + val(GridVendas.textmatrix(i,4)
Next i
txtTotal = soma
O RESULTADO QUE APARECE é SEMPRE O NÚMERO 0
FIZ COMO VC DISSE
For i = 1 To GridVendas.rows-1
soma = soma + val(GridVendas.textmatrix(i,4)
Next i
txtTotal = soma
O RESULTADO QUE APARECE é SEMPRE O NÚMERO 0
Tente desta forma
For i = 1 To GridVendas.Rows -1
soma = soma + CCur(GridVendas.TextMatrix(i,4))
Next i
txtTotal = soma
OBRIGADO MARCELO
VALEU,CERTINHO,FICOU SHOW DE BOLA
VALEU,CERTINHO,FICOU SHOW DE BOLA
Tópico encerrado , respostas não são mais permitidas