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]Uso do INNER JOIN

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Uso do INNER JOIN Empty [Resolvido]Uso do INNER JOIN

    Mensagem  fazerbem em 24/3/2019, 00:55

    Ola poderiam me ajudar aqui.

    Ao rodar um Form contendo uma caixa de listagem, estou usando o seguinte SQL em Origem da Linha das propriedades da caixa de Listagem:

    Origem da Linha: SELECT tbl_Lancamento_livrocaixa.lc_lcto, tbl_Lancamento_livrocaixa.lc_recibo, tbl_Lancamento_livrocaixa.lc_data, tbl_Lancamento_livrocaixa.lc_historico, tbl_Lancamento_livrocaixa.Cliente, tblCad_FormaPag.nomeFormaPag, tbl_Lancamento_livrocaixa.lc_cartao, tbl_Lancamento_livrocaixa.lc_entrada, tbl_Lancamento_livrocaixa.lc_Deposito, tbl_Lancamento_livrocaixa.lc_saida, tbl_Lancamento_livrocaixa.Empresa, tbl_Lancamento_livrocaixa.Lc_DepBanco_2, tbl_Lancamento_livrocaixa.Lc_SaidaBanco_2 FROM tblCad_FormaPag INNER JOIN tbl_Lancamento_livrocaixa ON tblCad_FormaPag.idFormaPag = tbl_Lancamento_livrocaixa.lc_formapag WHERE (((tbl_Lancamento_livrocaixa.Empresa)>1)) ORDER BY tbl_Lancamento_livrocaixa.lc_data DESC;

    Ao carregar o Form os dados sao apresentados conforme sua origem, ate aqui tudo bem.

    Porem eu tenho no Form 1 caixa de Texto que ao ser informada a data , e apos dar o o ENTER em ( Ao Alterar ) ira chamar a macro abaixo:

    Código:
    Private Sub datamov_Change()

        Me!lista.RowSource = "SELECT Tbl_Lancamento_livrocaixa.Lc_Lcto, Tbl_Lancamento_livrocaixa.Lc_Recibo, Tbl_Lancamento_livrocaixa.Lc_data, Tbl_Lancamento_livrocaixa.Lc_Historico, Tbl_Lancamento_livrocaixa.Cliente, TblCad_FormaPag.nomeFormaPag, Tbl_Lancamento_livrocaixa.Lc_Cartao, Tbl_Lancamento_livrocaixa.Lc_Entrada, Tbl_Lancamento_livrocaixa.Lc_Deposito, Tbl_Lancamento_livrocaixa.Lc_Saida, Tbl_Lancamento_livrocaixa.Empresa, Tbl_Lancamento_livrocaixa.Lc_DepBanco_2, Tbl_Lancamento_livrocaixa.Lc_SaidaBanco_2 " & _
                              "FROM tblCad_FormaPag INNER JOIN tbl_Lancamento_livrocaixa ON tblCad_FormaPag.idFormaPag = tbl_Lancamento_livrocaixa.lc_formapag" & _
                              "WHERE tbl_Lancamento_Livrocaixa.Lc_data like '" & Me!datamov.Text & "'  And Empresa =2 " & _
                              "ORDER BY tbl_Lancamento_Livrocaixa.Lc_data"

    End Sub

    Entao ao inves de aparecer as informacoes , o form Roda porem a caixa de listagem fica vazia e o cabeçalho das colunas vazios.

    Onde esta o erro ?

    Andre
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Uso do INNER JOIN Empty Re: [Resolvido]Uso do INNER JOIN

    Mensagem  fazerbem em 24/3/2019, 01:06

    complementando

    No Form em propriedades, em Fonte de registro, esta como Tbl_Lancamento_livrocaixa, sendo assim a caixa de texto Me.datamov, puxa a data atual do ultimo lancamento, pois esta caixa de texto em propriedades fonte de controle = lc_data.
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Uso do INNER JOIN Empty Re: [Resolvido]Uso do INNER JOIN

    Mensagem  fazerbem em 24/3/2019, 14:27

    Segue tabela exemplo

    Gostaria que a coluna Modalidade da caixa de listagem mostrasse dinheiro, cartao, deposito, conforme e mostrado ao ser carregada. Porem ao mudar a data ou teclar nas setas a caixa nao consegue carregar os dados .

    Grato
    Anexos
    [Resolvido]Uso do INNER JOIN AttachmentCAIXATESTE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (40 Kb) Baixado 8 vez(es)
    livio.sfranca
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 09/01/2018

    [Resolvido]Uso do INNER JOIN Empty Re: [Resolvido]Uso do INNER JOIN

    Mensagem  livio.sfranca em 25/3/2019, 12:38

    O erro acredito ter sido no Inner Join e na condição da data que colocou. Refiz aqui e funcionou assim:

    Código:
       Me!Lista.RowSource = "SELECT Tbl_Lancamento_Livrocaixa.Lc_Lcto, Tbl_Lancamento_Livrocaixa.Lc_Recibo, " & _
                             "Tbl_Lancamento_Livrocaixa.Lc_data, Tbl_Lancamento_Livrocaixa.Lc_Historico, " & _
                             "Tbl_Lancamento_Livrocaixa.Cliente, tblCad_FormaPag.nomeFormaPag, " & _
                             "Tbl_Lancamento_Livrocaixa.Lc_Cartao, Tbl_Lancamento_Livrocaixa.Lc_Entrada, " & _
                             "Tbl_Lancamento_Livrocaixa.Lc_Deposito, Tbl_Lancamento_Livrocaixa.Lc_Saida, " & _
                             "Tbl_Lancamento_Livrocaixa.Empresa, Tbl_Lancamento_Livrocaixa.Lc_DepBanco_2, " & _
                             "Tbl_Lancamento_Livrocaixa.Lc_SaidaBanco_2 FROM Tbl_Lancamento_Livrocaixa " & _
                             "INNER JOIN tblCad_FormaPag ON " & _
                             "Tbl_Lancamento_Livrocaixa.lc_formapag = tblCad_FormaPag.idFormaPag " & _
                             "WHERE (((Tbl_Lancamento_Livrocaixa.lc_data) Like #" & Me!datamov.Text & "#) And " & _
                             "((Tbl_Lancamento_Livrocaixa.[Empresa]) = 1)) " & _
                             "ORDER BY Tbl_Lancamento_Livrocaixa.Lc_data;"
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Uso do INNER JOIN Empty Re: [Resolvido]Uso do INNER JOIN

    Mensagem  fazerbem em 25/3/2019, 17:06

    Grato amigao, ficou redondinho.

    Andre
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Uso do INNER JOIN Empty Re: [Resolvido]Uso do INNER JOIN

    Mensagem  ronaldojr1 em 25/3/2019, 17:29

    boa tarde,
    so complementando...

    o erro na vdd era gerado por falta de espaço nesse trecho
    Código:
       'em ... "= tbl_Lancamento_livrocaixa.lc_formapag" faltou um espaço depois de formapag, com isso fez com q a string se unisse ao
                 'where e assim gerando o erro. apos apenas colocar o espaço o codigo funcionou redondinho.
                 'abaixo esta a linha q esta o erro.
                 "FROM tblCad_FormaPag INNER JOIN tbl_Lancamento_livrocaixa ON tblCad_FormaPag.idFormaPag = tbl_Lancamento_livrocaixa.lc_formapag" & _
                 "WHERE tbl_Lancamento_Livrocaixa.Lc_data like '" & Me!datamov.Text & "'  And Empresa =2 " & _
                 "ORDER BY tbl_Lancamento_Livrocaixa.Lc_data"

                errado:
                "FROM tblCad_FormaPag INNER JOIN tbl_Lancamento_livrocaixa ON tblCad_FormaPag.idFormaPag = tbl_Lancamento_livrocaixa.lc_formapag" & _
               
                certo:
                "FROM tblCad_FormaPag INNER JOIN tbl_Lancamento_livrocaixa ON tblCad_FormaPag.idFormaPag = tbl_Lancamento_livrocaixa.lc_formapag " & _

    importante ressaltar que ao lidar com datas é bom fazer o uso de # igual ao amigo livio.sfranca sugeriu.
    cheers

      Data/hora atual: 4/7/2020, 16:13