Fóruns
Microsoft Excel - 2...
2024 - Integração E...
Retornar Soma do Ac...
 
Notifications
Clear all

Retornar Soma do Access para VBA

 
2024 - Integração Excel & Access 2024
Post Recente por wfranca 8 anos atrás
7 Posts
2 Usuários
0 Reactions
2,415 Visualizações
RSS
wfranca
 wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Pessoal boa noite.

Estou com alguns problemas com retorno da soma de alguns critérios do meu banco de dados em access

Seguinte eu tenho os seguintes dados em access: (exemplo)

CENTRO- ------- - M2 ----------MÊS
Tear01 -------- 200 ---------JANEIRO
Tear02 -------- 100 ---------FEVEREIRO
Tear03 -------- 100 -------- MARÇO

no meu Form eu tenho uma combobox que carrega o centro e uma combobox que carrega o mês e uma textbox onde quero que apareça a soma do meu banco de dados.

Anexei os modelo para melhor entendimento.

TESTE_SOMA (2).zip

Welington Gonçalves

 
Postado : 27/07/2016 8:02 pm
 tarcelles
(@tarcelles)
Posts: 61
Trusted Member
 

Bom dia.

So faltou dizer uma coisa, a soma de que ?

 
Postado : 28/07/2016 4:58 am
wfranca
 wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Ops.. A soma da columa M2 (metros Quadrados)

Welington Gonçalves

 
Postado : 28/07/2016 4:59 am
 tarcelles
(@tarcelles)
Posts: 61
Trusted Member
 

Se for o M2 coloca isso aqui no click do bota calcular, ou chame o método 'somar' no botao calcular.

Private Sub SOMAR()

Call Conecta
ComandoSQL = "SELECT COUNT(M2) AS SOMA FROM TB_DADOS"
Set consulta = banco.OpenRecordset(ComandoSQL)


Me.txt_M2.Text = consulta("SOMA")



                    
                    
                    
End Sub
 
Postado : 28/07/2016 5:12 am
wfranca
 wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

mas no caso.. eu tenho critérios..

uma combobox que filtra o centro e uma que filtra o mês.. assim ele me tras o resultado referente ao M2

Welington Gonçalves

 
Postado : 28/07/2016 5:25 am
 tarcelles
(@tarcelles)
Posts: 61
Trusted Member
 

è so utilizar o Where... por exemplo.

ComandoSQL = "SELECT COUNT(M2) AS SOMA FROM TB_DADOS WHERE CENTRO='" & ME.CMBCENTRO.VALUE & " ' "
 
Postado : 28/07/2016 5:57 am
wfranca
 wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Deu um erro... sabe oq pode ser?

Welington Gonçalves

 
Postado : 28/07/2016 10:05 am
Forum Jump:
  Tópico Anterior
Próximo Tópico