MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Caixa de listagem considerar mes atual

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 382
    Registrado : 05/03/2017

    [Resolvido]Caixa de listagem considerar mes atual Empty [Resolvido]Caixa de listagem considerar mes atual

    Mensagem  fazerbem em 14/4/2019, 17:02

    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


    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7699
    Registrado : 05/11/2009

    [Resolvido]Caixa de listagem considerar mes atual Empty Re: [Resolvido]Caixa de listagem considerar mes atual

    Mensagem  Alexandre Neves em 14/4/2019, 17:35

    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;"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 382
    Registrado : 05/03/2017

    [Resolvido]Caixa de listagem considerar mes atual Empty Re: [Resolvido]Caixa de listagem considerar mes atual

    Mensagem  fazerbem em 14/4/2019, 18:05

    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
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 382
    Registrado : 05/03/2017

    [Resolvido]Caixa de listagem considerar mes atual Empty Re: [Resolvido]Caixa de listagem considerar mes atual

    Mensagem  fazerbem em 14/4/2019, 22:16

    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;"

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 382
    Registrado : 05/03/2017

    [Resolvido]Caixa de listagem considerar mes atual Empty Re: [Resolvido]Caixa de listagem considerar mes atual

    Mensagem  fazerbem em 14/4/2019, 23:10

    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 & "'" & _
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 382
    Registrado : 05/03/2017

    [Resolvido]Caixa de listagem considerar mes atual Empty Re: [Resolvido]Caixa de listagem considerar mes atual

    Mensagem  fazerbem em 14/4/2019, 23:32

    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

      Data/hora atual: 28/9/2020, 14:22