MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 348
    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 : 7238
    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 : 348
    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 : 348
    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 : 348
    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 : 348
    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: 24/4/2019, 07:37