[Resolvido]Caixa de listagem considerar mes atual

Ola venho novamente aqui para que possam completar o comando abaixo.
Ao carregar o form o comando abaixo esta ok.

Código:

Me!Lista2.RowSource = "SELECT tblVendaDet.vendaID, tblVenda.dataVenda, tblVendaDet.qtdVenda, tblVendaDet.produtoID, tblVendaDet.Produto, tblVendaDet.Sabor, tblVendaDet.Apres, tblVendaDet.Origem_Produto, tblCad_Empresa.Fantasia " & _
                      "FROM tblVenda INNER JOIN (tblVendaDet INNER JOIN tblCad_Empresa ON tblVendaDet.Origem_Produto = tblCad_Empresa.idEmpresa) ON tblVenda.idVenda = tblVendaDet.vendaID " & _
                      "WHERE (((tblVendaDet.Origem_Produto)=2)) " & _
                      "ORDER BY tblVendaDet.vendaID DESC;"

Tenho 2 origens , 1 e 2.
O comando acima esta mostrando corretamente por Origem do produto =2, porem pega tudo, eu gostaria que se baseasse pela pela Caixa de Texto Mes e Caixa e texto Ano.

Quero adaptar assim:

Terei uma caixa de Texto contendo o Mes e outros dois botoes Avancar e recuar o mes
Terei tb outra caixa de texto contendo o ano e 2 botoes avancar e recuar.

Entao sendo assim, se eu usar os botoes de Mes avanca e recua, a caixa de listagem mostre somente os dados do mes da Caixa A
Se eu usar os botoes do ano entao mostrara tudo relacionado ao ano da caixa B

Podem me adaptar para Me e eno por favor ?

Andre

Boa tarde
Acompanhe o fórum para evoluir e poder ajudar em dúvidas simples para ir melhorando
Sobre a sua dúvida
Me!Lista2.RowSource = "SELECT tblVendaDet.vendaID, tblVenda.dataVenda, tblVendaDet.qtdVenda, tblVendaDet.produtoID, tblVendaDet.Produto, tblVendaDet.Sabor, tblVendaDet.Apres, tblVendaDet.Origem_Produto, tblCad_Empresa.Fantasia " & _
                      "FROM tblVenda INNER JOIN (tblVendaDet INNER JOIN tblCad_Empresa ON tblVendaDet.Origem_Produto = tblCad_Empresa.idEmpresa) ON tblVenda.idVenda = tblVendaDet.vendaID " & _
                      "WHERE tblVendaDet.Origem_Produto=2 and Month(tblVenda.dataVenda)=" & TxtMes & " and Year(tblVenda.dataVenda)=" & TxtAno & _
                      "ORDER BY tblVendaDet.vendaID DESC;"

usei conforme mas nao funcionou

Me!Lista2.RowSource = "SELECT tblVendaDet.vendaID, tblVenda.dataVenda, tblVendaDet.qtdVenda, tblVendaDet.produtoID, tblVendaDet.Produto, tblVendaDet.Sabor, tblVendaDet.Apres, tblVendaDet.Origem_Produto, tblCad_Empresa.Fantasia " & _
"FROM tblVenda INNER JOIN (tblVendaDet INNER JOIN tblCad_Empresa ON tblVendaDet.Origem_Produto = tblCad_Empresa.idEmpresa) ON tblVenda.idVenda = tblVendaDet.vendaID " & _
"WHERE tblVendaDet.Origem_Produto=1 and Month(tblVenda.dataVenda)=" & Me!Mes & " and Year(tblVenda.dataVenda)=" & Me!Ano & _
"ORDER BY tblVendaDet.vendaID DESC;"

Código:

Private Sub btAnterior_Click()
If Mes > 1 Then
Me.Mes = Mes - 1
Me!Lista2.RowSource = "SELECT tblVendaDet.vendaID, tblVenda.dataVenda, tblVendaDet.qtdVenda, tblVendaDet.produtoID, tblVendaDet.Produto, tblVendaDet.Sabor, tblVendaDet.Apres, tblVendaDet.Origem_Produto, tblCad_Empresa.Fantasia " & _
                      "FROM tblVenda INNER JOIN (tblVendaDet INNER JOIN tblCad_Empresa ON tblVendaDet.Origem_Produto = tblCad_Empresa.idEmpresa) ON tblVenda.idVenda = tblVendaDet.vendaID " & _
                      "WHERE tblVendaDet.Origem_Produto=1 and Month(tblVenda.dataVenda)=" & Me.Mes & " and Year(tblVenda.dataVenda)=" & Me.Ano & _
                      "ORDER BY tblVendaDet.vendaID DESC;"
