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]Dúvida com Columns e DLookup

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Dúvida com Columns e DLookup Empty [Resolvido]Dúvida com Columns e DLookup

    Mensagem  Ismael Silva em 14/11/2019, 14:39

    Bom dia,

    Estou com uma dúvida, relativamente simples, mas estou me batendo aqui, e não estou conseguindo fazer funcionar, já dei uma pesquisada no fórum, mas não tem consegui entender.

    Em um outro tópico um colega me disse que quando se tem muitos registros na tabela, o uso  DLookup, muitas vezes pode colaborar para ficar lento o sistema, então como o meu sistema está lento, estou tentando trocar o DLookup pelo Columns, do tipo, ao informar a placa, já me traz o número da frota, e outras informações, o que estou me batendo, é Column(1), o 1, é referência a que, de qual tabela?

    No caso do DLookup,eu puxo da tb_Postos


    'Cidade = DLookup("Cidade", "Tb_Postos", "Postos=" & "Posto1")


    Me.Cidade = Me.Posto1.Column(1)



    Private Sub cmbPlaca_AfterUpdate()

    Me.Equipamento = Me.cmbPlaca.Column(1)
    Me.Frota1 = Me.cmbPlaca.Column(2)
    Me.Km_Inicial = Me.cmbPlaca.Column(3)
    Me.cmbPlaca = UCase(Me.cmbPlaca)


    Obrigado.

    End Sub
    Lupércio
    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1145
    Registrado : 07/05/2011

    [Resolvido]Dúvida com Columns e DLookup Empty Duvida com Dilookup

    Mensagem  Lupércio em 14/11/2019, 15:04

    Tente assim, ou poste parte do seu banco.

    Me. Me.Equipamento.Value = Me.cmbPlaca.Column(1)
    Me. Me.Frota1.Value = Me.cmbPlaca.Column(2)
    Me.Km_Inicial.Value = Me.cmbPlaca.Column(3)
    Me.cmbPlaca.Value = UCase(Me.cmbPlaca)


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 319
    Registrado : 25/02/2016

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  FranklinJSP em 14/11/2019, 17:33

    Boa tarde Ismael!

    Da uma olhada, em anexo

    Saludos
    Anexos
    [Resolvido]Dúvida com Columns e DLookup AttachmentCombobox y column.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (693 Kb) Baixado 13 vez(es)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  Ismael Silva em 15/11/2019, 21:10

    Boa tarde FranklinJSP

    Pelo que vi, no seu exemplo, seria apenas para uma consulta, certo?
    No meu caso, eu tenho uma Tabela de Cadastros de Frotas, com todas as informações de Placas, e outra tabela, onde eu vou lançando cada vez que tem um novo abastecimento, ou seja, no formulário, toda a vez que no campo placa, eu atualizo, já puxa as informações de descrição do veículo, nº de frota, Posto que abasteceu e tudo mais, e no meu caso, uso o DLookup, que puxa essas informações da Tabela de Cadastros de Frotas. E eu queria ver, é se não dava para fazer isso, usando a referência das colunas, mas da Tabela de Cadastros de Frotas. No seu exemplo, caso eu não tenha nenhum dado na Tabela Clientes, na comb, do Form, não aparece nada.

    Espero ter me feito entender.
    Segue link abaixo.

    obrigado


    https://www.dropbox.com/s/6fw6iyso98lw9zj/Controle%20de%20Abastecimentos.accdb?dl=0
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  Ismael Silva em 18/11/2019, 16:19

    Up
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  Ismael Silva em 19/11/2019, 13:01

    Bom dia,

    Alguma sugestão?
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 722
    Registrado : 11/11/2009

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  scandinavo em 19/11/2019, 17:03

    confirma para min esta linhas a 1 e a 9 elas buscam a mesma informação

    1     Equipamento = DLookup("Equipamento", "Tbl_Cadastro_Frotas", "Placa =" & "cboPLACA") '**************
    2       Frota1 = DLookup("Frota", "Tbl_Cadastro_Frotas", "Placa =" & "cboPLACA") '**************
     3      Cid_Frota = DLookup("CidadeFrota", "Tbl_Cadastro_Frotas", "Placa =" & "cboPLACA") '**************
     4      Categoria1 = DLookup("Categoria", "Tbl_Cadastro_Frotas", "Placa =" & "cboPLACA") '**************
    5       Posto1 = DLookup("Posto", "Tbl_Cadastro_Frotas", "Placa =" & "cboPLACA") '**************
    6       Posto_Correto = DLookup("Posto", "Tbl_Cadastro_Frotas", "Placa =" & "cboPLACA") '**************
     7     Tipo_Combus = DLookup("Tipo_Comb_D", "Tbl_Cadastro_Frotas", "Placa =" & "cboPLACA") '**************
     8      T_Comb = DLookup("Tipo_Comb", "Tbl_Cadastro_Frotas", "Placa =" & "cboPLACA") '**************
     9    Des_Equipa = DLookup("Equipamento", "Tbl_Cadastro_Frotas", "Placa =" & "cboPLACA") '**************
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  Ismael Silva em 19/11/2019, 18:33

    scandinavo, boa tarde,

    Sim, ele puxa a mesma informação, o que diferencia um do outro, por que ao salvar na Tabela, por vezes eu preciso trazer apenas a última descrição do Equipamento. Por exemplo, a placa X, hoje tem como descritivo Taq_Orgânico, e amanhã, terá como descritivo IG-Orgânico, ou seja, em uma coluna, vai manter todo o histórico de alterações, mas em outra quando eu atualizar, via consulta, sempre trará a última descrição, da placa, que inclusive, foi você quem me ajudou a resolver. E o colega que mencionei no início do tópico, tbm foi você que lá no início quando eu estava fazendo esse controle, me disse que seria melhor utilizar columns ao invés de DLookup, pois esse faz muitas voltas na tabela, até trazer o resultado.
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 722
    Registrado : 11/11/2009

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  scandinavo em 20/11/2019, 16:14

    Eu lembro disto. Este mundo gira.

    Vamos lá as linhas 5 e 6 tambem mostram a mesma informação.

    Para que voce possa assimilar mais eu fiz um tutorial basta seguir o passo a passo.
    e tem mais um melhoria que pode ser implantada ao seu sistema. Mas primeiro faça esta alteração.

    Ate mais
    Anexos
    [Resolvido]Dúvida com Columns e DLookup AttachmentTutorial.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (749 Kb) Baixado 9 vez(es)
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  Ismael Silva em 20/11/2019, 18:56

    Boa tarde,

    Vou realizar as modificações, e assim que feito, retorno.

    Obrigado!
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  Ismael Silva em 18/12/2019, 12:21

    Bom dia scandinavo,

    Demorou mas fiz os procedimentos, conforme sua indicação, no entanto, não funcionou, apenas 1 campo trouxe a informação, que foi o Equipamento, após atualizar o campo placa.

    Se puderes verificar pra mim, aonde está o erro.

    Obrigado!




    https://www.dropbox.com/s/6fw6iyso98lw9zj/Controle%20de%20Abastecimentos.accdb?dl=0
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 722
    Registrado : 11/11/2009

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  scandinavo em 20/12/2019, 11:31

    Ver imagem 4 do tutorial. (você só marcou 1 coluna faça a alteração o resto esta certo)
    [Resolvido]Dúvida com Columns e DLookup 410
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  Ismael Silva em 20/12/2019, 12:04

    Bom dia,

    Exatamente isso, fiz a modificação e deu certo.
    Você disse ainda que teria mais algumas melhorias, que eu poderia fazer, quais seriam, ou preciso encerrar primeiro tópico, e abrir outro?
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 722
    Registrado : 11/11/2009

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  scandinavo em 28/12/2019, 13:21

    Faz do jeito mais simples

    cole sql em uma consulta

    SELECT Tbl_Lançamentos.Placa, Tbl_Lançamentos.Data1, Tbl_Lançamentos.Valor_Unit, Tbl_Lançamentos.Km_Final, Tbl_Lançamentos.Obs
    FROM Tbl_Lançamentos
    WHERE (((Tbl_Lançamentos.Placa)=[Formulários]![1Frm_Lançamentos]![CBOPlaca]));


    a ideia e trazer so as informações que serão utilizadas no formulário e já filtrado pela placa.

    e depois busque as informações desta consulta e na da tabela completa.



    [DESCRIÇÃO] = DLast("[Obs]", suaConsulta
    [Km_Inicial] = DMax("[KM_Final]", suaConsulta
    [Abast_Anterior] = DMax("[Data1]", suaConsulta
    [Lt_Anterior] = DLast("[Valor_Unit]", suaConsulta
    Numero_Abas = DCount("[Placa]", suaConsulta
    Media_Km = DCount("[Km_Rodado]", suaConsulta
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  Ismael Silva em 30/12/2019, 01:56

    Scandinavo,

    Eu coloco em qual evento?

    [DESCRIÇÃO] = DLast("[Obs]", suaConsulta
    [Km_Inicial] = DMax("[KM_Final]", suaConsulta
    [Abast_Anterior] = DMax("[Data1]", suaConsulta
    [Lt_Anterior] = DLast("[Valor_Unit]", suaConsulta
    Numero_Abas = DCount("[Placa]", suaConsulta
    Media_Km = DCount("[Km_Rodado]", suaConsulta
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 722
    Registrado : 11/11/2009

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  scandinavo em 30/12/2019, 12:39

    após atualizar do campo placa

    é a outra parte do código, apesar que neste seu novo exemplo você já mandou bem resumido. Caso não for mais necessário tente entender o conceito.
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 533
    Registrado : 11/12/2017

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  Ismael Silva em 13/1/2020, 10:52

    Obrigado Scandinavo.

    Resolvido.

    Conteúdo patrocinado

    [Resolvido]Dúvida com Columns e DLookup Empty Re: [Resolvido]Dúvida com Columns e DLookup

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/4/2020, 10:21