[Resolvido]Somar todas as vendas por Codigo do Cliente

Bom dia, preciso de mais uma ajudinha aqui, vou explicar.

Tenho uma tabela TblVendas, essa possui um campo chamado APagar e outro campo contendo o codigo do Cliente Nome e etc.
Vou criar um campo dentro de um Formulario de teste, ode colocarei 3 campos: Codigo Cliente - Total Visitas Cliente - Total Vendas Feitas

Gostaria de ter a soma de todas as Vendas Feitas e o total de Vsitas Cliente pelo codigo do Cliente que estara dentro do campo "Codigo do Cliente"

Poderiam por favor me passar o comando pra mim por dentro de um botao de comando ?

Andre

Oi Andre

Tenta isto

Código:

Set RS = New ADODB.Recordset
    RS.CursorLocation = adUseClient
    RS.Open "SELECT Sum(APagar) As TotalVendas " & _
            "FROM TblVendas " & _
            "WHERE CodCliente='" & Me.Cliente & "'", CN, adOpenStatic, adLockPessimistic
    Me.Total = RS!TotalVendas
    Set RS = Nothing

Saludos desde Bolivia

Ola
Criei o Botao Coloquei seu codigo dentro
Criei 2 caixas de texto com nome Cliente e Total

Ao clicar botao da erro na primeira linha

Set RS = New ADODB.Recordset

O tipo definido pelo usuario nao foi definido e a mensagem do erro

Andre

Boa noite,
Faça assim:

Código:

Dim Rs as DAO.Recordset
Set RS = Currentdb.OpenRecordset("SELECT Sum(APagar) As TotalVendas " & _
            "FROM TblVendas " & _
            "WHERE CodCliente='" & Me.Cliente & "'")
    Me.Total = RS!TotalVendas
    Rs.Close
    Set RS = Nothing


deu erro aqui agora

Set RS = Currentdb.OpenRecordset("SELECT Sum(APagar) As TotalVendas " & _
"FROM TblVendas " & _
"WHERE CodCliente='" & Me.Cliente & "'")


Tipo de dados incompativel na expressao criterio

como teste coloquei direto um ClienteID daii funcinou

Mas preciso que seja de acordo com que estiver em Me.Cliente

Set Rs = CurrentDb.OpenRecordset("SELECT Sum(APagar) As TotalVendas " & _
"FROM TblVenda " & _
"WHERE ClienteID=2") '& Me.Cliente2 & "'")

Acertei aqui

Set Rs = CurrentDb.OpenRecordset("SELECT Sum(APagar) As TotalVendas " & _
"FROM TblVenda " & _
"WHERE ClienteID= " & Me.Cliente & "")

Isso, como só estava "Cliente" pensei que estava buscando pelo nome.
Obrigado, o fórum agradece.

Aproveitando o gancho,

E qual modificacao devo fazer no comando para que agora ao inves de somar os valores de cada Venda, ele some a quantidade de vendas do cliente ?

Digamos cliente possui as seguintes visistas

10/10/2019 - 200,00
15/11/2019 - 300,00
20/11/2019 - 400,00

Enato este cliente tem 3 visitas

Troque o Sum pelo Count

Veja:

Código:

Dim Rs as DAO.Recordset
Set RS = Currentdb.OpenRecordset("SELECT Count(APagar) As TotalVendas " & _
            "FROM TblVendas " & _
            "WHERE CodCliente=" & Me.Cliente & "")
    Me.Total = RS!TotalVendas
    Rs.Close
    Set RS = Nothing

grato amigao

andre