End If
End Sub

em cima de sua composicao bati bati e consegui, seguindo sua lojica e outra que eu tinha em outra parte aqui de outro form

Me!Lista2.RowSource = "SELECT tblVendaDet.vendaID, tblVenda.dataVenda, tblVendaDet.qtdVenda, tblVendaDet.produtoID, tblVendaDet.Produto, tblVendaDet.Sabor, tblVendaDet.Apres, tblVendaDet.Origem_Produto, tblCad_Empresa.Fantasia " & _
"FROM tblVenda INNER JOIN (tblVendaDet INNER JOIN tblCad_Empresa ON tblVendaDet.Origem_Produto = tblCad_Empresa.idEmpresa) ON tblVenda.idVenda = tblVendaDet.vendaID " & _

consertado "WHERE tblVendaDet.Origem_Produto=2 And Month(tblVenda.dataVenda) = '" & txtMes & "' And Year(tblVenda.dataVenda) = '" & txtAno & "'" & _
Enviado por vc "WHERE tblVendaDet.Origem_Produto=2 and Month(tblVenda.dataVenda)=" & TxtMes & " and Year(tblVenda.dataVenda)=" & TxtAno & _

"ORDER BY tblVendaDet.vendaID DESC;"

E se eu colocasse uma Ref em 2, como ficaria ?

txtRef ao ser carregado sera 1, mas tenho um botao que faz alterar txtFef =2 dai ao atualiazar chama Lista abaixo

consertado "WHERE tblVendaDet.Origem_Produto=2 And Month(tblVenda.dataVenda) = '" & txtMes & "' And Year(tblVenda.dataVenda) = '" & txtAno & "'" & _


tentei assim mas a caixa listagem fica em branco

"WHERE tblVendaDet.Origem_Produto= '" & txtRef & "' And Month(tblVenda.dataVenda) = '" & txtMes & "' And Year(tblVenda.dataVenda) = '" & txtAno & "'" & _

acabei resolvendo de outra forma

If txtref = 1 Then
Me!Lista2.RowSource = "SELECT tblVendaDet.vendaID, tblVenda.dataVenda, tblVendaDet.TotalVenda, tblVendaDet.produtoID, tblVendaDet.Produto, tblVendaDet.Sabor, tblVendaDet.Apres, tblVendaDet.Origem_Produto, tblCad_Empresa.Fantasia " & _
"FROM tblVenda INNER JOIN (tblVendaDet INNER JOIN tblCad_Empresa ON tblVendaDet.Origem_Produto = tblCad_Empresa.idEmpresa) ON tblVenda.idVenda = tblVendaDet.vendaID " & _
"WHERE tblVendaDet.Origem_Produto=1 And Month(tblVenda.dataVenda) = '" & txtMes & "' And Year(tblVenda.dataVenda) = '" & txtAno & "'" & _
"ORDER BY tblVendaDet.vendaID DESC;"
Else
Me!Lista2.RowSource = "SELECT tblVendaDet.vendaID, tblVenda.dataVenda, tblVendaDet.TotalVenda, tblVendaDet.produtoID, tblVendaDet.Produto, tblVendaDet.Sabor, tblVendaDet.Apres, tblVendaDet.Origem_Produto, tblCad_Empresa.Fantasia " & _
"FROM tblVenda INNER JOIN (tblVendaDet INNER JOIN tblCad_Empresa ON tblVendaDet.Origem_Produto = tblCad_Empresa.idEmpresa) ON tblVenda.idVenda = tblVendaDet.vendaID " & _
"WHERE tblVendaDet.Origem_Produto=2 And Month(tblVenda.dataVenda) = '" & txtMes & "' And Year(tblVenda.dataVenda) = '" & txtAno & "'" & _
"ORDER BY tblVendaDet.vendaID DESC;"
End If