MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Somar todas as vendas por Codigo do Cliente

    Compartilhe
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 327
    Registrado : 05/03/2017

    [Resolvido]Somar todas as vendas por Codigo do Cliente

    Mensagem  fazerbem em 27/11/2018, 12:21

    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
    FranklinJSP
    FranklinJSP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 191
    Registrado : 25/02/2016

    Re: [Resolvido]Somar todas as vendas por Codigo do Cliente

    Mensagem  FranklinJSP em 27/11/2018, 14:52

    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


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 327
    Registrado : 05/03/2017

    Re: [Resolvido]Somar todas as vendas por Codigo do Cliente

    Mensagem  fazerbem em 27/11/2018, 20:53

    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
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 05/12/2016

    Re: [Resolvido]Somar todas as vendas por Codigo do Cliente

    Mensagem  caiosouza em 27/11/2018, 22:07

    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


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 327
    Registrado : 05/03/2017

    Re: [Resolvido]Somar todas as vendas por Codigo do Cliente

    Mensagem  fazerbem em 28/11/2018, 13:56

    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
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 327
    Registrado : 05/03/2017

    Re: [Resolvido]Somar todas as vendas por Codigo do Cliente

    Mensagem  fazerbem em 28/11/2018, 14:02

    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 & "'")
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 327
    Registrado : 05/03/2017

    Re: [Resolvido]Somar todas as vendas por Codigo do Cliente

    Mensagem  fazerbem em 28/11/2018, 14:10

    Acertei aqui

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 05/12/2016

    Re: [Resolvido]Somar todas as vendas por Codigo do Cliente

    Mensagem  caiosouza em 28/11/2018, 16:29

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


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 327
    Registrado : 05/03/2017

    Re: [Resolvido]Somar todas as vendas por Codigo do Cliente

    Mensagem  fazerbem em 28/11/2018, 17:14

    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

    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 05/12/2016

    Re: [Resolvido]Somar todas as vendas por Codigo do Cliente

    Mensagem  caiosouza em 28/11/2018, 17:55

    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


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 327
    Registrado : 05/03/2017

    Re: [Resolvido]Somar todas as vendas por Codigo do Cliente

    Mensagem  fazerbem em 28/11/2018, 19:55

    grato amigao

    andre

      Data/hora atual: 18/3/2019, 22:29