TRABALHANDO COM DUAS TABELAS (ACCESS)

 Tópico anterior Próximo tópico Novo tópico

TRABALHANDO COM DUAS TABELAS (ACCESS)

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#492220 - 14/01/2020 22:35:24

RICARDOPIBU
CABO FRIO
Cadast. em:Março/2018


Olá!
Tenho uma aplicação nela (em um determinado momento) preciso trabalhar com duas tabelas, pois em uma carrega o cadastro do "congressista" e na outra trás os valores (R$) que vão sendo pagos ao lango do ano... daí na hora somar esses valores que vão sendo alimentados num campo da tabela feita no access, consegui esse comando :
_____________________________________________________________________________________________________________________
Private Sub BuscarParticipante()
connectDB
   rs.Open "SELECT SUM(C.ValorRecebido1) AS Total, A.Codigo, A.Evento, A.Nome FROM TBNovasInscricoes_Financeiro AS C " & _
           "INNER JOIN TBNovasInscricoes AS A " & _
           "ON C.CodEvento = A.Codigo " & _
           "GROUP BY A.Codigo, A.Nome, A.Evento " & _
           "ORDER BY A.Nome", db, 2, 4
   Do Until rs.EOF
      Set item = lstPagamentoAluno.ListItems.Add(, , rs!Codigo)
       item.SubItems(1) = rs!Codigo
       item.SubItems(3) = rs!Nome
       item.SubItems(4) = "" & "R$ " & VBA.Format(rs.Fields("Total"), "#,##0.00")
       If item.SubItems(4) = "" & "R$ " Then
          item.SubItems(4) = "" & "R$ 0,00"
       End If
      rs.MoveNext
   Loop
FechaDB
End Sub
______________________________________________________________________________________________________________

Funciona de boa, porém quando tenho outro(s) evento(s) nessa mesma tabela onde vai armazenando os valores (R$), acontece que ela soma tudo que está nessa tabela, e eu gostaria de somar apenas o evento que estou pesquisando.... e este evento fica numa combobox chamada cbxEvento.... já tentei isso ai também:
_______________________________________________________________________________________________________________
Private Sub BuscarParticipante()
connectDB
   rs.Open "SELECT SUM(C.ValorRecebido1) AS Total, A.Codigo, A.Evento, A.Nome FROM TBNovasInscricoes_Financeiro AS C " & _
           "INNER JOIN TBNovasInscricoes AS A " & _
           "ON C.CodEvento = A.Codigo " & _
          "WHERE Evento= '" & cbxEvento.TEXT & _
           "GROUP BY A.Codigo, A.Nome, A.Evento " & _
           "ORDER BY A.Nome", db, 2, 4
   Do Until rs.EOF
      Set item = lstPagamentoAluno.ListItems.Add(, , rs!Codigo)
       item.SubItems(1) = rs!Codigo
       item.SubItems(3) = rs!Nome
       item.SubItems(4) = "" & "R$ " & VBA.Format(rs.Fields("Total"), "#,##0.00")
       If item.SubItems(4) = "" & "R$ " Then
          item.SubItems(4) = "" & "R$ 0,00"
       End If
      rs.MoveNext
   Loop
FechaDB
End Sub  
______________________________________________________________________________________________________

Onde tento especificar que quero somente pesquisar os valores do evento da combobox.




Resposta escolhida #492221 - 15/01/2020 09:42:42

ROOLSI
ESTEIO
Cadast. em:Fevereiro/2015


Creio que esteja faltando o "apóstrofo" na cláusula "where"



#492222 - 15/01/2020 10:50:15

RICARDOPIBU
CABO FRIO
Cadast. em:Março/2018


Citação:
:
Creio que esteja faltando o "apóstrofo" na cláusula "where"


Já tem, é o próximo depois de: "WHERE Evento= ' ......
Mas de qualquer jeito tentei acrescentar ou modificar sua posição, mesmo assim dá erro.



#492223 - 15/01/2020 10:56:57

ROOLSI
ESTEIO
Cadast. em:Fevereiro/2015


Tente dessa maneira: WHERE Evento= '" & cbxEvento.TEXT & "' " & _



#492224 - 15/01/2020 11:05:05

RICARDOPIBU
CABO FRIO
Cadast. em:Março/2018


Citação:
:
Tente dessa maneira: WHERE Evento= '" & cbxEvento.TEXT & "' " & _



CARACAAAAA..... Muito obrigado meu nobre, te agradeço muito, Deus te abençoe meu querido!

Então ficou assim....
__________________________________________________________________________________________________________
connectDB
   rs.Open "SELECT SUM(C.ValorRecebido1) AS Total, A.Codigo, A.Evento, A.Nome FROM TBNovasInscricoes_Financeiro AS C " & _
           "INNER JOIN TBNovasInscricoes AS A " & _
           "ON C.CodEvento = A.Codigo " & _
           "WHERE Evento= '" & cbxEvento.TEXT & "'" & _
           "GROUP BY A.Codigo, A.Nome, A.Evento " & _
           "ORDER BY A.Nome", db, 2, 4
   Do Until rs.EOF
      Set item = lstPagamentoAluno.ListItems.Add(, , rs!Codigo)
       item.SubItems(1) = rs!Codigo
       item.SubItems(3) = rs!Nome
       item.SubItems(4) = "" & "R$ " & VBA.Format(rs.Fields("Total"), "#,##0.00")
       If item.SubItems(4) = "" & "R$ " Then
          item.SubItems(4) = "" & "R$ 0,00"
       End If
      rs.MoveNext
   Loop
FechaDB
____________________________________________________________________________________________________________



#492225 - 15/01/2020 11:06:45

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Só não pode esquecer de fechar o tópico e pontuar .



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por RICARDOPIBU em 15/01/2020 11:19:05