[Resolvido]Somar quantidade e salvar em campos diferentes

Bom dia!

Bd em Access 2010.


Segue função para somar quantidade:

Código:

Private Sub ApurarSomaQuantidade()   

    strSql = ""
    strSql = "SELECT  Sum(cs_zzz_tbl_ProdutosReferenciados.QUANTIDADE) AS txtTotalPares, cs_zzz_tbl_ProdutosReferenciados.SELECIONAR"
    strSql = strSql & " From cs_zzz_tbl_ProdutosReferenciados"

    strSql = strSql & " GROUP BY cs_zzz_tbl_ProdutosReferenciados.SELECIONAR"
    strSql = strSql & " HAVING SELECIONAR = -1;"
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset(strSql)

    Me.txtTotalPares = 0

    Do While Not rst.EOF
        Me.txtTotalPares = Me.txtTotalPares + rst("txtTotalPares")
        rst.MoveNext

        Me.Requery
    Loop


End Sub


Estou tentando ajustar a função acima para somar a quantidade, porém, de acordo com o campo ccCFOP. No caso, o valor do campo ccCFOP poderá ser 5124 ou 5902.

O teste abaixo exibe o seguinte erro: "Parâmetros insuficientes. Eram esperados 1."

Código:

Private Sub ApurarSomaQuantidadeComposto()   

    strSql = ""
    strSql = "SELECT  Sum(cs_zzz_tbl_ProdutosReferenciados.QUANTIDADE) AS txtTotalPares, cs_zzz_tbl_ProdutosReferenciados.SELECIONAR, cs_zzz_tbl_ProdutosReferenciados.ccCFOP =('5124'),"
    strSql = strSql & " Sum(cs_zzz_tbl_ProdutosReferenciados.QUANTIDADE) AS txtTotalPares5902, cs_zzz_tbl_ProdutosReferenciados.SELECIONAR, cs_zzz_tbl_ProdutosReferenciados.ccCFOP =('5902')"
    strSql = strSql & " From cs_zzz_tbl_ProdutosReferenciados"

    strSql = strSql & " GROUP BY cs_zzz_tbl_ProdutosReferenciados.SELECIONAR, cs_zzz_tbl_ProdutosReferenciados.ccCFOP"
    strSql = strSql & " HAVING SELECIONAR = -1;"
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset(strSql)

    Me.txtTotalPares = 0
    Me.txtTotalPares5902 = 0

    Do While Not rst.EOF
        Me.txtTotalPares = Me.txtTotalPares + rst("txtTotalPares")
        Me.txtTotalPares5902 = Me.txtTotalPares5902 + rst("txtTotalPares5902")
        rst.MoveNext

        Me.Requery
    Loop


End Sub


Desde já agradeço!

Olá;

Seu código corrigido, se o campo ccCFOP for texto, se for numerico não será assim;

Código:

Private Sub ApurarSomaQuantidadeComposto()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strSql$
  
    strSql = ""
    strSql = "SELECT  Sum(cs_zzz_tbl_ProdutosReferenciados.QUANTIDADE) AS txtTotalPares, cs_zzz_tbl_ProdutosReferenciados.SELECIONAR,cs_zzz_tbl_ProdutosReferenciados.ccCFOP"
    strSql = strSql & " From cs_zzz_tbl_ProdutosReferenciados"

    strSql = strSql & " GROUP BY cs_zzz_tbl_ProdutosReferenciados.SELECIONAR, cs_zzz_tbl_ProdutosReferenciados.ccCFOP"
    strSql = strSql & " HAVING SELECIONAR = True;"

    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset(strSql, dbOpenDynaset)
    
    If rst.RecordCount = 0 Then Exit Sub

    Me.txtTotalPares = 0
    Me.txtTotalPares5902 = 0

    rst.MoveLast
    rst.MoveFirst
    
    Do While Not rst.EOF
    
        If rst(2) = "5124" Or rst(2) = "5902" Then
            Me.txtTotalPares5902 = Me.txtTotalPares5902 + rst(0)
        End If
        
        If rst(2) <> "5124" And rst(2) <> "5902" Then
        Me.txtTotalPares = Me.txtTotalPares + rst(0)
        End If
        
        rst.MoveNext

        Me.Repaint
    Loop
End Sub

Se for numerico, será assim:

Código:

Private Sub ApurarSomaQuantidadeComposto()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strSql$
 
    strSql = ""
    strSql = "SELECT  Sum(cs_zzz_tbl_ProdutosReferenciados.QUANTIDADE) AS txtTotalPares, cs_zzz_tbl_ProdutosReferenciados.SELECIONAR,cs_zzz_tbl_ProdutosReferenciados.ccCFOP"
    strSql = strSql & " From cs_zzz_tbl_ProdutosReferenciados"

    strSql = strSql & " GROUP BY cs_zzz_tbl_ProdutosReferenciados.SELECIONAR, cs_zzz_tbl_ProdutosReferenciados.ccCFOP"
    strSql = strSql & " HAVING SELECIONAR = True;"

    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset(strSql, dbOpenDynaset)
   
    If rst.RecordCount = 0 Then Exit Sub

    Me.txtTotalPares = 0
    Me.txtTotalPares5902 = 0

    rst.MoveLast
    rst.MoveFirst
   
    Do While Not rst.EOF
   
        If rst(2) = 5124 Or rst(2) = 5902 Then
            Me.txtTotalPares5902 = Me.txtTotalPares5902 + rst(0)
        End If
       
        If rst(2) <> 5124 And rst(2) <> 5902 Then
        Me.txtTotalPares = Me.txtTotalPares + rst(0)
        End If
       
        rst.MoveNext

        Me.Repaint
    Loop
End Sub

Excelente JPaulo!

Muito obrigado e sucesso pra você!

Abraço

Fico feliz.

Obrigado pelo retorno.