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 aplicao nela (em um determinado momento) preciso trabalhar com duas tabelas, pois em uma carrega o cadastro do []congressista[] e na outra trs os valores (R$) que vo sendo pagos ao lango do ano... da na hora somar esses valores que vo 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, porm 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 tambm:
_______________________________________________________________________________________________________________
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.


Cursos de Excel e VB6:
cursoexcelvba.com.br


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

ROOLSI
ESTEIO
Cadast. em:Fevereiro/2015


Creio que esteja faltando o []apstrofo[] na clusula []where[]



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

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


Citação:
:
Creio que esteja faltando o []apstrofo[] na clusula []where[]


J tem, o prximo depois de: []WHERE Evento= [] ......
Mas de qualquer jeito tentei acrescentar ou modificar sua posio, mesmo assim d erro.

Cursos de Excel e VB6:
cursoexcelvba.com.br


#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 agradeo muito, Deus te abenoe meu querido!

Ento 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
____________________________________________________________________________________________________________

Cursos de Excel e VB6:
cursoexcelvba.com.br


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

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


S no pode esquecer de fechar o tpico 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