[Resolvido]Consulta, somando quantidades

Caros,

Boa tarde

Preciso fazer uma consulta no meu banco e trazer o seguinte resultado.

Campos do banco
TBEstatistica.Processo
TBEstatistica.Canal
TBEstatistica.Quantidade
TBEstatistica.MesAno

O que Preciso

Fazer uma consulta trazendo a soma da seguinte maneira

Por Mês

Um Total Geral
Somar as quantidades por Processo ( Trazer separado )
Somar as quantidades por Canal ( Trazer separado )

Como ficaria minha SQL para para fazer essa somatória?

Você precisa exibir isso em um formulário? Se for, pode tentar algo assim:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT NomeCampo FROM NomeDaTabela WHERE Código=" & Me.Código & "")

Me.CampoDoForm = 0

Do While Not rs.EOF
Me.CampoDoForm = Val(Me.CampoDoForm) + Val(rs!CampoDaTabela)
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Criquio,

Boa Noite

Esses valores preciso jogar para uma planilha, porem o mesmo deveria aparecer conforme o exemplo abaixo

Processo Janeiro | Fevereiro | Março

Brindes 10 20 15
Diversos 30 30 45

Total 40 50 60

Seria isso.

Caros,

Bom dia

Segue o modelo onde desejo fazer a consulta no banco e trazer o resultado para uma planilha do excel.

Estou iniciando nos comando de SQL e tenho ainda muito que aprender.

BRINDES campo no banco (Processo)
Carta, fax campo no banco (Canal)
Os valores campo no banco (Quantidade)
os Meses campo no banco (MesAno)

Quando sair o resultado da busca devera apresentar os dados conforme abaixo.

Janeiro Fevereiro
BRINDES
Carta 1 0
Fax 7 5
Relatório 10 6
TOTAL 18 11

CALL URGENTE
Imprensa 38 39
Fax 225 295
TOTAL 263 334

TOTAL GERAL
Carta 1 0
Fax 232 300
Relatório 10 6
Imprensa 38 39
281 345

Pessoal

Consegui fazer a primeira parte, agora gostaria de colocar os dados do campo mês na vertical, informando as quantidades abaixo de cada mês.

PROCESSO QUANTIDADE CANAL MÊS
Brindes 9 NetCallCenter fevereiro/2012
Brindes 11 Outras Áreas fevereiro/2012
Brindes 3 ramal fevereiro/2012
Brindes 6 Relatório fevereiro/2012
Brindes 6 uwq fevereiro/2012
Brindes 1 Carta janeiro/2012
Brindes 41 NetCallCenter janeiro/2012
Brindes 39 Outras Áreas janeiro/2012
Brindes 5 Ramal janeiro/2012
Brindes 10 Relatório janeiro/2012
Brindes 5 uwq janeiro/2012


Segue código do primeiro filtro, vejam se da para adaptar para fazer o que quero

Sub Busca_Quantidades_Proc_Canal_Mes()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String


Sheets("Resultado").Activate

Set db = OpenDatabase("C:\Base.mdb")

Sheets("Resultado").Activate
Range("a65000").End(xlUp).Select
qtde_lin = ActiveCell.Row
If qtde_lin > 1 Then Range("A2:D" & qtde_lin).Clear

sql = "SELECT TBEstatistica.Processo, " & _
"SUM(TBEstatistica.Quantidade) as Quantidade, TBEstatistica.Canal,TBEstatistica.MESANO " & _
"FROM [TBEstatistica] " & _
"WHERE TBEstatistica.Canal = TBEstatistica.Canal " & _
"AND TBEstatistica.MESANO = TBEstatistica.MESANO " & _
"GROUP BY TBEstatistica.Processo, TBEstatistica.Canal, TBEstatistica.MESANO ORDER BY TBEstatistica.MESANO;"


Set rs = db.OpenRecordset(sql)

lin_tbl = Cells(2, 1).CopyFromRecordset(rs)

db.Close

Set db = Nothing
Set rs = Nothing


End Sub

Já verificou a opção "Vertical" nas propriedades do campo?

Não entendi,

Como se verifica isso ?

Como mencionei, nas propriedades do campo. Dê uma olhada nelas aí.

Criquio,

Onde devo ver essa propriedade de campo que você fala?

to meio perdido agora.

Quando você clica em um controle, as propriedades referentes ao mesmo são exibidas. Se não for, clique com o botão direito no controle e clique em Propriedades.

Os dados são lançados direto para uma planilha do excel.

A macro mencionada acima é acionada por um botão dentro da planilha.

Tente:

ActiveCell.Orientation = 90 ' ou - 90 para inverter o lado do texto.

Criquio,

Quando digo que o campo do mês na vertical, eu quero é que os dados sejam colocados na planilha da seguinte forma

Processo, Canal, Janeiro Fevereiro
Quantidade Quantidade

Att

Não sei se para isso teria que mudar o código na forma como jogo os dados para a planilha, jogando linha a linha.

Vai depender de como está a estrutura de tudo. Talvez um Loop pela tabela consiga o intento, ou talvez um consulta de referência cruzada.

Obrigado