SOMAR COLUNA COM COMANDO SQL
Pessoal boa tarde!
Gostaria da ajuda de vocês para o seguinte problema:
- Preciso fazer a soma de uma coluna onde guardo a quantidade de itens divididos, porém, ao usar o comando em SQL o mesmo não executa retornando uma mensagem de erro na cláusula FROM.
Uso banco ACCESS para o projeto.
Abaixo segue a linha de código onde faço a atualização.
Private Sub gridtemp_DblClick()
On Error GoTo erronovo
If MsgBox([Ô]Fazer uma nova divisão do produto?[Ô], vbQuestion + vbYesNo, [Ô]Divisão de Produtos[Ô]) = vbYes Then
txtproduto = gridtemp.Columns(0).Text
midseqdivisao = gridtemp.Columns(1).Text + 1
divide_produto
Else
txtsoma = [Ô][Ô]
midseqdivisao = gridtemp.Columns(1).Text
mcodigo = gridtemp.Columns(0).Text
txtproduto = mcodigo
sqlsoma = [Ô]SELECT DISTINCTROW [Divisao].[IdEmpresa], [Divisao].[Data_Divisao], [Divisao].[Fantasia], [Divisao].[Sufixo],[Ô] & _
[Ô][Divisao].[IdSeqDivisao], [Divisao].[IdProduto], Sum([Divisao].[Qtde]) AS [xqtde] From Divisao[Ô] & _
[Ô]GROUP BY [Divisao].[IdEmpresa], [Divisao].[Data_Divisao], [Divisao].[Fantasia], [Divisao].[Sufixo],[Ô] & _
[Ô][Divisao].[IdSeqDivisao], [Divisao].[IdProduto][Ô]
datadivisao.RecordSource = sqlsoma
datadivisao.Refresh
txtsoma = xqtde
End If
erronovo:
If Err Then
MsgBox Err.Description
End If
End Sub
Desde já agradeço a todos.
Gostaria da ajuda de vocês para o seguinte problema:
- Preciso fazer a soma de uma coluna onde guardo a quantidade de itens divididos, porém, ao usar o comando em SQL o mesmo não executa retornando uma mensagem de erro na cláusula FROM.
Uso banco ACCESS para o projeto.
Abaixo segue a linha de código onde faço a atualização.
Private Sub gridtemp_DblClick()
On Error GoTo erronovo
If MsgBox([Ô]Fazer uma nova divisão do produto?[Ô], vbQuestion + vbYesNo, [Ô]Divisão de Produtos[Ô]) = vbYes Then
txtproduto = gridtemp.Columns(0).Text
midseqdivisao = gridtemp.Columns(1).Text + 1
divide_produto
Else
txtsoma = [Ô][Ô]
midseqdivisao = gridtemp.Columns(1).Text
mcodigo = gridtemp.Columns(0).Text
txtproduto = mcodigo
sqlsoma = [Ô]SELECT DISTINCTROW [Divisao].[IdEmpresa], [Divisao].[Data_Divisao], [Divisao].[Fantasia], [Divisao].[Sufixo],[Ô] & _
[Ô][Divisao].[IdSeqDivisao], [Divisao].[IdProduto], Sum([Divisao].[Qtde]) AS [xqtde] From Divisao[Ô] & _
[Ô]GROUP BY [Divisao].[IdEmpresa], [Divisao].[Data_Divisao], [Divisao].[Fantasia], [Divisao].[Sufixo],[Ô] & _
[Ô][Divisao].[IdSeqDivisao], [Divisao].[IdProduto][Ô]
datadivisao.RecordSource = sqlsoma
datadivisao.Refresh
txtsoma = xqtde
End If
erronovo:
If Err Then
MsgBox Err.Description
End If
End Sub
Desde já agradeço a todos.
Fazer diretamente no select da certo. Com tanto que o campo seja numérico e não de texto
Acciolly,
Boa tarde!
O campo Qtde é númerico, bem como os campos IdProduto e IdSeqDivisao.
Att.
Boa tarde!
O campo Qtde é númerico, bem como os campos IdProduto e IdSeqDivisao.
Att.
Tópico encerrado , respostas não são mais permitidas